VB基本知识及选择循环结构习题

vb基础知识试题及答案一、选择题（每题2分，共10分）1. VB中，哪个关键字用于声明变量？A. DimB. ConstC. LetD. Option Explicit答案：A2. 在VB中，哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrConvD. Trim答案：A3. VB中，哪个循环结构用于重复执行代码块直到满足特定条件？A. Do LoopB. For EachC. While WendD. For Next答案：A4. 在VB中，如何表示逻辑“与”操作？A. AndB. OrC. NotD. Xor答案：A5. VB中，哪个关键字用于定义函数？A. FunctionB. SubC. PropertyD. Const答案：A二、填空题（每题2分，共10分）1. 在VB中，使用________关键字可以声明一个数组。

答案：Dim2. VB中的________函数用于计算两个日期之间的天数差。

答案：DateDiff3. VB中，________关键字用于声明一个过程，该过程不返回值。

答案：Sub4. 使用________函数可以将数字转换为字符串。

答案：Str5. 在VB中，________关键字用于声明一个类模块。

答案：Class三、简答题（每题5分，共15分）1. 描述VB中的事件驱动编程。

答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发。

在VB中，开发者可以为控件编写事件处理程序，当特定的事件发生时，如按钮点击，相应的事件处理程序会被调用执行。

2. 解释VB中的类和对象的概念。

答案：在VB中，类是一种模板，定义了一组属性、方法和事件，这些可以被实例化为对象。

对象是类的实例，每个对象拥有自己的状态和行为。

通过类，可以创建具有相同属性和方法的多个对象。

3. 什么是VB中的封装？答案：封装是面向对象编程中的一个核心概念，它指的是将数据（属性）和操作这些数据的方法（过程）捆绑在一起，形成一个对象。

vb三种基本结构练习题1、计算圆的面积（顺序结构）dim r,s,c as singler=inputbox("输入r的值")s=3.14*r*rc=2*3.14*rprint sprint c2、小明去买电池，2.5元一节，买电池超过10节，超出的部分按八折出售。

输入小明买电池的数量，输出小明应付的钱数。

（选择语句）dim a as integerdim q as singlea=inputbox("输入小明买的电池数")if a>10 thenb=25+(a-10)*2.5*0.8elseb=a*2.5end ifprint b3、求1+2+3+4+……+100的和。

（循环语句）dim i,sum as integerfor i=1 to 100sum=sum+inext iprint sum4、输入数字n，求n！（n!=1*2*3*……*n）（循环语句）dim i,sum,n as longn=inputbox("输入n的值")sum=1for i=1 to nsum=sum*inext iprint sumVB上机练习汇总1、在窗体上任意位置画一个文本框和一个命令按钮，编写程序，当用户单击命令按钮时，文本框移动到窗体的左上角，并且文本框的大小是原来的2倍。

2、在窗体上任意位置画一个文本框和一个命令按钮，设置窗体的标题属性为“信息窗口”；命令按钮的标题属性为“确定”。

编写程序，当用户单击命令按钮时，在文本框中显示“包头师范学院”，要求字体为隶书、加粗、加下划线、字号为20、颜色为红色。

3、在窗体上任意位置画两个命令按钮，分别设置它们的标题属性为：加载图片、显示信息。

编写程序，当用户单击第一个命令按钮时，在窗体上加载一幅图片（图片自定）。

当用户单击第二个命令按钮时，在窗体上打印信息“包头师范学院“。

4、例1:在窗体上部设置一个文本框，文本框的下面设置3 个命令按钮，其中左边按钮中标有“单击此按钮”，中间按钮中标有“清除”，右边按钮中标有“程序结束”。

高中vb基础试题及答案一、选择题（每题2分，共20分）1. Visual Basic是一种（）。

A. 汇编语言B. 面向对象的编程语言C. 面向过程的编程语言D. 机器语言2. 在VB中，以下哪个关键字用于声明变量？（）A. DimB. SetC. CallD. Function3. 下列哪个选项是VB中的事件处理程序？（）A. SubB. FunctionC. EventD. Property4. 在VB中，用于循环结构的关键字是（）。

A. WhileB. ForC. DoD. All of the above5. VB中的MsgBox函数用于（）。

A. 显示消息框B. 计算数学表达式C. 打开文件D. 保存文件6. 在VB中，以下哪个选项不是控制结构？（）A. If...Then...ElseB. Select CaseC. For...NextD. Dim7. VB中的数组声明可以使用哪个关键字？（）A. DimB. SetC. CallD. Function8. 在VB中，以下哪个选项是正确的字符串连接符？（）A. +B. &C. *D. /9. VB中的控件（Control）通常用于（）。

A. 存储数据B. 显示数据C. 执行计算D. 以上都不是10. 在VB中，以下哪个选项是正确的错误处理语句？（）A. Try...Catch...FinallyB. On ErrorC. ThrowD. All of the above二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的正确语法是：_______。

2. VB中的函数可以通过关键字_______来定义。

3. 在VB中，要创建一个名为“myButton”的按钮控件，可以使用_______语句。

4. VB中的事件处理程序通常以_______关键字开始。

5. VB中的For循环结构的一般形式是：For [变量] = _______ To [变量] Step [步长]。

第四章编程题1.查询分数题Private Sub Form_Load()x = Val(InputBox("请输入分数", "输入", 0))Select Case xCase Is < 0Label1.Caption = "输入有误"Case Is > 100Label1.Caption = "输入有误"Case Is >= 90Label1.Caption = "优秀"Case Is >= 80Label1.Caption = "良好"Case Is >= 70Label1.Caption = "一般"Case Is >= 60Label1.Caption = "及格"Case Is < 60Label1.Caption = "不及格"End SelectEnd Sub2.求最大公约数题Private Sub Command1_Click()Dim m As Integer, n As Integer, p As Integerm = Val(Text1.Text)n = Val(Text2.Text)If m < 0 Or n < 0 ThenMsgBox "数据错误！"EndEnd Ifp = m Mod nDo While p <> om = nn = pp = m Mod nLoopText3.Text = nEnd Sub2.1最小公倍数Private Sub Command1_Click()Dim m As Integer, n As Integer, p As Integer, t As Integerm = Val(Text1.Text)n = Val(Text2.Text)t = m * nIf m < 0 Or n < 0 ThenMsgBox "数据错误!"EndEnd IfIf m = 0 Or n = 0 ThenText3.Text = 0ElseDop = m Mod nIf p = 0 ThenExit DoEnd Ifm = nn = pLoop Until FalseText3.Text = t / nEnd IfEnd Sub3.九九乘法表Private Sub Command1_Click()Dim I As Integer, J As Integer, M As Integer, s As String For I = 1 To 9s = ""For J = 1 To IM = I * Js = s & J & "*" & I & "=" & M & " "Next JList1.AddItem sNext IEnd Sub4.求ABCD—CDC=ABC题Private Sub Command1_Click()For a = 1 To 9: For b = 0 To 9For c = 1 To 9: For d = 0 To 9x = a * 1000 + b * 100 + 10 * c + dy = c * 100 + d * 10 + cz = a * 100 + b * 10 + cIf x - y = z ThenPrint x; y; zEnd IfNextNextNextNextEnd Sub5.求前100项和，平均数题Private Sub Form_click()n = 1: s = 0Do While n <= 100s = s + nn = n + 1LoopPrint s, n - 1, s / (n - 1), s * (n - 1)End Sub6.输入10个数找出正数，负数，零的个数Private Sub Command1_Click()Dim i, t, x1, x2, x3 As IntegerFor i = 1 To 10t = Val(InputBox("请输入第" & i & "个数：", "显示", 0))If t > 0 Thenx1 = x1 + 1ElseIf t < 0 Thenx2 = x2 + 1Elsex3 = x3 + 1End IfNextPrint "正数的个数:" & x1Print "负数的个数:" & x2Print "零的个数:" & x3End Sub7.Fibonacci数列（用数组做）Private Sub Form_Load()For i = 1 To 30List1.AddItem Fib(i)NextEnd SubPrivate Function Fib(n)If n < 3 ThenFib = 1ElseFib = Fib(n - 1) + Fib(n - 2)End IfEnd FunctionPrivate Sub List1_Click()List1.AddItem = FibEnd Sub8.输入十个数打印并找出最大数，最小数Private Sub Command1_Click()Dim a(9), i, max, min As IntegerFor i = 0 To 9a(i) = Val(InputBox("请输入第" & i + 1 & "个数："))Print a(i);Nextmax = a(0)For i = 0 To 9If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)NextPrintPrintPrintPrint "最大数为：" & max; "最小数为：" & minEnd Sub9.100元换成40张等值的10,5,2,1的钱的题Private Sub Command1_Click()For x = 1 To 10For y = 1 To 20For z = 1 To 50w = 40 - x - y - zIf 10 * x + 5 * y + 2 * z + w = 100 And x * y * z * w > 0 Thenh = Format(x, "@@@@") & Format(y, "@@@@@") _& Format(z, "@@@@@") & Format(w, "@@@@@")List1.AddItem hEnd IfNext zNext yNext xEnd Sub10.找出三位数的回文数并打印，并求其个数Private Sub Command1_Click()Dim n As IntegerFor n = 101 To 999a = Int(n / 100)b = Int((n - a * 100) / 10)c = n - a * 100 - b * 10If a = c Then List1.AddItem nNextPrint List1.ListCountEnd Sub10-2回文字判断1）按定义判断先求出字符串的反序字符串，然后和原字符串比较，如果相等则是回文，否则不是回文。

