VB语句习题.docx

1、VB语句习题条件语句 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）42、2007.4(31）在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Private Sub Cimmandl_Click（）a =75If a

2、60 Thenk =1Elself a70 Thenk =2Elself a80 Then k =3Elself a90 Then k =4EndlfMsgBox 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 X0 Then Y=2 Text1.value=Y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是

3、 A） 1 B） 2 C）3 D）44、2007.9（13在窗体中使用一个文本框（名为num1）接受输入值，有一个命令按钮run13，事件代码如下：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 resultEnd Sub打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是For-Next语句1、2006.4(填11)

4、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim s，iFor i=1 To 10s=s+iNext iMsgBox s，iEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 。2、2006.9（34）在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：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

5、Next IMsgBox z End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A）AABAAB B）ABBABA C）BABBA D）BBABBA3、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 D

6、ouble, x As DoubleSum=0n =0For i =1 To 5 x =n/i n =n +1sum =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/5C）1/2+2/3+3/4+4/5 D）1/2+1/3+1/4+1/55、2007.9（12）在窗体中使用一个文本框（名为x）接受输入值，有一个命令按钮test，事件代码如下： Private Sub test_Click() y =0 For i=0 To Me!x y=y+2*i+1 Next i

7、 MsgBox y End Sub 打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是 。6、2008.4(11)在窗体中有一个名为Command1的命令按钮,Click事件的代码如下:Private Sub Command1_Click() f=0 For n=1 To 10 Step 2 f=f+n next n Me!Lb1.Caption=fEnd Sub单击命令按钮后,标签显示的结果是7、2008.9（34）在窗体中有一个命令按钮（名称为 run34），对应的事件代码如下：Private Sub run34_Click( ) sum=0 For i=10 To 1 Ste

8、p -2sum=sum+i Next i MsgBox sum End Sub运行以上事件，程序的输出结果是（ ）。A）10 B）30 C）55 D）其他结果8、2005.4(填13)以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分（设满分为10分）。请填空补充完整。 。 Private Sub Form_Click() Dim Max as Integer, Min as Integer Dim i as Integer, x as Integer, s as Integer Dim p as Single Max=0 Min=10 For i=1 to 8 x=Va

9、l(InputBox(“请输入分数：”) if Then Max=x if Then Min=x s=s+x Next I s = p = s/6 MsgBox “最后得分：” & p End Sub9、2008.9(填12）已知数列的递推公式如下：f(n)=1当 n=0,1 时f(n)=f(n-1)+f(n-2)当 n1 时则按照递推公式可以得到数列：1, 1, 2, 3, 5, 8, 13, 21, 34, 55,。现要求从键盘输入 n 值，输出对应项的值。例如当输入 n 为 8 时，应该输出 34。程序如下，请补充完整。Private Sub runl1_Click( )f0=1 f1=

10、1 num=Val(InputBox(请输入一个大于 2 的整数: )For n=2 To_ f2=_f0=f1 f1=f2 Next n MsgBox f2End Sub10、2009.9（33）在窗体中有一个命令按纽Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click ( ) For I=1 To 4 X=3 For j=1 To 3 For k=1 To 2 X=X+3 Next k Next j Next I Text1.value=Str(X) End Sub打开窗体运行后，单击命令按钮，文本框Text1输出的结果是A） 6

11、 B）12 C）18 D）2111、2009.9（34）在窗体中有一个命令按钮Command1，编写事件代码如下：Private Sub Command1_Click()Dim s As Integers = p(1) + p(2) + p(3) + p(4)debug.Print sEnd SubPublic Function p (N As Integer)Dim Sum As IntegerSum = 0For i = 1 To N Sum = Sum + iNext iP = SumEnd Function打开窗体运行后，单击命令按钮，输出的结果是：A）15B）20C）25D）3512

12、、2009.9(填12某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。Sub command1_click( ) Dim mark!, aver!, i%,max1!,min1!aver = 0For i = 1 To 7Mark = InputBox(“请输入第”& i & “位评为的打分”) If i = 1 then max1 =mark : min1=markElseIf mark max1 then End IfEnd If Next iaver = (aver - max1- min1)/5Msg

13、Box averEnd Sub13、2005.9(填11) 设有以下窗体单击事件过程：Private Sub Form_Click( )a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iMsgBox aEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是Do While-Loop语句1、2005.4(填11)某个窗体已编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为 。 Private Sub Form_Click() Dim k as Integer,

14、n as Integer, m as Integer n=10; m=l; k=1 Do While k=n m=m*2 k=k+1 Loop MsgBox m End Sub2、2009.3（35） 在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click() MsgBox f(24, 18)End SubPublic Function f(m As Integer, n As Integer) As IntegerDo While m n Do While m n m = m - n Loop Do While m n n

15、 = n - m LoopLoopf = mEnd Function窗体打开运行后，单击命令按钮，则消息框的输出结果是A）2 B） 4 C）6 D）83、2008.4(13)下列子过程的功能是:将当前数据库文件中”学生表”的学生”年龄”都加1,请在程序空白的地方填写适当的语句,使程序实现所需要的功能Prvate Sub SetAgePlus1_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim fd As DAO.Field Set db=CurrentDb() Set rs=db.OpenRecordset(“学生表”) se

16、t fd=rs.field(“年龄”) Do While Not rs.EOF rs.Edit fd= rs.Update Loop rs.Close db.Close Set rs=Nothing Set db=NothingEnd SubDo-Loop While语句1、2006.4(33) 以下程序段运行结束后，变量x的值为x=2y=4Dox=x*yy=y+1LoopWhiley4A2 B4 C8 D20Do-Loop Until语句1、2006.4(填13) 设有如下代码：x=1dox=x+2loopuntil 运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。2、2009

17、.3 (34)设有如下过程： X=1 Do X=x+2 Loop until _运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是A）X=7 B）X=7 D）X7嵌套循环2、2006.4(34) 在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To2x=x+6Next kNext jNext iMsgBox xEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是A7 B15 C157 D5383、2005.9(35)n=0f

18、or i=1 to 3for j= -4 to -1 n=n+1next jnext i运行完毕后，n的值是A）0 B）3C）4D）124、2006.9(31）在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：Private Sub Command1_Click( ) Dim a(10,10) For m=2 To 4 For n=4 To 5 a(m,n)=m*n Next n Next m MsgBox a(2,5)+a(3,4)+a(4,5) End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A）22 B）32 C）42 D）525、2006.9(填14

19、）下面VBA程序段运行时，内层循环总次数是_。For m=0 To 7 Step 3 For n=m-1 To m+1 Next n Next m6、2007.9（35）在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮run，事件代码如下： Private Sub run_Click( ) result = For i= 1 To Me!n For j = 1 To Me!n result = result + * Next j result = result + Chr(13) + Chr(10) Next i MsgBox result End Sub打开窗体后，如果通过文本框

20、输入的值为4，单击命令按钮后输出的图型是_。A） * * * * B） * * * * * * * * * * * * * * * * * * * * * * * * * * * C） * * * * D） * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *7、2008.4(35)在窗体中有一个命令按钮run35,对应的事件代码如下:Private Sub run35_Enter()Dim num As IntegerDim a As IntegerDim b As IntegerDim i As IntegerFor i=1 to 10 num=InputBox(“请输入数据: “,”输入”,1) If Int(num/2)=num/2 Then a=a+1 Else b=b+1 End If Next i MsgBox(“运行结果: a=”& Str(a) & “,b=” & Str(b)End Sub运行以上事件所完成的功能是A对输入的10个数据求累加和B对输入的10个数据求各自的余数,然后再进行累加C对输入的10个数据分别统计有几个是整数,有几个是非整数D对输入的10个数据分别统计有几个是奇数,有几个是偶数