浙江选考信息技术每日一练：字符串和数值

1、每日一练：字符串与数值1下列程序执行后文本框Textl显示的内容是()Dim x As String, y As String, ans As Integerx = 12: y = 100If x y Then ans = Val(x) Else ans = Val(y)ans = ans + Val(x + y)Textl.Text = Str(a ns)A. 12200 B. 12112 C.124 D.2122小明设计了一个 VB程序，实现将输入的字符串中的小写字母转换为大写字母，并按原位置输出。例如输入字符串“Entrance”，则输出字符串“ ENTRANCE。部分VB程序段如下：P

2、rivate Sub Comma nd1_Click() s = Text1.Texts2 = Chr(Asc(s1)- 32)Elses2 = s1End IfText2.Text = Text2.Text +Str(s2)Next iEnd Sub方框中的代 码由以下三部分组成： For i = 1 To Len(s) If s1 = a A nd s1 = z The n s1 = Mid(s, i, 1)代码顺序正确的选项是()A.B.C.D.3在字符串s1中，查找指定的一个字符并替其他字符的VB程序段如下:s1 = Text1.Text: c1 = Text2.Text: c2 =

3、Text3.Texts2 =For i = 1 To Len( s1)If Mid(s1, i, 1) c1 ThenElseEnd IfNext iLabel4.Caption =替换结果为：& s2 下列、处代填写正确的是()B.处代 sl = s1 & Mid(s1, i, 1)D.处代 s2 = s2 & Mid(s1, i, 1)Text1显示的内容是()A.处代 s2 = s2 & c1 C处代s2 = s2 & c24.下列程序执行后文本框x = abcdcba: ans = 0For i = 1 To Len (x) 2If Mid(x, i, 1) = Mid(x, Len(

4、x) - i + 1, 1) Then ans = ans + 1Next iText1.Text = Str(ans)A1B 2C 3D 45下列程序执行后文本框Text1 显示的内容是( )s = ERROR:Divisor must not be zero!flag = False: m = 0For i = 1 To Len(s)ch = Mid(s, i, 1)If ch = a And ch = 65 And Asc(ch) = Mid(Outs ,i - 1,1)Outs = Outs + Mid( Ins,i ,1)i = i + 1LoopText2.Text = Outs在

5、文本框 Textl中输入Happy2017”，执行该程序段后，文本框Text2中显示的是()A. Ha B. Happy C. Happy27 D. Happy20178. 有如下 VB 程序段s = Text1.Textt = Mid(s， 1， 1): max = 0For i = 2 To Len(s)If Mid(s, i, 1) Mid(s, i - 1, 1) The nt = t + Mid(s, i, 1)If Len(t) max Then max = Len(t): ans = tElset = Mid(s, i, 1)End IfNext iText2.Text = an

6、s在文本框 Text1中输入“ 11341358901 ”执行该程序段后，文本框Text2中显示的是（）A. 135890 B. 01 C.3589 D.135899. 如果一个正整数从高位到低位上的数字依次递减，则称其为降序数（如9752、9772是降序数，而7524不是降序数）。现编写VB程序实现如下功能：在文本框Text1种输入一个正整数，单击“判断按钮 Commmand1，在标签Label2中显示出该数是不是降序数。程序运行界面如图所示。(1)代码的 Click是 (选填字母:(2 )请完善下列程序代码：Private Sub Comma nd1_Click()Dim i As Int

7、eger, s As String, flag As BooleanA.对象名/ B.属性名/ C.事件名/ D.方法名）flag = True: i = 2Do While i Le n(Text1.Text) The nt = Text1.Text +ElseFor i = 1 To Le n(Textl.Text)If Thent = t + Mid(Text1.Text, i, 1)Elset = t + Text2.Text + Mid(Text1.Text, i, 1)End IfNext iEnd IfText4.Text = tEnd Sub(3)如图所示，若在文本框 Text

8、2中输入字符“ aa”，其他输入保持不变，单击“插入” 按钮后，在文 本框Text4中显示为。11. 趣味填空题：给出用等号连接的两个整数，如“222 = 24”，让你在左边的整数中间某个位置插入一个加号，看有没有可能让等式成立。以上面的式子为例，可以写成2+22=24和22+2=24两种答案。现设计一个程序，实现该算法，程序运行界面如图所示。(1)标题要显示“趣味数学”，需修改窗体的 (选填：Caption、Name、Text)属性。(2 )实现上述功能的VB程序如下，请在程序划线处填入合适代码。Private Sub Comma nd1_Click()Dim s As Stri ng, s

9、1 As Stri ng, s2 As Stri ngDim c As In teger, k As In teger, i As In teger, flag As Boolea nflag = False: c = 0s = Text1.TextFor i = 1 To Len(s)If Mid(s, i, 1) = = The n Exit ForNext is2 = Mid(s, i + 1, Le n(s) - i)k = Len (s1)For i = 1 To k - 1If Val(Mid(s1,1,i)+Val(Mid(s1,i+1,k -i)=Val(s2) ThenLis

10、t1.AddItem 第+Str(c)+种答案:+Mid(s,1,i)+Mid(s,i+1 ,Len(s) -i)flag = TrueEnd IfNext iIf Then List1.AddItem 没有答案!End Sub12. 小明编写一个“数字转换”程序，实现如下功能：在文本框Text1中输入一个正整数，单击“转换”按钮Command1,将整数中的每个一个数字转换为汉字数字，并显示在标签Label1中。例如输入：123,输出：一二三。程序运行界面如下图所示。实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Comma nd1_Click（）Con st dx =零一二三四五六七八九Dim s As String, x As In tegerDim ans As Strin g, i As In tegerFor i = 1 To Len(s)x = Val(Mid(s, i, 1)Next iLabel1.Capti on = ansEnd Sub每日一练：字符串与数值参考答案题号12345678答案BCCCBDBD9、( 1)C(