第七章循环部分练习题一、选择1、下列正确的语句是______________A) FOR X=1 TO 10 STEP -2 B) FOR X$=1 TO 9 STEP 3C) FOR 1X=10 TO 100 STEP 10 D) FOR X1=10 TO 502、执行以下程序段后,I的值为______________I=0FOR G=10 TO 19 STEP 3I=I+1NEXT GA)4 B)5 C)3 D)63、以下第30语句执行次数为______________FOR I=1 TO 3FOR J=5 TO 1 STEP -1PRINT I*JNEXT J,IA)15 B)16 C)17 D)184、下述程序共执行______________次循环FOR I=7 TO 90 STEP 5PRINT I；NEXT IA)14 B)15 C)16 D)175 、下列程序运行时输出的结果是______________E=1:F=1FOR J=1 TO 3E=E+F:F=F+ENEXT JPRINT E；FA)6 6 B)5 8 C)13 21 D)24 556、下列程序运行时输出的结果是______________Y=3FOR K=1 TO 5 STEP -1Y=Y+KNEXT KPRINT Y；KA)3 1 B)1 3 C)-1 6 D)4 17、下列程序分别输入1,-2,9,0,-1,9运行时输出的结果是______________ Do while abs(l)<>3K=inputbox(“请输入数据:”)FOR I=1 TO K STEP -2L=I+KNEXT IPRINT LloopA)-3 B)3 C)2 D)22 23 -38、下列程序运行时分别输入5,9,8,2,-999输出的结果是______________B=0X=inputbox(“请输入数据”)Do WHILE X<>-999IF X>B THEN B=XX=inputbox(“请输入数据”)loopPRINT ABS(X)A)9 B)8 C)2 D)9999、有如下程序a$="AaBbCcDdEe":b$="12345"FOR j=1 to 5 STEP 2PRINT MID$(a$,j,1)+MID$(b$,(j+1)/2,1);NEXT jA) A1B2C3 B) AaB123 C) a1b2c3 D) A1a2B310、下列程序运行时输出的结果是______________FOR K=1 TO 3IF K<=1 THEN A=2*KIF K<=2 THEN A=2*K+1IF K<=3 THEN A=KPRINT K；A；NEXT KA)1 2 2 5 3 3 B)1 1 2 2 3 3C)3 3 3 3 3 3 D)1 3 2 3 3 311、下列程序运行时输出的结果是______________FOR I=10 TO 6 STEP -1NEXT IPRINT IA)4 B)5 C)6 D)712、下列程序运行时输出的结果是______________K=0FOR I=1 TO 3A=I^I^KPRINT A；NEXT IA)1 1 1 B)1 4 9 C)0 0 0 D)1 2 313、下列程序运行时输出的结果是______________X=0WHILE X<20X=X+1X=X*XWENDPRINT XA)16 B)19 C)20 D)2514、下列程序运行时输出的结果是______________X=6FOR K=1 TO 8 STEP -3X=X+KNEXT KPRINT K,XA)6 1 B)-1 9 C)1 6 D)6 715、下列程序运行时输出的结果是____________N=0FOR I=1 TO 4FOR J=1 TO IFOR K=J TO 3N=N+1NEXT KNEXT J,IPRINT NA)20 B)22 C)30 D)4016、有如下程序a$="France"m$=MID$(a$,3,2)FOR j=1 to 5b$ =inputbox(“请输入：”)e=INSTR(b$,m$)s=s+eNEXT jPRINT s运行后输入内容Iran,China,Japan,Afghanistan,Guyana 输出结果是A) 5 B) 11 C) 16 D) 2117、有如下程序n=3FOR K=3 TO 1 STEP -1x$=STRING$(k,"!")PRINT n; x$;n=n-1NEXT KEND运行时输出的结果是A）3！！！2！！1! B）1!2!!3!!! C）3!!2! 1 D）2!!!1!!0!18、下列程序运行时输出的结果是______________FOR I=1 TO 8FOR I=1 TO 8NEXT JNEXT IPRINT I；A)1 2 3 4 5 6 7 7 B)2 2 2 2 2 2 2 2C)3 3 3 3 3 3 3 3 D)1 2 3 4 5 6 7 819、下列程序运行时输出的结果是______________Y=2FOR K=1 TO 9 STEP -2Y=Y+KNEXT KPRINT Y；KA)1 2 B)2 2 C)3 3 D)2 120、下列程序运行时输出的结果是______________N=1doFOR K=1 TO NPRINT "*"NEXT KPRINTN=N+1IF N>1 THEN endLoop while N=1A)* B)* * C)* * * D)* * * *21、下列程序运行时输出的结果是______________S=0FOR I=1 TO 3S=S+I^2NEXT IPRINT "S="；SA)S=10 B)S=12 C)S=15 D)S=1422、有如下程序FOR j=1 TO 10x=2*j-1IF x/3=x\3 OR x/5=x\5 THEN s=s+xNEXT jPRINT "s=";s运行后输出S的值是A) 27 B) 15 C) 32 D) 2023 、下列程序运行时内层循环的循环总次数是______________.FOR X=1 TO 2FOR Y=0 TO X-1NEXT YNEXT XA)1 B)2 C)3 D)424 、以下______________是正确的FOR-NEXT循环结构.A) FOR X=1 TO STEP 0.1...FOR Y=1 TO STEP 0.2...NEXT X...NEXT YB) FOR I=1 TO 10...NEXT JC) FOR I=N1 TO N2...NEXT I...IF I=0 THEN 50D) X=10FOR I=3 TO -3 STEP -1PRINT X^I...NEXT I25、下列程序运行时输出的结果是______________FOR K=1 TO 4Ak=inputbox(“”)NEXT KFOR K=1 TO 4PRINT AKNEXT KDATA 37,23,46,59A)37 B)59 C)37 D)37 23 46 5923 59 3746 59 3759 59 3726、下列程序运行时输出的结果是______________K=1FOR J=1 TO 5K=K*JNEXT JPRINT K*JA)600 B)120 C)720 D)2527、下列程序运行时输入10输出的结果是______________N=inputbox(“请输入数据“)FOR J=1 TO NK=1K=K*JNEXT JPRINT J；KA)10 11 B)10 20 C)11 10 D)11 128、下列程序运行时分别输入-1,1,-2,2,0输出的结果是______________ A=0:B=0:T=0WHILE T<5X=inputbox(“请输入数据：”)IF X>0 THEN A=A+X ELSE B=B+XT=T+1WENDPRINT "A="；A,"B="；BA)A=3 B=-3 B)A=-3 B=3C)B=3 A=-3 D)B=-3 A=329、下列程序运行时分别输入2,-2,6,9,10输出的结果是______________ A=5FOR A=10 TO 30 STEP 3X=inputbox(“请输入数据：”)K=X+1IF K>=5 THEN endPRINT INT(A/X),NEXT AA)5 7 B)5 -7 C)5 -6 D)2 1030、下列程序运行时输出的结果是______________FOR K=1 TO 3IF K<=1 THEN A=3IF K<=2 THEN A=2IF K<=3 THEN A=1PRINT A；NEXT KPRINT KA)1 1 1 4 B)3 2 1 4 C)3 3 3 3 D)1 2 3 431、下列程序运行时输出的结果是______________A=5:B=10:C=1FOR I=A TO B STEP CPRINT I；A=1:B=3:C=2NEXT IPRINTPRINT A；B；CA)1 3 2 B)1 3 2 C)5 6 7 8 9 10 D)5 6 7 8 9 101 32 5 7 9 13 2 5 10 132、下列程序运行时输入数据5,9,8,2,-99输出的结果是______________B=0X=inputbox(“请输入数据：”)30 WHILE X<>-9940 IF X>B THEN B=XX= inputbox(“请输入数据：”)WENDPRINT B；PRINT ABS(X)A)9 9 B)8 8 C)9 99 D)9 -9933、下列程序运行时输入9，-99999,9,8,3,-9999输出的结果是______________ X=0Y=inputbox(“请输入数据：”)WHILE Y<>-99999 AND X<>3IF Y>X THEN X=YY=inputbox(“请输入数据：”)WENDPRINT ABS(Y)A)9 B)-99999 C)3 D)9999934、下列程序运行时输出的结果是______________FOR I=2 TO 10 STEP 2PRINT I；NEXT IPRINTPRINT "I="；IA)1 3 5 7 9 B)1 2 3 4 5I=12 I=6C)2 4 6 8 10 I=12 D)2 4 6 8 10I=1235、下列程序运行时输出的结果是______________SUM=0FOR J=6 TO 10SUM=SUM+JNEXT JPRINT SUMA)15 B)35 C)40 D)5536、下列程序运行时输出的结果是______________FOR L=1 TO 3A=A+1FOR J=1 TO LA=A+1NEXT JA=A+1NEXT LPRINT AA)3 B)12 C)9 D)637、下列程序运行时外层、中层及内层循环次数分别是______________ FOR A=1 TO 3FOR B=1 TO AFOR C=B TO 3NEXT CNEXT BNEXT AA)21 8 6 B)3 3 3 C)3 6 14 D)8 6 338、下列程序运行时输出的结果是______________N=1For n=1 to 5FOR K=N TO 5PRINT "*"；NEXT KPRINTNext nA)* * * * * B)* C)* * * * * D)* * * * ** * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 39、下列程序运行时输出的结果是______________A=1FOR I=1 TO 100A=A*IPRINT "I="；I,"A="；AIF A>=100 THEN I=100NEXT IA)I=1 A=1 B)1 1 C)I=1 A=1 D)I=1 A=1I=2 A=2 2 2 I=2 A=2 I=2 A=2I=3 A=6 3 6 I=3 A=3 I=3 A=6I=4 A=24 4 24 I=4 A=4 I=4 A=24I=5 A=100 5 120 I=5 A=5 I=5 A=12040、下列程序运行时输出的结果是______________FOR I=19 TO 25 STEP 2FOR D=2 TO I-1IF I/D=INT(I/D) THEN exit forNEXT DIf d=I then PRINT INEXT IA)23 B)22 C)19 D)1919 19 19 2341、设自然数n=6,下列程序运行时输出的结果是______________ N=INPUTbox( "N=")FOR I=3 TO N STEP 2FOR J=2 TO I-1IF I/J=INT(I/J) THEN exit forNEXT JK=INT(I/J)FOR J=2 TO K-1IF K/J=INT(K/J) THEN exit forNEXT JPRINT I；"*"；K；"="；I*KNEXT IA)1*3=3 B)2*3=6 C)2*2=4 D)3*2=61*5=5 2*3=6 5*1=542、下列程序运行时输出的结果是______________A0=0:A1=0:A2=1FOR I=1 TO 3PRINT A0,A1,A2A0=A0+A1+A2A1=A0+A1+A2A2=A0+A1+A2NEXT IA)0 0 1 B)0 0 1 C)0 0 1 D)0 0 11 2 4 1 2 4 4 2 1 1 2 4 7 13 24 1 1 22 7 11 22 22 11 7 43、下列程序运行时输出的结果是______________A=1FOR I=-1 TO -2 STEP -1FOR J=1 TO 2A=A+1NEXT JA=A+1NEXT IPRINT AA)9 B)8 C)7 D)1044、下列程序运行时输出的结果是______________X=1Y=1FOR I=1 TO 3F=X+YX=YY=FPRINT F；NEXT IA)2 3 6 B)2 2 2 C)2 3 4 D)2 3 545、下列程序运行时输出的结果是______________K=0FOR J=1 TO 2FOR I=1 TO 3K=I+1NEXT IFOR I=1 TO 7K=K+1NEXT INEXT JPRINT KA) 10 B) 6 C) 11 D) 1646、有如下程序sum=0FOR k=1 TO 10IF k=10 THEN ELSE sum=sum+kNEXT kPRINT sumEND运行后输出的结果是A) 10 B) 55 C) 45 D) 3647、下列程序是输出1-2000之间所有的阿姆斯特朗数.(阿姆斯特朗数指一个数等于其每一个数字立方之和)请在______________处选择正确答案FOR I=1 TO 2000S=0K=IWHILE K<>0Q=______________[1]R=K-10*QS=S+ ______________[2]K=QWENDIF I=S THEN PRINT INEXT I[1]A)INT(K) B)INT(K/100)C)INT(K/1000) D)INT(K/10)[2]A)K*K*K B)R*R*RC)R*R*R D)I*I*I48、下列程序用来输出101~200之间所有既不能被3整除也不能被8整除的数，请在______________填入正确的内容FOR X=101 TO 200 STEP ______________[1]IF X/3=INT(X/3) ______________[2] X/8=INT(X/8) THEN 40PRINT X,NEXT X[1]A)1 B)3 C)8 D)3*8[2]A)NOT B)OR C)AND D)<>49、下列程序是输出1，1，2，3，5，8，13……的前20项，请在______________填入正确的内容X1=1:X2=1N=0WHILE ______________[1]PRINT X1,X2______________[2]X2=X1+X2: N=N+1WENDA) N<=10 B)N<9 C)N<10 D)N<20A) X1=X1+X2 B)X2=X1+X2 C)X1=X1+N D)X2=X2+N50、如果我国的工农业产值每年以9%增长率增长，问几年后我国产值翻一番，请在______________填入正确的内容P=100R=0.09N=0WHILE P<200P=______________[1]N=______________[2]WENDPRINT N ；"YEARS","P="；P[1]A)1+R B)P*(1+R) C)P*R D)P+1[2]A)N B)P+N C)N+1 D)P51、用近似公式求自然对数的底e 的值!1!31!21!111N e +++++= ,请在______________填入正确的内容T=1E=1N =INPUTbox( "N=")FOR I=1 TO NT=______________[1]E=______________[2]NEXT IPRINT "e="；E[1]A)T+1 B)E+1 C)T*I D)1/T[2]A)1/T B)E+T C)1/E D)E+1/T52、已知任意N 个不相等的数，求所有大于M 的数的和及平均值，请在______________填入正确的内容M=inputbox(“输入一个数”)N=inputbox(“输入一个数”)J=0:S=0FOR I=1 TO NX=INPUTbox(“ X=”)IF X>M THEN S=S+X:______________[1] NEXT IIF J=0 THEN ______________[2]V=S/JPRINT S,V:IF I=1 THEN endPRINT "ALL<=M"[1]A)J=J-1 B)J=J+1 C)J=J D)J=J+1[2]A)90 B)110 C)100 D)20053、计算∑=+nii13/4)12(1的值53/410)12(1-<+i时，输出表达式的值及累加的项数，请在______________填入正确的内容S=0:I=1WHILE ______________[1]S=S+1/(2*I+1)^(4/3)______________[2]WENDPRINT S,I-1[1]A)1/(2*I+1)^(4/3)<1E-5 B)1/(2*I+1)^(4/3)<=1E-5C)1/(2*I+1)^(4/3)<>1E-5 D)1/(2*I+1)^(4/3)>=1E-5[2] A)I=I+2 B)I=I-1 C)I=I+1 D)I=154 、有如下程序j=0: n=0WHILE n<3j=(j+1)*(j+2) : n=n+1WENDPRINT j; n运行后输出的结果是A) 0 1 B) 182 3 C) 30 4 D) 3 355 、有如下程序n=3FOR K=3 TO 1 STEP -1x$=STRING$(n,"$") :PRINT k; x$n=n-1NEXT K运行后输出的结果是A) 3 $$$ B) 1 $ C) 3 $ D) 1 $2 $$ 2 $$ 2 $$ 2 $$1 $ 3 $ 1 $$$ 3 $$$ 56、有如下程序sum=0FOR m=1 TO 3IF m<=1 THEN a=1 ELSE IF m<=2 THEN a=2 ELSE IF m<=3 THEN a=3 ELSE a=4PRINT a;sum=sum+aNEXT mPRINT sumEND运行后输出的结果是A) 3 3 3 9 B) 3 2 1 6 C) 1 1 1 3D) 1 2 3 657、有如下程序FOR j=1 TO 20a=a+j\7NEXT jPRINT a在运行时输出a的值是A) 21 B) 41 C) 63 D) 21058 有如下程序运行后输出的结果是b=1a=2WHILE b<10b=2*a+bENDDOPRINT bA) 13 B) 17 C) 21 D) 3359、有如下程序输入数据75,55,45,80运行时输出的结果是a=70FOR j=1 TO 4X=inputbox(“x=”)If x<a THENb=b+x:a=xELSEb=b+aEnd ifNEXT jPRINT bENDA) 215 B) 250 C) 290 D) 28560、有如下程序运行时输出的结果是a$=”54321”:b$=”abcde”FOR j=1 TO 5PRINT MID$(a$,6-j,1)+MID$(b$,j,1);NEXT jPRINTA) a1b2c3d4e5 B) a5b4c3d2e1 C) eld2c3b4a5 D) 1a2b3c4d5e61、有如下程序运行后输出的结果是FOR j=1 TO 3PRINT TAB(3*j);11*(2*j-1);NEXT jPRINTA) 11 B) 11 C) 11 D) 11 33 5533 33 3355 55 5562、有如下程序输入数据9,8,7,6,5,4,3,2,1,0运行时输出的结果是c=4d=inputbox(“d=”)WHILE d>0IF d>c THEN c=c+1d=inputbox(“d=”)WENDPRINT c+dA) 5 B) 6 C) 7 D) 863、有如下程序运行后，输出的结果是a=0FOR j=1 TO 20 STEP 2a=a+j\5NEXT jPRINT aA) 12 B) 16 C) 40 D) 10064、有如下程序运行后的输出结果是s=0i=1do WHILE i<=100IF i MOD 10<>0 THEN s=s+i :i=i+1 ELSE i=i+1loopPRINT sA) 4050 B) 5050 C) 5000 D) 450065、有如下程序运行后输出结果是FOR m=1 TO 4a=0FOR j=1 TO 5a=1FOR k=1 TO 6a=a+3NEXT kNext jNEXT mPRINT aA) 18 B) 19 C) 90 D) 36066、有如下程序在运时输出a的值是FOR i=1 TO 3FOR j=5 TO i step -1FOR k=j TO 6a=a+1NEXT kNEXT jNEXT iPRINT aA) 12 B) 14 C) 43 D) 6067、有如下程序，运行时输出的结果是sum=0FOR k=1 TO 10IF k<=5 THEN sum=sum-k ELSE sum=sum+kNEXT kPRINT sumA）0 B）5 C）25 D）5568、有如下程序运行后输出s的值是FOR j=1 TO 30x=2*j-1IF x MOD 3=0 OR x MOD 7=0 THEN s=s+1NEXT jPRINT "s=";sA）1 B）13 C）14 D）29。

