VB循环结构测试题及答案
最新VB循环结构测试题及答案
循环结构测试题(四)一:选择题1:以下()是正确的for….next结构。
(A)f or 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 y If I=10 then goto re2:下列循环语句能正常结束循环的是()(A)I=5 (B) I=1do doI=I+1 I=I+2 Loop until I<0 loop until I=10(C) I=10 (D) I=6do doI=I-1 I=I-2 Loop until I<0 loop until I=1 3:下面程序段的运行结果为()for I=3 to 1 step –1print spc(5-I);for j=1 to 2*I-1 print “*”; next j print next I (A)4下列程序在文本框输入“ABCD ”四个字符时,窗体上显示的是( )private sub text1_change( ) print text1.text; end sub(A) ABCD (B) ( C ) AABABCABCD5哪个程序段不能分别正确显示1!,2!,3!,4!的( )* * * * * * * * *(B) * * * * ** * * *(C) * * * * ** * * *(D) * * * * ** * * *A B C D(D) AAB ABC ABCD二:填空题1:要使下列For 语句循环执行20次,循环变量的初值应当是:for k=( ① ) to –5 step –2 2:下面程序段显示( ② )个“*”。
For I=1 to 5 For j=2 to I Print “*”; Next j Next I3: 下列第40句共执行了( ③ )次,第41句共执行(④ )次。
vb试题及答案一
vb试题及答案一一、选择题1. 在Visual Basic中,以下哪个关键字用于声明一个变量?A. DimB. IfC. ForD. While答案:A2. Visual Basic中的哪个控件用于显示文本,但不允许用户编辑?A. TextBoxB. LabelC. ComboBoxD. CheckBox答案:B3. 在Visual Basic中,以下哪个事件用于响应按钮点击?A. ClickB. LoadC. ChangeD. DblClick答案:A4. 在Visual Basic中,以下哪个函数用于将字符串转换成数字?A. Str()B. Val()C. Int()D. CInt()答案:D5. 在Visual Basic中,以下哪个语句用于结束程序的执行?A. EndB. ExitC. StopD. Quit答案:B二、判断题1. Visual Basic是一种面向对象的编程语言。
(对)2. 在Visual Basic中,所有的变量都需要声明数据类型。
(错)3. 在Visual Basic中,可以使用If语句来实现条件判断。
(对)4. Visual Basic中的数组下标总是从0开始。
(错)5. Visual Basic中的事件驱动编程允许程序在没有用户交互的情况下运行。
(错)三、简答题1. 请简述Visual Basic中使用循环结构的目的是什么?答:循环结构在Visual Basic中用于重复执行一段代码直到满足特定条件,这使得处理大量数据或执行重复任务变得更加高效和简洁。
2. 请解释Visual Basic中类和对象的区别。
答:在Visual Basic中,类是一个模板,它定义了对象的属性和方法。
而对象是类的实例,具有类定义的属性和方法,并可以进行操作。
四、编程题1. 编写一个Visual Basic程序,该程序接受用户输入的三个数,并计算这三个数的平均值。
```vbDim num1 As DoubleDim num2 As DoubleDim num3 As DoubleDim average As Double' 接受用户输入num1 = Val(InputBox("请输入第一个数:"))num2 = Val(InputBox("请输入第二个数:"))num3 = Val(InputBox("请输入第三个数:"))' 计算平均值average = (num1 + num2 + num3) / 3' 显示结果MsgBox "这三个数的平均值是: " & average```五、论述题1. 论述Visual Basic中事件处理的重要性及其在应用程序开发中的应用。
vb考试试题及答案
vb考试试题及答案一、选择题1. VB中,用于声明变量的关键字是:A. DimB. DeclareC. ConstD. Option答案:A2. 在VB中,下列哪个选项不是合法的变量名?A. _myVarB. var2C. 123variableD. my$Var答案:C3. VB中,下列哪个选项是正确的条件语句?A. If condition ThenB. If condition Then ElseC. If condition Then Else IfD. If condition Then Else Else答案:A4. VB中,下列哪个函数用于计算字符串的长度?A. Len()B. Length()C. StrLen()D. Size()答案:A5. 在VB中,下列哪个选项是正确的循环结构?A. For i = 1 To 10B. Do While i < 10C. For Each i In arrD. All of the above答案:D二、填空题1. 在VB中,声明一个整型变量并赋值为100的语句是:________。
答案:Dim myVar As Integer = 1002. VB中,用于输出信息到立即窗口的函数是:________。
答案:Debug.Print3. VB中,用于暂停程序执行的函数是:________。
答案:Sleep4. VB中,用于获取当前日期的函数是:________。
答案:Date5. VB中,用于将字符串转换为整型的函数是:________。
答案:CInt三、简答题1. 简述VB中事件驱动编程的概念。
答案:事件驱动编程是一种编程范式,程序的执行流程由外部事件(如用户操作、系统消息等)触发,而不是由程序内部的逻辑顺序决定。
2. 描述VB中如何实现多线程编程。
答案:在VB中,可以使用Thread类或BackgroundWorker组件来实现多线程编程。
VB循环程序例题100道附问题详解
VB循环程序例题附答案1. [100,999]X围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字;⑵该数是素数; 求有多少个这样的数?15n = 0For i = 100 To 999a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then n = n + 1End IfNext iPrint n2. [300,800]X围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字;⑵该数是素数;求满足上述条件的最大的三位十进制数。
761For i = 300 To 800a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then s = iEnd IfNext iPrint s3.除1和它本身外,不能被其它整数整除的正整数称为素数〔注:1不是素数,2是素数〕。
假如两素数之差为2 ,如此称两素数为双胞胎数,问[31,601]之间有多少对双胞胎数。
22n = 0For i = 31 To 601 - 2x = 0If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0For j = 2 To Sqr(i + 2)If (i + 2) Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Then n = n + 1End IfNext iPrint n4.数学家哥德巴赫曾猜想:任何大于6的偶数都可以分解成两个素数〔素数对〕的和。
vb测试题及答案
vb测试题及答案一、单项选择题(每题2分,共10分)1. 在VB中,以下哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. 下列哪个函数用于计算两个数的和?A. SumB. AvgC. CountD. Max答案:A3. 在VB中,以下哪个关键字用于声明一个变量?A. DimB. ConstC. FunctionD. Sub答案:A4. 在VB中,以下哪个选项是正确的循环结构?A. ForB. WhileC. DoD. All of the above答案:D5. 在VB中,以下哪个选项是正确的条件语句?A. IfB. SelectC. CaseD. All of the above答案:D二、填空题(每题2分,共10分)1. 在VB中,声明一个整型变量并赋值为10,可以使用语句:Dim myVar As Integer; myVar = _______。
答案:102. VB中,用于输出信息到立即窗口的函数是 _______。
答案:Debug.Print3. 在VB中,要创建一个名为“myForm”的新窗体,可以使用语句:Form1. _______ "myForm"。
答案:Load4. VB中,要结束当前程序的执行,可以使用语句:_______。
答案:End5. 在VB中,要声明一个数组,可以使用语句:Dim myArray(10) As _______。
答案:Integer三、简答题(每题5分,共20分)1. 请简述VB中的事件驱动编程是什么?答案:事件驱动编程是一种编程范式,程序的执行流程由事件(如用户操作、系统消息等)触发,而不是由程序代码顺序执行。
2. 描述VB中如何使用If...Then...Else语句进行条件判断。
答案:在VB中,可以使用If...Then...Else语句进行条件判断,如果条件为真,则执行Then后面的代码块,如果条件为假,则执行Else 后面的代码块。
VB循环结构及数组练习
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的控件数组。
最新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所有奇数的和,请补充完该程序。
【测试】分支循环测试作业(VB第五章测试题)
【测试】分⽀循环测试作业(VB第五章测试题)我的试卷测试得分: 88.0 分1. 单选题:(4.0分)有如下程序:Private Sub Command1_Click()x = InputBox("input value")Select Case xCase Is > 0y = x + 1Case Is = 0y = x + 2Case Elsey = x + 3End SelectPrint x; yEnd Sub假设运⾏时从键盘上输⼊-5,输出结果是_______。
A. -5 -2B. -5 -4C. -5 -3D. -5 -5解答:A参考答案: A2. 单选题:(4.0分)下列程序段的执⾏结果是_______。
X = 2Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Print Y - X > 0A. TrueB. FalseC. -1D. 1解答:B参考答案: B3. 单选题:(2.0分)关于语句If x=1 Then y=1,下列说法正确的是_______。
A. x=1和y=1均为赋值语句B. x=1和y=1均为关系表达式C. x=1为关系表达式,y=1为赋值语句D. x=1为赋值语句,y=1为关系表达式解答:C参考答案: C4. 单选题:(2.0分)Select Case 语句结构中,测试项可以有三种形式,以下使⽤正确的是_______。
A. Case 20>IsB. Case x<=8 ,10 to 25C. Case Is>9 And Is<25D. Case Is>x解答:D参考答案: D5. 单选题:(4.0分)在窗体上画⼀个名称为Command1的命令按钮和两个名称分别为Text1、Text2的⽂本框,然后编写如下事件过程:Private Sub Command1_Click()N = Text1.TextSelect Case NCase 1 To 20X = 10Case 2, 4, 6X = 20Case Is < 10X = 30Case 10X = 40End SelectText2.Text = XEnd Sub程序运⾏后,如果在⽂本框Text1中输⼊10,然后单击命令按钮,则在Text2中显⽰的内容是____A. 10B. 20C. 30D. 40参考答案: A6. 单选题:(4.0分)运⾏下⾯程序,如果输⼊85,则输出结果是_____。
vb练习题及答案
vb练习题及答案VB练习题及答案一、选择题1. 在VB中,以下哪个是正确的数据类型?A. IntegerB. IntC. Both A and BD. None of the above答案:C2. VB中,哪个关键字用于声明变量?A. DimB. DeclareC. DefineD. Set答案:A3. 在VB中,以下哪个是正确的循环结构?A. ForB. WhileC. RepeatD. All of the above答案:D4. VB中,以下哪个是正确的条件语句?A. IfB. SwitchC. CaseD. A and B only答案:A5. 在VB中,以下哪个是正确的数组声明方式?A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案:A二、填空题1. 在VB中,使用________关键字可以定义一个类。
答案:Class2. VB中,使用________方法可以为控件添加事件处理程序。
答案:AddHandler3. 在VB中,________方法用于结束程序的执行。
答案:End4. VB中,________属性用于获取或设置一个控件的文本。
答案:Text5. 在VB中,________方法用于打开一个文件。
答案:Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案:在VB中,事件是用户或程序触发的特定动作,如按钮点击或键盘敲击。
事件处理程序是一个过程,当特定的事件发生时,会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案:在VB中,For循环用于重复执行一段代码直到满足特定条件。
基本语法是:```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承,并给出一个简单的示例。
vb考试题及答案
vb考试题及答案一、选择题(每题2分,共20分)1. VB中的“Dim”关键字用于声明什么?A. 变量B. 常量C. 类型D. 过程答案:A2. 在VB中,以下哪个是合法的变量名?A. 2variableB. variable-nameC. variable$nameD. variable name答案:B3. VB中的“Sub”过程可以返回值吗?A. 是B. 否答案:B4. 在VB中,以下哪个不是基本数据类型?A. IntegerB. StringC. ObjectD. Date答案:C5. VB程序中,以下哪个语句用于结束程序?A. Exit SubB. End SubC. Exit ForD. End答案:D6. VB中,以下哪个是正确的条件语句?A. If (x > 10)B. If x > 10C. If x = 10 ThenD. If x = 10答案:C7. 在VB中,以下哪个是正确的循环结构?A. DoB. WhileC. ForD. All of the above答案:D8. VB中的“With”语句用于什么?A. 条件判断B. 循环控制C. 简化代码D. 错误处理答案:C9. 在VB中,以下哪个不是数组的声明方式?A. Dim arr(0 To 10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Dim arr As Integer = New Integer(10)D. Dim arr(1) As Integer答案:D10. VB中,以下哪个是正确的事件处理程序声明?A. Sub Button1_Click()B. Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Sub Button1_Click(ByVal e As EventArgs)D. Sub Button1_Click(ByVal sender As Object)答案:B二、填空题(每空2分,共20分)1. 在VB中,使用________关键字可以定义一个类。
vb for循环练习题
vb for循环练习题VB(Visual Basic)是一种基于对象的程序设计语言,它被广泛应用于Windows操作系统的应用程序开发中。
VB中的循环结构提供了一种方便快捷的方式来重复执行代码块。
在本篇文章中,我们将介绍一些VB的for循环练习题,帮助您熟悉并掌握for循环的用法。
练习题一:输出1到10的数字请编写一个程序,使用for循环输出1到10的数字,并在每个数字后面加上一个换行符。
```Sub Main()For i As Integer = 1 To 10Console.WriteLine(i)NextEnd Sub```练习题二:计算1到10的累加和请编写一个程序,使用for循环计算1到10的累加和,并将结果输出。
```Sub Main()Dim sum As Integer = 0For i As Integer = 1 To 10sum += iNextConsole.WriteLine("1到10的累加和为:" & sum)End Sub```练习题三:输出10到1的数字请编写一个程序,使用for循环从10输出到1的数字,并在每个数字后面加上一个换行符。
```Sub Main()For i As Integer = 10 To 1 Step -1Console.WriteLine(i)NextEnd Sub```练习题四:输出九九乘法表请编写一个程序,使用for循环输出九九乘法表。
```Sub Main()For i As Integer = 1 To 9For j As Integer = 1 To iConsole.Write(j & " x " & i & " = " & i * j & " ")NextConsole.WriteLine()NextEnd Sub```练习题五:计算阶乘请编写一个程序,使用for循环计算给定数字的阶乘。
vb循环结构选择题共24页
一、选择题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的倍数的数将程序补充完整(A)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循环结构测试题及答案
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循环结构选择题
vb循环结构选择题一、选择题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的倍数的数将程序补充完整(A)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…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程序运行后,单击命令按钮,依次在输入对话框中输入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循环结构测试题及答案
循环结构测试题(四)一:选择题1:以下()是正确的for….next结构。
(A)f or 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 y If I=10 then goto re2:下列循环语句能正常结束循环的是()(A)I=5 (B) I=1do doI=I+1 I=I+2 Loop until I<0 loop until I=10(C) I=10 (D) I=6do doI=I-1 I=I-2 Loop until I<0 loop until I=1 3:下面程序段的运行结果为()for I=3 to 1 step –1print spc(5-I);for j=1 to 2*I-1print “*”; next j print next I4下列程序在文本框输入“ABCD ”四个字符时,窗体上显示的是( ) private sub text1_change( ) print text1.text; end sub(A) ABCD (B) ( C ) AABABCABCD5哪个程序段不能分别正确显示1!,2!,3!,4!的( )二:填空题1:要使下列For 语句循环执行20次,循环变量的初值应当是:for k=( ① ) to –5 step –22:下面程序段显示( ② )个“*”。
For I=1 to 5 For j=2 to I Print “*”; Next j Next I3: 下列第40句共执行了( ③ )次,第41句共执行(④ )次。
30for j=1 to 12 step 3* * * ** * * * *(B) * * * * * * * ** (C) * * * * * * * * *(D) * * * * ** * * *A BC D(D) AAB ABCABCD(A ) for I=1 to 4 n=1for j=1 to I n=n*j next j print nnext i(B )for I=1 to 4 for j=1 to I n=1 n=n*j next jprint n next i(C) N=1 for j=1 to 4 n=n*j print nnext j (D) N=1J=1Do while j<=4n=n*j print n j=j+1 loop40for 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()for I=0 to 3print tab(5*I+1);”2”+I;”2”&I;end 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+1J=j-INext IEnd 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个正整数。
vb6.0实验五题与答案
实验五专业_____________ 班级________年级________姓名______________学号_______________一、实验目的1、熟练使用三种循环结构1)For循环For <循环变量>=<初值> To <终值> [Step <步长>]<循环体语句序列>Next [<循环变量>]2)Do循环格式一格式二格式三格式四Do While <条件><循环体语句序列> Loop Do Until <条件><循环体语句序列>LoopDo<循环体语句序列>Loop While <条件>Do<循环体语句序列>Loop Until <条件>3)While循环While <条件><循环体语句序列>Wend2、掌握几个常用算法数列求和、级数求和、求最大公约数及最小公倍数、数制转换、求阶乘闰年、素数、水仙花数、自然数对等判断二、实验内容1、按图示设置各控件,程序运行时,在Text1中输入一正整数,单击“判断”按钮,在标签控件Label1中显示“是完数”或“不是完数”。
说明:完数是指其所有因子和等于它本身的数。
如:28,1+2+4+7+14=28;所以28为完数。
(类似的有:判断素数、求各位数字之和、水仙花数、自然数对)P r i v a t e S u b C o m m a n d1_C l i c k()D i m s u m A s I n t e g e r,i A s I n t e g e ra=V a l(T e x t1.T e x t)F o r i=1T o a-1I f a M o d i=0T h e n s u m=s u m+iN e x t iD e b u g.P r i n t s u mI f s u m=a T h e n L a b e l1.C a p t i o n="完数"E l s e L a b e l1.C a p t i o n="非完数"E n d S u b2、按图示设置各控件,程序运行时,在Text1中输入一正整数N的值,单击“计算阶乘”按钮,在Text2中显示N!的值。
vb for循环练习题
vb for循环练习题VB for循环练习题VB(Visual Basic)是一种基于事件驱动的编程语言,广泛应用于Windows平台的软件开发。
在VB中,for循环是一种常用的迭代结构,用于重复执行一段代码。
为了加深对VB for循环的理解和运用,下面将给出一些练习题,帮助读者巩固知识并提升编程能力。
1. 打印九九乘法表九九乘法表是学习数学时最基础的内容之一,也是练习for循环的好题目。
通过嵌套的for循环,可以轻松实现打印九九乘法表的功能。
例如:```For i = 1 To 9For j = 1 To iConsole.Write(i & " * " & j & " = " & (i * j) & " ")NextConsole.WriteLine()Next```2. 计算1到100的和这是一个简单的求和问题,可以使用for循环遍历1到100的数字,并将其累加到一个变量中。
例如:```Dim sum As Integer = 0For i = 1 To 100sum += iNextConsole.WriteLine("1到100的和为:" & sum)```3. 判断一个数是否为素数素数是指只能被1和自身整除的正整数。
判断一个数是否为素数是编程中常见的问题之一,也可以通过for循环来解决。
例如:```Dim num As Integer = 17Dim isPrime As Boolean = TrueFor i = 2 To Math.Sqrt(num)If num Mod i = 0 ThenisPrime = FalseExit ForEnd IfNextIf isPrime ThenConsole.WriteLine(num & " 是素数")ElseConsole.WriteLine(num & " 不是素数")End If```4. 找出一个字符串中的所有元音字母给定一个字符串,要求找出其中的所有元音字母。
(完整版)VB循环结构练习题
VB循环结构练习题一、分析程序的运行结果(每题2分,共60分)1、以下循环的执行次数是_____。
K=0Do While k<=10k=k+1Loop2、下列程序段的执行后输出的结果为_____。
I=4:A=5DoI=I+1:A=A+2Loop Until I>=7Print "A=";A3、下列程序的执行结果是____。
T = 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 3I=I+1Next c Next bnext a5、下列程序段的运行结果是:Sub sele()Dim n as IntegerI=21:n=3Do While I>nI=I-nLoopPrint IEnd Sub打印结果_____。
6、执行下面的程序段后,s的值为____。
S=5For I=2.6 To 4.9 Step 2s=s+1Next I7、下列程序段的执行后输出的结果为_______。
K = 1For I = 1 To 3A = I ^ I ^ KNext IPrint A8、下列程序的执行结果是_____。
M1 = 1:m2 = 1Do While m2<>6m1 = m1*m2 : m2 = m2+1LoopPrint m19、下列程序的执行结果是_____。
Private Function P(N As Integer)For I = I To NSUM = SUM + 1Next IP = SUMEnd FunctionPrivate Sub Command1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End Sub10、以下程序用来输出1到100所有奇数的和,请补充完该程序。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
循环结构测试题(四)
:选择题
1 :以下()是正确的for….nex结构。
(A) for x=1 to step 10 (B) for x=3 to -3 step -3
next x
(C ) for x=1 to 10
re: …
Next x
If I=10 then goto re
2 :下列循环语句能正常结束循环的是(
(A)I=5
do
I=I+1
Loop until I<0
(C) I=10
do
I=I-1
Loop until I<0
3 :下面程序段的运行结果为( )
for I=3 to 1 step -1
print spc(5-I);
next x
(D) for x=3 to step
3
next y
)
(B) I=1 do
I=I+2
loop until I=10
(D) I=6
do
I=I-2
loop until
I=1
for j=1 to 2*1-1
print “ * n ext j print next I
4下列程序在文本框输入B )“* * ABCD ”四个字符时*窗体上显示D 是* (* *
)
* * *
*****
private sub text1_cha nge() print textl.text; end sub
2:下面程序段显示=i(②
for j=1 to 4
For I=1 to n=n*j
print n
For j=2 j to I Print Next j Next I
(A) ABCD (B)
(D) A
(C ) AABABCABCD
AB 5哪个程序段不能分别正确显示 1!,2!,3!,4!的(
ABC
(A)
二:填空题
1:要使下列 for I=1 to 4 n=1
for j=1 to I n=n*j
F(5<r x l 语句循环执行
print n
for k=(
next
①) (B )
for I=1 to 4 for j=1 to I n=1 n=n*j
20次,循环变量的初值应当是:
print n
n ext i
to -5 step —
ABCD
个“ * ”。
(D) N=1 J=1
Do while j<=4
n=n*j print n j=j+1 loop
30 for j=1 to 12 step 3
40
for k=6 to 2 step —
41 print j,k
42 next k
43 next j
4:以下程序运行后,si,sj,l,j,k的结果分别是(⑤),(©),(⑦),(⑧),(⑨ ),(⑽)
private sub command1_click()
for l=1 to 2
for j=1 to l
sk=0
for k=j to 3
sk=sk+1
next k
sj=sj+1
next j
si=si+1
next l
print si,sj,sk,l,j,k
end sub
5:下面程序运行后输出的结果是((11))
private sub command1_click()
for l=0 to 3
print tab(5*I+1); ” 2”+I; ”2” &I;
next I end sub
6:下面程序运行后输出的结果是((12))
private sub command1_click() a$=”*”;b$= ”$”
for I=2 to 4 if I mod 2=0 then
x$=string(len(a$)+I,b$)
else
x$=string(len(a$)+I,a$)
end if print x$;
next I
end sub
7:执行下面程序,打印结果是((13)) option explicit private sub form_click( ) dim I as integer,j as integer
j=10
for I=1 to j step 2
I=I+1
J=j-I
Next I
Print I,j
End sub
8:输入任意长度的字符串,要求将字符顺序倒置,例如:将输入
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) )=c
next I
print a
end sub
9:找出被3,5,7除,余数为 1 的最小的 5 个正整数。
Private sub command1_click()
Dim countN%,n%
CountN=0
N=1
Do
N=n+1
If ( (18) ) the n
Print n
CountN=countN+1
End if
Loop ( (19))
End sub
10:某次大奖赛,有7 个评委打分,如下程序对一名参加比赛者,输入7个评委的打分分数,去掉一个最高分,一个最低分数,求出平均分为该参赛选手的得分。
Private sub command1_click()
Dim mark!,aver!,I%,max!,min!
Aver=0
For I=1 to 7
Mark=inputbox( 输“入第“ &I& ”位评委的打分”)
If I=1 then
Max1=mark
((20))
else
if mark<min1 then
( ( 21) )
elseif mark>max1 then
( ( 22) ) end if
end if
( ( 23) )
next I
aver=((24) )
print aver
end sub
11:由键盘上输入一个正整数,找出大于或等于该数的第一个质数。
Private sub command1_click( )
Dim m%,x%,tag as Boolean
Tag=false
X=inputbox( 输“入正整数”)
Do while not tag
M=2
Tag=( ( 25) )
Do while tag and (m<(x\2))
If x mod m=0 then ( (26) ) else ( ( 27) )
Loop
If not tag then x=x+1
Loop
Print x
End sub
12:将一个正整数分解为质因数乘机,例如:234=2*3*3*13 private sub command1_click()
dim n%,factor%,first as Boolean n=inputbox(输入一个正整数”) factor=2
first二true
do
do while ( (28))
if first the n
print n; ” 二” factor;
else
print “ * ” ;factor;
end if
((29))
first=false
loop
factor=fact o叶1
loop un til factor> n
end sub
测试题(四)答案)选择题
二)填空题
1: 33
2:10 3: 4,12
4:2,3,2,3,3, 4
5:2 20 3 21 4 22 5 23
6 :**$$$****$$$$$
7:13-16 8:LEN(a),int(n\2),mid(a,n-I+1,1),mid(a,n-I+1,1)
9:n mod 3=1 and n mod 5=1 and n mod 7=1
until countN=5 或while countN<5
10:min1=mark ;min1=mark ;max1=mark aver=aver+mark ;(aver-max1-min1)/5 11:true;tag=true ;m=m+1
12: n mod factor=0 ;n=n\factor。