VB控制结构.doc

VB控制结构1 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox(请输入A的值) a=val(a) b=InputBox(请输入B的值) b=Val(b) x=InputBox(请输入x的值) x=val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，输出结果为 A) 2 B) 3 C) 14 D) 15 2 以下能够正确计算n!的程序是 A) Private Sub Commandl_ClicK() n5:x1 Do X=x*i ii十1 Loop While in Print x End Sub B) Private Sub Commandl_Click() n5: x1:i=1 Do XX*i ii十1 Loop While in Print x End Sub C) Private Sub Commandl_Click() n=5:x1:i1 Do X=X*i ii十1 Loop while i=n Print x End Sub D) Private Sub Commandl_C1ick() n5:x1:i=1 Do X=X*i i=i十1 loop While in Print x End Sub 3 在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程： Private Sub Commandl_C1ick() s = 0 For i = 1 To 15 x = 2 * i - 1 If x Mod 3 = 0 Then s = s + 1 Next i LabellCaption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是 A) 1 B) 5 C) 27 D) 45 4 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I=1 To 4 For J=0 To i Print Chr$(65+I); Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 A) BB B) A C) B D) AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD 5 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While x10 Then exit for Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 A) 2 B) 3 C) 4 D) 5 7 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 A) 12 B) 13 C) 14 D) 15 8 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是 A) 123 B) 234 C) 147 D) 123 246 345 258 456 369 456 369 789 9 假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1UCase(Mid(S,i,1)十s1 Next i Funs1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Prlvate Sub Commmldl_Click() Dim Str1 As String，Str2 As String Strlinputbox(”请输入一个字符串”) Str2=Fun(Strl) Print Str2 End Sub 程序运行后，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为 A) abcdefg B) ABCDEFG C) gfedcba D) GFEDCBA 10 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 to 4 x=4 For j=1 to 3 x=3 For k=1 to 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是 A) 7 B) 15 C) 157 D) 538 11 阅读下面的程序段： For i=1 To 3 For j=1 to i For k=j to 3 a=a+1 Next k Next j Next i 执行上面的三重循环后，a的值为 A) 3 B) 9 C) 14 D) 21 12 如果A为整数且|A|=100，则打印OK，否则打印Error，表示这个条件的单行格式If语句是 A) If Int(A)=A And Sqr(A)=10 Then Print OK Else Print Error B) If Fix(A)=A And Abs(A)=100 Then Print OK Else Print Error C) If Int(A)=A And (A=100,A=100 And A=-100 Then Print OK Else Print Error 13 下列程序段运行后，输出结果为 b=1 Do While b40 b=b*(b+1) Loop Print b A) 42 B) 39 C) 6 D) 1 14 关于Exit For的使用说明正确的是 A) Exit For语句可以退出任何类型的循环 B) 一个循环中只能有一个这样的结构 C) Exit For表示返回For语句去执行 D) 一个For循环中可以有多条Exit For语句 15 执行下面的程序段后，x的值为 x=5 For i=1 to 20 Step 2 x=x+i5 Next i A) 21 B) 22 C) 23 D) 24 16 多分支选择结构的Case语句中变量值列表不能是 A) 常量值的列表，如Case 1,3,5 B) 变量名的列表，如Case x,y,z C) To表达式，如Case 10 To 20 D) ls关系表达式，如Case ls20 17 在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do While xamax Then Amax=x End If If _ Then Amin=x End If x=InputBox(“Enter a score”) Loop Print Max=;amax,Min=;amin End Sub 22 下面的程序用冒泡法将数组a中的10个整数按升序排列，请在空格处将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678,45,324,528,439,387,87,875,273,823) For i=_ For j=_ if a(i)_a(j) Then a1=a(i) a(i)=a(j) a(j)=a1 End if Next j Next i For i=1 to 10 Print a(i) Next i End Sub 23 以下程序段的输出结果是_ num=0 While num=2 num=num+1 Print num Wend 24 起始语句为While的循环结构的终端语句是_ 25 在窗体上画一个名称为Command1的命令按钮，编写如下事件过程 Private Sub Commandl_C1ick() Dim a As String a=_ For i 1 To 5 Print Space(6-i);Mid$(a,6-i,2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为 5 456 34567 2345678 123456789 请填空。 26 以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和