VB重点一、选择题（30×1.5′=45′）1.在VB程序设计中，响应对象的外部动作称为事件，而对象可以执行的动作或对象本身的行为则称为方法。

2.在VB6.0集成开发环境中不能完成的工作是自动查找并改正程序中的错误。

3.VB6.0集成开发环境不包括DOS界面窗口。

4.当运行程序时，系统自动执行启动窗体的Load事件过程。

5.下面关于对象的描述中，对象就是自定义结构变量是错误的。

6.如果在窗体上已经创建了一个文本框对象Text1，可以通过事件KeyPress 获得输入键值的ASCII码。

7.VB是一种基于对象的可视化程序设计语言，采取了事件驱动的编程机制。

8.在VB中最基本的对象是窗体，它是一块“画布”，是其他控件的容器。

9.有程序代码如下：Text1.Text=”Text1text”则Text1、Text、Text1text分别代表对象、属性、值。

10.要使标签控件显示时不覆盖其背景内容，需对其BackStyle属性进行设置。

11.要使命令按钮不可操作，需对其Enabled属性进行设置。

12.文本框没有Caption属性。

13.不论何种控件，共同具有的是Name属性。

14.要使Form1窗体的标题栏显示“欢迎使用VB”，下列语句中Form1.Caption=”欢迎使用VB”是正确的。

