VB语句习题.doc

条件语句 1、2006.9（33）在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码： Private Sub Command1_Click( ) A=75 If A60 Then I=1 If A70 Then I=2 If A80 Then I=3 If A90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是A）1 B）2 C）3 D）4 2、2007.4(31）在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Private Sub Cimmandl_Click（） a =75 If a 60 Then k =1 Elself a70 Then k =2 Elself a80 Then k =3 Elself a90 Then k =4 Endlf MsgBox k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 A）1 B）2 C）3 D）4 3、2009.9 (32)在窗体中有一个文本框Text1，编写事件代码如下： Private Sub Form_Click ( ) X=val (Inputbox(“输入x的值”)) Y=1 If X〈〉0 Then Y=2 Text1.value=Y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是 A） 1 B） 2 C）3 D）4 4、2007.9（13 Private Sub run13_Click() If Me!num1 = 60 Then result = 及格 ElseIf Me!num1 = 70 Then Result = 良好 ElseIf Me!num1 = 85 Then 1506358297 Result = 优秀 End If MsgBox result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 For-Next语句 1、2006.4(填11)在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim s，iFor i=1 To 10s=s+iNext iMsgBox sEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为????????。 Private Sub Command1_Click( ) s=”ABBACDDCBA” For I=6 To 2 Step -2 x=Mid(s,I,I) y=Left(s,I) z=Right(s,I) z=x y z Next I MsgBox z End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 A）AABAAB B）ABBABA C）BABBA D）BBABBA 3、2006.9(填15）在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码： Private Sub Command1_Click( ) Dim b,k For k=1 to 6 B=23+k Next k MsgBox b+k End Sub 窗体打开运行后，三次单击命令按钮，消息框的输出结果是_______。 4、2007.4(33）设有如下程序： Private Sub Cimmandl_Click（） Dim sum As Double, x As Double Sum=0 n =0 For i =1 To 5 x =n/i n =n +1 sum =sum +x Next i End Sub 该程序通过For 循环来计算一个表达式的值，这个表达式是 A）1+1/2+2/3+3/4+4/5 B）1+1/2+1/3+1/4+1/5 C）1/2+2/3+3/4+4/5 D）1/2+1/3+1/4+1/5 5、2007.9（12） Private Sub test_Click()