15.要使窗体在进行时不可改变大小和没有最大化和最小化按钮，只要对其BorderStyle属性进行设置即可。

15.文本框的ScrollBars属性设置了非零值，却没有效果，原因是文本框的MultiLine属性为False。

15.要判断在文本框中是否按下了Enter键，应使用文本框的KeyPress事件。

16.保存新建的工程时，默认的路径是Windows。

17.将调试通过的工程经“文件”菜单中的“生成exe文件”命令编译成.exe文件后，该可执行文件到其他机器上不能进行的主要原因是运行的机器上无VB系统。

18.在安装了VB帮助系统后，当需要上下文帮助时，选择要帮助的“难题”，然后按F1键，就可出现MSDN窗口及显示所需“难题”的帮助信息。

VB循环结构及数组练习一、单选题1.执行以下程序段后，i的值为（B）For i = 1 To 10 Step 2y = y + iNext iA）10 B）11 C）12 D）252.假定有如下语句：Private Sub Command1_Click()Counter = 0For i = 1 To 4For j = 6 To 1 Step -2Counter = Counter + 1Next jNext iLabel1.Caption = Str(Counter)End Sub程序运行后，结果为（B）A）11 B）12 C）16 D）203. 假定有如下语句：Private Sub Command1_Click()For i = 1 To 4If i = 1 Then x = iIf i <= 4 Then x = x +1Print x;End Sub程序运行后，结果为A）1 2 3 4 B）2 3 4 5 C）2 3 4 4 D）3 4 5 64.哪个程序段不能分别正确显示1!、2!、3!、4!的值（B）A）For i = 1 To 4n = 1For j = 1 To in = n * jNext jPrint nNext iB）For i = 1 To 4For j = 1 To in = 1n = n * jNext jPrint nNext iC）n = 1For j = 1 To 4n = n * jPrint nNext jD）n = 1: j = 1Do While j <= 4n = n * jPrint nj = j + 1Loop5. 编写如下的事件过程：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$(65 + i);Next jPrintNext iEnd Sub程序运行后，在窗体上显示的内容是（A）A）BB B）A C）B D）AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD6. 编写如下的事件过程：Private Sub Command1_Click()Dim x,n As Integerx = 1n = 0Do While x < 20x = x * 3n = n + 1LoopText1.Text = Str (x)Text2.Text = Str (n)End Sub运行程序后，在2个文本框中显示的值分别是（B）A）20和1 B）27和3 C）195和3 D）600和47. 编写如下的事件过程：Private Sub Command1_Click()Dim i,n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNextText1.Text = Str (n)End Sub运行后，文本框中显示的值是（B）A）2 B）3 C）4 D）58. 编写如下的事件过程：Private Sub Command1_Click()c = 1234c1 = Trim (Str(c))For i = 1 To 4Print ________NextEnd Sub运行程序后，窗体上显示如下11 21 2 31 2 3 4则应该在________处填写的表达式是（B）A）Right (c1,n) B）Left (c1,i) C）Mid (c1,n,1) D）Mid (c1,n,n)9. 编写如下的事件过程：Private Sub Command1_Click()n = Val (Text1.text)For i = 2 To nFor j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是：（C）A）输出n以内的奇数B）输出n以内的偶数C）输出n以内的素数D）输出n以内能被j整数的数10. 编写如下的事件过程：For i = 1 To 3For j = 5 to 1 Step -1Print i*jNext j,i则语句Print i*j 的执行次数是（A）A）15 B）16 C）17 D）1811.以下程序段输出结果为（B）x = 1y = 4Do Until y > 4x = x * yy = y + 1LoopPrint xA）1 B）4 C）8 D）2012.执行下面的程序段后，x的值为（A）x = 5For i = 1 To 20 Step 2x = x + i\5Next iA）21 B）22 C）23 D）2413. 编写如下的事件过程：Private Sub Command1_Click()For i = 1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序运行后，输出结果是（B）A）7 B）15 C）157 D）538 14.有如下的程序段：For i = 1 To 3For j = 1 To ia = a + 1Next jNext i执行上面程序后，a的值为（C）A）3 B）9 C）6 D）2115.有如下的程序段：n = 0For i = 1 To 3For j = 1 To iFor k = j To 3n = n + 1Next kNext jNext i执行上面程序段后，n的值为：（B）A）3 B）14 C）9 D）2116.阅读程序Private Sub Form_Click()x = 50For i = 1 To 4y = InputBox (“请输入1个整数”)y = Val (y)If y Mod 5 = 0 Thena = a + yx = yElsea = a + xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（A）A）100 B）50 C）120 D）701.如有以下程序代码：Option Base 1Private Sub Command1_Click()d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) > c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后，在窗体上输出的内容为（C）A）89 B）99 C）23 D）772.下面语句定义的数组元素个数中（C）Dim arr(3 To 5, -2 To 2)A）20 B）12 C）15 D）243. 下面语句定义的数组元素个数中（D）Dim a(-3 To 4, 3 To 6)A）18 B）28 C）21 D）324. 如有以下程序代码：Private Sub Command1_Click()Dim arr1(10), arr2(10)For i = 1 To 10arr1(i) = 3 * iarr2(i) = arr1(i) * 3Next iText1.Text = Str(arr2(i / 2 - 0.1))End Sub程序运行后，在文本框显示的是（B）A）36 B）45 C）54 D）635. 如有以下程序代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 1 To 4s = s + a(i) * jj = j * 10Next iPrint sEnd Sub运行程序后，在窗体上输出的内容为（D）A）1234 B）12 C）34 D）43216. 如有以下程序代码：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub运行程序后，在窗体上输出的内容为（A）A）12 B）13 C）14 D）157.假设通过复制、粘贴建立了一个命令按扭数组Command1，则以下说法错误的是（D）A）数组中每个命令按扭的名称（Name属性）均为Command1B）数组中每个命令按扭的大小都一样C）数组中每个命令按扭可以使用同一个时间过程D）用名称Command1可以访问数组中每个命令按扭8. 如有以下程序代码：Private Sub Command1_Click()Dim arr1(10), arr2(10) As Integern = 3For i = 1 To 5arr1(i) = iarr2(n) = 2 * n + iNext iPrint arr2(n); arr1(n)End Sub运行程序后，在窗体上输出的内容为（A）A）11 3 B）3 11 C）13 3 D）3 139.如有以下程序代码：Private Sub Command1_Click()Dim arr(3, 3) As IntegerFor i = 1 To 3For j = 1 To 3If j = i Or j = 3 - i + 1 Thenarr(i, j) = 1Elsearr(i, j) = 0End IfNext jNext iPrint arr(1, 1) + arr(2, 2) + arr(3, 3)End Sub运行程序后，在窗体上输出的内容为（D）A）0 B）1 C）2 D）310.如有以下程序代码：Option Base 1Dim a() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim a(3, 2)For i = 1 To 3For j = 1 To 2a(i, j) = i * jNext jNext iReDim Preserve a(3, 4)For i = 3 To 4a(3, i) = i + 5Next iPrint a(3, 2); a(3, 4)End Sub运行程序后，在窗体上输出的内容为（B）A）0 0 B）6 9 C）7 12 D）8 1311.在窗体上话3个单选按扭，组成1个名为chkOption的控件数组。

1.打印有规律图形Private Sub Form_Click()For i = 1 To 9Print Tab(20 - i); String(2 * i - 1, Trim(Str(i))) Next iPrint Tab(10); String(19, Right(Str(i), 1)) End Sub2.近似计算pi的值；Private Sub Command1_Click()n = Text1pi = 2For i = 1 To na = (2 * i) * (2 * i) / ((2 * i - 1) * (2 * i + 1)) pi = pi * aNext iText2 = piEnd Sub3.显示图形Private Sub Picture1_Click()Dim se As StringFor i = 1 To 6s = 0For j = 1 To is = 10 * s + jIf i Mod 2 = 0 Thense = "-" & sPicture1.Print Tab(j * 9 + 1); se; Else: se = sPicture1.Print Tab((j) * 9 + 2); se; End IfNext jPicture1.PrintNext iEnd Sub4.显示水仙花数，三位数的Private Sub Form_Click()For s = 100 To 999a = s \ 100b = (s - 100 * a) \ 10c = s - 100 * a - 10 * bIf s = a * a * a + b * b * b + c * c * c Then Print sEnd IfNext sEnd Sub5.求sn=a+aa+aaa……+aaaa（n个a）a是1到9的随机数，n是5到10的随机数Private Sub Command1_Click()m = Int(Rnd * 9 + 1)n = Int(Rnd * 6 + 5)temp = 0s = 0For i = 1 To ntemp = temp * 10 + ms = s + tempNext iPrint sPrint mPrint nEnd Sub6.规范文字句子开头大写，其他都小写，句子结束符号位“.”“！”“？”Option ExplicitPrivate Sub Command1_Click()Dim T As String, i, S As String, zf As StringDim OutPut As StringT = "."zf = Trim(Text1.Text)For i = 1 To Len(zf)S = Mid(zf, i, 1)OutPut = OutPut & IIf(InStr("?.!？。

一、VB 基本知识及选择、循环结构习题一、基本概念题（1） 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。

100.0 %100 1E1 123D3 123,456 0100“ASDF” “1234.5” #2004/10/7# 100# π&O78 &H123 True T -1123! 345.54#（2）下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.345（3） 下列符号中，哪些可以是Visual Basic 的合法变量名？A123 a12_3 123_a a,123 a 123 IntegerXYZ False Sin(x) 变量名 sinx π（4）把下列数学表达式写成Visual Basic 表达式：（1）5||z y x ++ （2）6)1(xy +（3）xy y x 310+ （4）a ac b b 242-+- （5）3211111r r r ++ （6）110ln 45sin 10++++y x e（5）写出下列表达式的值：（1）123 + 23 Mod 10 \ 7 + Asc("A")（2）Int(68.555 * 100 + 0.4) / 100（3）#11/22/2004# - 10（4）"ZXY" & 123 & "abc"（6）设a=7，b=3，c=4，求下列表达式的值：（1）a + 3 * c （2）a ^ 2 / 4（3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 5（7）写出下列函数的值：（1）Int(-3.14159) （2）Fix(-3.14159)（3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计")（5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2)（7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3)（9）Left("Hellow VB!", 3) （10）Val("16个加23个")（11）Str(-459.55) （12）UCase("Visual Basic")二、 选择题（1）可以同时删除字符串前导和尾部空格的函数是 。

一、分支结构（一）选择1、下列关于块if语句的叙述中，正确的是。

A．Then后面的语句组不能省略B．Else后面的语句不能省略C．Then和Else后面的语句组都不能省略D．Then和Else后面的语句组都可以省略2、下列Case语句中表示错误的是。

A．Case 0 To 10 B．Case Is>10C．Case Is>10 And Is<50D．Case 3,5,8,123、下列Case语句中表示错误的是。

A．Case 2,4,6,8,10 B．Case 10 To 1C．Case Is<10 D．Case "a" To "z"4、下列关于块If…Then…ElseIf语句结构的叙述中，正确的是。

A．可以有多个elseif语句B．可以有多个Else语句C．整个结构必须以一个End If语句结束D．Elseif语句、Else语句都是可选的5、关于下列所示的选择结构中，叙述正确的是。

If <条件1> Then[<语句组1>]ElseIf <条件2>[<语句组2>]ElseIf <条件3>[<语句组3>]End IfA．如果条件设置不当，则所有分支都可能被执行到B．如果条件设置不当，则所有分支都可能不被执行到C．无论条件怎样设置，都至少有一个分支被执行到D．无论条件怎样设置，都有且只有一个分支被执行到6、关于下列所示的选择结构中，叙述正确的是。

If <条件1> Then[<语句组1>]Else[<语句组2>]End IfA．如果条件设置不当，则所有分支都可能被执行到B．如果条件设置不当，则所有分支都可能不被执行到C．无论条件怎样设置，所有分支都会被执行到D．无论条件怎样设置，都有且只有一个分支被执行到7、下列程序段用于求x的绝对值，并存储在y中，正确的是。

最新VB循环结构练习题资料VB循环结构练习题一、分析程序的运行结果（每题2分，共60分）1>以下循环的执行次数是______ OK=0Do While k<=10k=k+1Loop2、 _____________________________________ 下列程序段的执行后输出的结果为____________________ ol=4:A=5Do1=1+1 :A=A+2Loop Until l>=7Print "A=";A3、__________________________ 下列程序的执行结果是oT = O : m = 1 : Sum = 0Dot = t + m : Sum = Sum + t: m = m + 2Loop While m <= 9Print Sum4、_________________________________ 下列程序段的执行时，共循环_________________________ 次。

For a=0 To 1For b=1 To 2For c=1 To 31=1+1 Next cNext bnext a5、下列程序段的运行结果是：Sub sele()Dim n as Integer1=21 :n=3Do While l>nl=l-nLoopPrint IEnd Sub打印结果_____ o6、___________________________________ 执行下面的程序段后，s 的值为_________________ oS=5For l=2.6 To 4.9 Step 2s=s+1Next I7、下列程序段的执行后输出的结果为__________K= 1For I = 1 To 3A=I A I A KNext IPrint A8、___________________________ 下列程序的执行结果是_______________________ o M1 = 1:m2 = 1Do While m2<>6ml = m1*m2 : m2 = m2+1LoopPrint ml9、下列程序的执行结果是_____ oPrivate Function P(N As Integer)For I = I To NSUM = SUM + 1Next IP = SUMEnd FunctionPrivate Sub Command 1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End Sub10、以下程序用来输出1到100所有奇数的和，请补充完该程序。

松山区职教中心2010-2011学年度上学期计算机专业第六章循环结构VB试题班级：________考号：________姓名：________总分：_____第一部分:vb（184分）一、单项选择1、某人设计了如下程序用来计算并输出7！（7的阶乘)private sub command1_click( )t=0for k = 7 to 2 step -1t=t*knextprint tend sub执行程序时，发现是错误的，下面修改方案中能够得到正确结构的是( )(2分)A、把"t=0"改为"t=1"B、把"for k = 7 to 2 step -1"改为"for k = 7 to 1 step -1"C、把"for k =7 to 2 step -1"改为"for k=1 to 7"D、把"next"改为"next k"2、窗体上有一个名称为List的列表框，其中已经输入了若干个项目，分别为“北京、上海、南京、杭州、广州”，还有2个文本框，名称分别为Text 1 、text 2、 1个名称为Command1 的命令按钮，并有一下程序：Priveate sub command1 _ Click()Dim str As string, s As String ,K As IntegerS=Text1str =""for k= List.Listcount -1 to 0 step-1if InStr (Lsit .list (k), s )>0 thenstr =str&lList1.List (k)&“ ”End ifNext kif str =" " thentext2="没有配备的项目"ElseText2 = strEnd ifEnd Sub程序运行时，在text1.中输入”京”，单击命令按钮，则在text2 中显示的内容 ( )(2分)A、京B、北京南京C、南京北京D、没有匹配的项目3、在窗体上画一个名称为LIST1的列表框，一个名称为LABEL1的标签，列表框中显示若干城市的名称，当单击列表框中的某个城市名时，在标签中显示选中城市的名称。

一、选择题1、无条件转移GoTo语句后面是（A）A、标号或行号B、输出语句C、输入语句D、子过程2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A）A、冒号B、分号C、逗号D、空格3、无条件转移GoTo语句后面的行号或标号在同一过程中（A）A、必须唯一B、可以重复C、以数字开头D、以汉字开头4、while循环结构中的条件表达式取值为（A）A、TrueB、FalseC、True或FalseD、05、while循环结构中的条件表达式取值为（A）时执行语句组A、TrueB、FalseC、True或FalseD、06、while循环结构中与（A）匹配使用，不能单独出现A、WendB、endC、loopD、next7、Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、38、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、39、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B）A、0B、1C、2D、310、Do…loop循环结构中的Exit Do语句的功能是（B）A、退出整个程序B、退出当层循环C、退出最外层循环D、退出所在子程序11、Do…loop中使用while关键字时，条件为（B）执行循环体A、FalseB、TrueC、0D、假或真12、Do…loop中使用until关键字时，条件为（A）执行循环体A、FalseB、TrueC、0D、假或真13、Do…loop中使用while关键字时，条件为（A）终止循环A、FalseB、TrueC、0D、假或真14、Do…loop中使用until关键字时，条件为（B）终止循环A、FalseB、TrueC、0D、假或真15、For…Next循环结构中（C）用来控制循环变量A、forB、stepC、nextD、to16、For…Next循环结构中step用来控制（D）A、循环变量B、循环变量初值C、循环变量终值D、循环变量增量17、For…Next循环结构中循环变量初值大于终值时,步长为（A）A、负数B、非负数C、正整数D、正数18、For…Next循环结构中循环变量初值小于终值时,步长为（A）A、负数C、正整数D、正数19、For…Next循环结构中next后的循环变量（A）A、可以省略B、不可以省略C、与for后的变量名可以不同D、与for后的变量不是同一变量20、For…Next中循环变量初值与终值间使用的关键字是（A）A、ToB、InC、gotoD、private21、For…Next中循环变量初值与终值间使用的关键字是（A）A、ToB、InC、gotoD、private22、执行下面的程序段后，s的值为（C）Private Sub Form_Click()Static s As Integers = 5For i = 1.4 To 2.1 Step 0.6s = s + 1Next iPrint sEnd SubA、5B、6C、7D、123、下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（Ａ）Private Sub Command1_Click()For m = 1 To 10x = Int(Rnd * 101+100)If（）ThenPrint x;End IfNext mEnd SubA、x mod 5=0B、x mod 5==0C、x/5=024、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（A）A、33B、35C、37D、3825、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private Sub Command1__Click()X=0N=val(inputbox(“n=?”))For i=1 to nFor j=1 to iX=x+1Next jNext iPrint xEnd sub程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D)A、9B、44C、5D、626、以下能够正确计算n！的程序是（C）A、private sub command1__click()N=5 : x=1DoX=x*1I=i+1Loop while i<nPrint xEnd subB、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<nPrint xEnd subC、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<=nPrint xEnd subD、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i > nPrint xEnd sub27、在窗体上画一个命令按纽Command1，标签Label1然后编写如下事件过程：Private sub command1_click()For i=1 to 15X=2*i-1If x mod 3=0 then s=s+1Next iLabel1、caption =sEnd sub程序运行后,单击命令按钮,标签中显示的内容是( B )A、1B、5C、27D、4528、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private sub command1_click()For i=1 to 4For j =0 to iPrint chr$(65+i)Next iPrintEnd sub程序运行后,单击命令按钮,窗体中显示的内容是( A)A、BBCCCDDDDEEEEEB、ABBCCCDDDDC、BCCDDDEEEED、AABBBCCCCDDDDD28、在窗体上画两个名称分别为text1，text2的文本框和一个名称为command1的命令按钮，然后编写如下事件过程：Private sub command1_click()Dim x as integer，n as integerX=1 ：n=0Do while x < 20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)End sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)A、15和1B、27和3C、195和3D、600和429、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(5),b(5)For j =1 to 4A(j)=3*jB(j)=a(j)*3Next jText1、text=b(j\2)End Sub程序运行后，单击命令按钮，在文本框中显示（ B ）A、25B、18C、36D、3530、下面程序运行时，内层循环的循环总次数是（A）For m = 1 To 3For n = 0 To m - 1Next nNext mA、6B、3C、0D、931、定义语句Dim A (-3 to 3) as Integer，定义数组的元素个数是（D）A、6B、3C、0D、732、执行下面的程序段后，X的值为（C）X=5For I=1 to 10 Step 2X=X+I\5Next IA、7B、10C、8D、533、如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（D ）For I=a to bPrint INext IA、0B、1C、2D、334、下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是（D ）A、do while …loop循环和do…loop until循环至少都执行一次B、do while …loop循环和do…loop until循环可能都不执行C、do while …loop循环至少执行一次，do…loop until循环可能不执行D、do while …loop循环可能不执行，do…loop until循环至少执行一次35、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4a = 1For j = 1 To 3a = 2For k = 1 To 2a = a + 6Next kNext jNext iPrint aEnd Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（A ）A、14B、15C、16D、1736、设有如下程序：Private Sub Form_Click()a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iPrint aEnd Sub程序运行后，单击窗体，则在窗体上显示的内容是（ B ）A、6B、5C、4D、337、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：sub ss (b() as Integer )For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6a(3) = 7: a(4) = 8ss a()For i = 1 To 4Print a(i)Next i运行上面的程序，单击命令按钮，则在窗体上显示的内容是（B ）A、5 6 7 8B、2 4 6 8C、1 2 3 4D、5 7 6 838、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Function fun(x As Integer)Static zy = y + 1: z = z + 1fun = x + y + zEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx = 1For i = 1 To 2Print fun(x)Next iEnd Sub程序运行后，如果单击命令按钮，窗体中显示的内容是（B ）A、3 3B、3 4C、3 5D、3 639、若I、n均为整型变量，下列程序段的输出结果为（C）Private Sub Form_Click()n = 0For i = 1 To 10If i Mod 2 = 1 Then n = n + 1Next iPrint nEnd SubA、0B、4C、5D、340、在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如下代码：Private Sub Form_click ()Text1、Text = ""Text1、SetFocusFor i = 1 To 10Sum = Sum + iNext iText1、Text = Sum上述程序运行后，单击窗体，则运行的结果（A ）A、在文本框Text1中输出55B、在文本框Text1中输出0C、出错D、在文本框Text1中输出不定值41、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Private Sub Command1_Click()x = 0Do Until x = -1a = InputBox("请输入A的值")a = Val(a)b = InputBox("请输入B的值")b = Val(b)x = InputBox("请输入X的值")x = Val(x)a = a +b + xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入1<CR>2<CR>3<CR>4<CR>5<CR>-1<CR>，则输出结果为（A）A、8B、9C、14D、1542、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（A ）A、33B、35C、37D、3843、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = 2For i = 1 To 3b = F(a)Print bNext iEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（A ）A、4 5 6B、1 2 3C、0 1 2 3D、2 3 444、在窗体上画一个命令按钮，名称为Command1。

vb循环结构选择题vb循环结构选择题一、选择题1、无条件转移GoT o语句后面是（A）A、标号或行号B、输出语句C、输入语句D、子过程2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A）A、冒号B、分号C、逗号D、空格3、无条件转移GoT o语句后面的行号或标号在同一过程中（A）A、必须唯一B、可以重复C、以数字开头D、以汉字开头4、while循环结构中的条件表达式取值为（A）A、TrueB、FalseC、True或FalseD、05、while循环结构中的条件表达式取值为（A）时执行语句组A、TrueB、FalseC、True或FalseD、06、while循环结构中与（A）匹配使用，不能单独出现A、WendB、endC、loopD、next7、Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、38、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、39、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B）A、0B、1C、2D、310、Do…loop循环结构中的Exit Do语句的功能是（B）A、退出整个程序B、退出当层循环C、退出最外层循环D、退出所在子程序11、Do…loop中使用while关键字时，条件为（B）执行循环体A、FalseB、TrueC、0D、假或真12、Do…loop中使用until关键字时，条件为（A）执行循环体A、FalseB、TrueC、0D、假或真13、Do…loop中使用while关键字时，条件为（A）终止循环A、FalseB、TrueC、0D、假或真14、Do…loop中使用until关键字时，条件为（B）终止循环A、FalseB、TrueC、0D、假或真15、For…Next循环结构中（C）用来控制循环变量A、forB、stepC、nextD、to16、For…Next循环结构中step用来控制（D）A、循环变量B、循环变量初值C、循环变量终值D、循环变量增量17、For…Next循环结构中循环变量初值大于终值时,步长为（A）A、负数B、非负数C、正整数D、正数18、For…Next循环结构中循环变量初值小于终值时,步长为（A）A、负数C、正整数D、正数19、For…Next循环结构中next后的循环变量（A）A、可以省略B、不可以省略C、与for后的变量名可以不同D、与for后的变量不是同一变量20、For…Next中循环变量初值与终值间使用的关键字是（A）A、T oB、InC、gotoD、private21、For…Next中循环变量初值与终值间使用的关键字是（A）A、T oB、InC、gotoD、private22、执行下面的程序段后，s的值为（C）Private Sub Form_Click()Static s As Integers = 5For i = 1.4 To 2.1 Step 0.6s = s + 1Next iPrint sEnd SubA、5B、6C、7D、123、下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（Ａ）Private Sub Command1_Click()For m = 1 To 10x = Int(Rnd * 101+100)If（）ThenPrint x;End IfNext mEnd SubA、x mod 5=0B、x mod 5==0C、x/5=024、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（A）A、33B、35C、37D、3825、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private Sub Command1__Click()X=0N=val(inputbox(“n=?”))For i=1 to nFor j=1 to iX=x+1Next jNext iPrint xEnd sub程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D)A、9B、44C、5D、626、以下能够正确计算n！的程序是（C）A、private sub command1__click()N=5 : x=1DoX=x*1I=i+1Loop while i<n< p="">Print xEnd subB、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<n< p="">Print xEnd subC、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<=nPrint xEnd subD、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i > nPrint xEnd sub27、在窗体上画一个命令按纽Command1，标签Label1然后编写如下事件过程：Private sub command1_click()For i=1 to 15X=2*i-1If x mod 3=0 then s=s+1Next iLabel1、caption =sEnd sub程序运行后,单击命令按钮,标签中显示的内容是( B )A、1B、5C、27D、4528、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private sub command1_click()For i=1 to 4For j =0 to iPrint chr$(65+i)Next iPrintEnd sub程序运行后,单击命令按钮,窗体中显示的内容是( A)A、BBCCCDDDDEEEEEB、ABBCCCDDDDC、BCCDDDEEEED、AABBBCCCCDDDDD28、在窗体上画两个名称分别为text1，text2的文本框和一个名称为command1的命令按钮，然后编写如下事件过程：Private sub command1_click()Dim x as integer，n as integerX=1 ：n=0Do while x < 20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)End sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)A、15和1B、27和3C、195和3D、600和429、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(5),b(5)For j =1 to 4A(j)=3*jB(j)=a(j)*3Next jText1、text=b(j\2)End Sub程序运行后，单击命令按钮，在文本框中显示（ B ）A、25B、18C、36D、3530、下面程序运行时，内层循环的循环总次数是（A）For m = 1 To 3For n = 0 To m - 1Next nNext mA、6B、3C、0D、931、定义语句Dim A (-3 to 3) as Integer，定义数组的元素个数是（D）A、6B、3C、0D、732、执行下面的程序段后，X的值为（C）X=5For I=1 to 10 Step 2X=X+I\5Next IA、7B、10C、8D、533、如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（ D ）For I=a to bPrint INext IA、0B、1C、2D、334、下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是（ D ）A、do while …loop 循环和do…loop until循环至少都执行一次B、do while …loop循环和do…loop until循环可能都不执行C、do while …loop循环至少执行一次，do…loop until循环可能不执行D、do while …loop循环可能不执行，do…loopuntil循环至少执行一次35、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4a = 1For j = 1 To 3a = 2For k = 1 To 2a = a + 6Next kNext jNext iPrint aEnd Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（ A ）A、14B、15C、16D、1736、设有如下程序：Private Sub Form_Click()a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iPrint aEnd Sub程序运行后，单击窗体，则在窗体上显示的内容是（ B ）A、6B、5C、4D、337、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：sub ss (b() as Integer )For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6a(3) = 7: a(4) = 8ss a()For i = 1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，则在窗体上显示的内容是（ B ）A、5 6 7 8B、2 4 6 8C、1 2 3 4D、5 7 6 838、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Function fun(x As Integer)Static zy = y + 1: z = z + 1fun = x + y + zEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx = 1For i = 1 To 2Print fun(x)Next iEnd Sub程序运行后，如果单击命令按钮，窗体中显示的内容是（ B ）A、3 3B、3 4C、3 5D、3 639、若I、n均为整型变量，下列程序段的输出结果为（C）Private Sub Form_Click()n = 0For i = 1 To 10If i Mod 2 = 1 Then n = n + 1Next iPrint nEnd SubA、0B、4C、5D、340、在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如下代码：Private Sub Form_click ()Text1、Text = ""Text1、SetFocusFor i = 1 To 10Sum = Sum + iNext iText1、Text = SumEnd Sub上述程序运行后，单击窗体，则运行的结果（ A ）A、在文本框Text1中输出55B、在文本框Text1中输出0C、出错D、在文本框Text1中输出不定值41、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Private Sub Command1_Click()x = 0Do Until x = -1a = InputBox("请输入A的值")a = Val(a)b = InputBox("请输入B的值")b = Val(b)x = InputBox("请输入X的值")x = Val(x)a = a +b + xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入12345-1，则输出结果为（A）A、8B、9C、14D、1542、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（ A ）A、33B、35C、37D、3843、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = 2For i = 1 To 3b = F(a)Print bNext iEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（ A ）A、4 5 6B、1 2 3C、0 1 2 3D、2 3 444、在窗体上画一个命令按钮，名称为Command1。

V B循环结构测试题及答案内部编号：（YUUT-TBBY-MMUT-URRUY-UOOY-DBUYI-0128）循环结构测试题(四)一：选择题1：以下（）是正确的for….next结构。

（A）for x=1 to step 10 (B) for x=3 to –3 step -3….. …..next x next x(C ) for x=1 to 10 (D) for x=3 to step 3re: …. ……Next x next yIf I=10 then goto re2:下列循环语句能正常结束循环的是（）（A）I=5 (B) I=1do doI=I+1 I=I+2Loop until I<0 loop until I=10(C) I=10 (D) I=6do doI=I-1 I=I-2Loop until I<0 loop until I=13:下面程序段的运行结果为（）for I=3 to 1 step –1print spc(5-I);for j=1 to 2*I-1 print “*”; next j print next I4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（ ） private sub text1_change( ) print ; end sub(A) ABCD (B) ( C ) AABABCABCD5哪个程序段不能分别正确显示1!,2!,3!,4!的（ ） 二：填空题1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*”。

For I=1 to 5For j=2 to IPrint “*”; Next j Next I* * * * (B) * * * * * * * * (C) * * * * * * * *(D) * * * * ** * *A BCD(D) AAB ABCABCD（A ）for I=1 to 4n=1 for j=1 to （B ） for I=1 to 4for j=1 toI(C) N=1for j=1 to 4 (D)N=1 J=1 Do whilej<=430for j=1 to 12 step 340for k=6 to 2 step –241print j,k42next k43next j4: 以下程序运行后，si,sj,I,j,k的结果分别是（⑤），（⑥），（⑦），（⑧），（⑨），（⑽）private sub command1_click( )for I=1 to 2for j=1 to Isk=0for k=j to 3sk=sk+1next ksj=sj+1next jsi=si+1next Iprint si,sj,sk,I,j,kend sub5:下面程序运行后输出的结果是（⑾）private sub command1_click()print tab(5*I+1);”2”+I;”2”&I;next Iend sub6:下面程序运行后输出的结果是（⑿） private sub command1_click()a$=”*”;b$=”$”for I=2 to 4if I mod 2=0 thenx$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)end ifprint x$;next Iend sub7: 执行下面程序，打印结果是（⒀）option explicitprivate sub form_click( )dim I as integer,j as integerj=10for I=1 to j step 2I=I+1Next IPrint I,jEnd sub8:输入任意长度的字符串，要求将字符顺序倒置，例如：将输入“ABCDEFG”变换成“GFEDCBA”private sub command1_click()dim a$,I%,c$a=inputbox(“输入字符串”)n=( ⒁ )for I =1 to ( ⒂)c=mid(a,I,1)mid(a,I,1)=( ⒃ )( ⒄ )=cnext Iprint aend sub9：找出被3，5，7除，余数为1的最小的5个正整数。

VB循环结构测试题及答案循环结构测试题（四）一：选择题1以下（）是正确的for….nex结构(A)for x=1 to step 10(B)for x=3 to -3 step-3next x(C ) for x=1 to 10 re: … .Next xIf I=10 then goto re2:下列循环语句能正常结束循环的是( ( A)I=5 doI=I+1Loop until I<0(C)I=10doI=I-1Loop until I<03:下面程序段的运行结果为()for I=3 to 1 step -1print spc(5-I);next x(D) for x=3 to step3next y)(B) I=1doI=I+2loop until I=10(D) I=6doI=I-2loop untilfor j=1 to 2*1-1 print “ *' next j print n ext I___________________ ll _________________________________________________4下列程序在文本框输入B)“* * ABCD ”四个字符时，窗体上显示的是**(* *)* * ** *_* * ** * * * * *private sub text1_cha nge()* *print text1.text; end sub2:下面程序段显示=i(②)个“ * ”。

for j=1 to 4 For I=1 to n 5n* pri nt nFor n =2j to I Print Next j Next I3:下列第40句共执行了（③）次，第41句共执行（④ ）次(A) ABCD (B)(D) A(C )AABABCABCDAB 5哪个程序段不能分别正确显示 1!,2!,3!,4!的CABC(A)二：填空题1:要使下列 for I=1 to 4 n=1for j=1 to I n=n*jFO F X语句循环执行pri nt n20次，循环变量for k=(next i① )to -5 step —for I=1 to 4for j=1 to I n=1 n=n*j的初值应当是:print nn ext i(B)ABCD(D)N=1 J=1Do while j<=4n=n*j pri nt n j=j+1loop30 for j=1 to 12 step 340for k=6 to 2 step —41 print j,k42 next k43 next j4:以下程序运行后，si,sj,l,j,k的结果分别是（⑤），（⑥），（⑦），（⑧），（⑨ ），（⑽）private sub command1_click（）for l=1 to 2for j=1 to lsk=0for k=j to 3sk=sk+1next ksj=sj+1next jsi=si+1next lprint si,sj,sk,l,j,kend sub5:下面程序运行后输出的结果是（（11））private sub command1_click（）for l=0 to 3print tab(5*I+1); ”2” +I; ”2”&Inext I end sub6:下面程序运行后输出的结果是( (12))private sub command1_click() a$=”*”;b$= ”$”for I=2 to 4 if I mod 2=0 thenx$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)end if print x$;next Iend sub7：执行下面程序，打印结果是((13)) option explicit private sub form_click( ) dim I as integer,j as integerj=10for I=1 to j step 2I=I+1J=j-INext IPrint I,jEnd sub8:输入任意长度的字符串，要求将字符顺序倒置，例如：将输入ABCDEFG ”变换成“ GFEDCBA”private sub command1_click()dim a$,I%,c$a=inputbox( 输“入字符串”)n=( (14) )for I =1 to ( (15))c=mid(a,I,1)mid(a,l,1)=( (16))((17) )=cnext Iprint aend sub9：找出被3，5，7 除，余数为 1 的最小的5个正整数。