VB-条件语句-循环语句练习题
vb循环 练习题
vb循环练习题VB循环练习题循环是计算机编程中非常重要的概念之一，它允许我们重复执行一段代码，以达到简化程序逻辑和提高效率的目的。
在VB（Visual Basic）编程语言中，循环也是一项基本技能。
为了帮助大家更好地掌握VB循环，下面将给出一些练习题，供大家进行实践。
1. 打印数字编写一个程序，使用循环打印出1到10的数字。
要求每个数字占一行，并在数字前面加上"Number: "前缀。
例如，输出应该是：Number: 1Number: 2...Number: 102. 计算和编写一个程序，使用循环计算1到100的所有整数的和，并将结果打印出来。
要求使用一个变量来保存累加的结果，并在循环结束后打印出结果。
3. 奇偶数判断编写一个程序，使用循环判断一个给定的整数是奇数还是偶数。
要求用户输入一个整数，然后使用循环判断并打印出结果。
例如，如果用户输入的是5，则程序应该输出"5是奇数"；如果用户输入的是8，则程序应该输出"8是偶数"。
4. 阶乘计算编写一个程序，使用循环计算一个给定的正整数的阶乘。
要求用户输入一个正整数，然后使用循环计算并打印出结果。
阶乘的定义如下：n! = n * (n-1) * (n-2) * ... * 2 * 1。
例如，如果用户输入的是5，则程序应该输出"5的阶乘是120"。
5. 九九乘法表编写一个程序，使用循环打印出九九乘法表。
要求每个乘法式占一行，并且每行的结果按照对齐方式排列。
例如，输出应该是：1 * 1 = 11 *2 = 2 2 * 2 = 4...1 * 9 = 92 * 9 = 18 ... 9 * 9 = 81通过完成以上练习题，你将能够更好地理解和掌握VB循环的使用。
循环是编程中非常常见的一种结构，掌握好循环的使用将使你的代码更加简洁高效。
此外，通过实践练习，你还能够提高自己的编程能力和逻辑思维能力。
VB教程---循环结构
学
For i =1 To 10 课 For j=1 To 20 件 … Next i
Next j
6.5 跳转语句
GoTo语句可以改变程序执行的顺序，跳过程序的某一
教 学 课
件
前后两项之差都 Sum=0
为1，是一个等 差数列
Sum=sum+1i=i+1
Sum=sum+3
… Sum=sum+n
i是从1到n递增 1的数列
一、循环程序设计结构
VB中提供了两种类型的循环语句：一种是计数循环语 句；另一种是条件循环语句。Visual Basic 支持的循环结
先执行循环体，后判断条件值，为假继续，直到为真退出
⑴. Do While … Loop语句
语法格式： Do While 〈条件表达式〉
〈循环体〉 [Exit Do] 〈循环体〉 Loop
(2) Do Until …Loop语句
语法格式：
Do Until〈条件表达式〉
〈循环体〉
教
[Exit Do]
学
说明
① 格式中的参数说明：
循环的初值、终值和步长都是数值表达式，其值不一定是
教 学
整数，可以是实数。
课
增量参数可正可负。如果增量为正，则初值必须小于等于
件
终值，否则不能执行循环体内的语句；如果增量为负，则
初值必须大于等于终值。如果没有设置step，则增量默认
为1。
当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。
学
钱一。百钱买百鸡，问鸡翁、母、雏各几
课
何？
件
• 找出1~999之间所有的同构数
– 同构数：该数出现在它的平方数的右边，如： 5—25，25—625
最新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考试题库及答案2020
vb考试题库及答案2020一、选择题1. 在VB中，哪个关键字用于声明一个变量？A. DimB. VarC. DeclareD. Let答案：A2. 下列哪个是VB中的条件语句？A. If...ThenB. For...NextC. While...WendD. Select...Case答案：A3. 在VB中，下列哪个是循环语句？A. For Each...NextB. Do While...LoopC. Both A and BD. None of the above答案：C4. VB中的数组声明使用哪个关键字？A. ArrayB. ListC. DimD. Collection答案：C5. 在VB中，哪个函数用于获取当前日期？A. NowB. DateC. TodayD. GetDate答案：C二、填空题6. 在VB中，使用________来定义一个类。
答案：Class7. VB中的________属性用于获取或设置一个控件的文本。
答案：Text8. 在VB中，________方法用于在列表框中添加一个项目。
答案：AddItem9. 使用________函数可以在VB中将字符串转换为数值。
答案：Val10. VB中的________事件用于响应控件的点击操作。
答案：Click三、简答题11. 简述VB中的事件驱动编程的概念。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发。
在VB中，事件通常与控件关联，如按钮的点击事件，当用户点击按钮时，会触发相应的事件处理程序。
12. 解释VB中的公共类和模块的区别。
答案：公共类用于定义具有属性、方法和事件的对象，可以被多个实例化。
而模块是一组过程的集合，通常用于存储全局变量和过程，不能被实例化。
四、编程题13. 编写一个VB程序，实现用户输入两个整数，然后计算并显示它们的和。
答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Val(InputBox("请输入第一个整数:"))num2 = Val(InputBox("请输入第二个整数:"))sum = num1 + num2MsgBox("两个数的和是: " & sum)```14. 创建一个VB程序，使用For循环打印出1到10的数字。
vb实验试题及答案
vb实验试题及答案VB实验试题及答案一、选择题1. VB中，用于定义变量的关键字是：A. DimB. SetC. ConstD. Function答案：A2. 下列哪个选项是VB中声明数组的正确方式？A. Dim arr(10)B. Dim arr[10]C. Dim arr(10) As IntegerD. Dim arr[10] As Integer答案：C二、填空题1. 在VB中，使用________关键字可以创建一个新过程。
答案：Sub2. 要将一个字符串变量的值赋给另一个字符串变量，可以使用________运算符。
答案：=三、简答题1. 请简述VB中如何实现循环结构。
答案：VB中实现循环结构主要有两种方式：`For...Next` 循环和`Do...Loop` 循环。
`For...Next` 循环适用于已知循环次数的情况，而 `Do...Loop` 循环适用于循环次数不确定的情况。
2. 描述VB中如何使用条件语句。
答案：VB中使用条件语句主要通过 `If...Then...Else` 结构实现。
首先使用 `If` 关键字检查条件，如果条件为真，则执行 `Then` 后的语句；如果条件为假，则执行 `Else` 后的语句。
四、编程题1. 编写一个VB程序，实现计算并输出1到100之间所有偶数的和。
答案：```vbDim sum As Integersum = 0For i As Integer = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMessageBox.Show("Sum of even numbers between 1 and 100 is: " & sum)```2. 编写一个VB函数，接受一个字符串参数，返回该字符串中字母'a'的个数。
答案：```vbFunction CountA(ByVal str As String) As IntegerDim count As Integer = 0For Each c As Char In strIf c = "a" Thencount = count + 1End IfNextReturn countEnd Function```。
VB循环程序例题100道附答案
VB循环程序例题100道附答案VB循环程序例题附答案1.素数1. [100，999]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以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]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数；求满足上述条件的最大的三位十进制数。
761 For 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 = 0For j = 2 To Sqr(i)If 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循环结构练习题一、分析程序的运行结果（每题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循环结构练习题资料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考试题及答案随着计算机技术的发展，程序设计语言在软件开发中扮演着重要的角色。
Visual Basic（简称VB）是一种面向对象的高级编程语言，被广泛应用于Windows平台下的软件开发。
为了帮助大家更好地掌握VB 编程知识，本文将提供一些VB考试题及答案，希望对大家的学习和复习有所帮助。
1. VB中，如何声明一个整型变量？答案：使用关键字Dim来声明变量，例如：Dim num As Integer2. VB中，如何进行条件判断？答案：可以使用关键字If...Then...Else来进行条件判断，例如：If condition Then' 条件为真时执行的代码Else' 条件为假时执行的代码End If3. VB中，如何使用循环结构？答案：可以使用关键字For、While或者Do...Loop来实现循环，例如：For i As Integer = 1 To 10' 循环体，执行10次Next4. VB中，如何定义一个函数？答案：使用关键字Function来定义函数，例如：Function AddNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerReturn num1 + num2End Function5. VB中，如何处理异常？答案：可以使用关键字Try...Catch...Finally来处理异常，例如：Try' 可能会引发异常的代码块Catch ex As Exception' 处理异常的代码块Finally' 无论是否发生异常，都会执行的代码块End Try6. VB中，如何创建一个类？答案：使用关键字Class来创建一个类，例如：Public Class MyClass' 类的成员和方法End Class7. VB中，如何使用MessageBox显示消息框？答案：可以使用MessageBox.Show方法来显示消息框，例如：MessageBox.Show("Hello World!")8. VB中，如何读取和写入文件？答案：可以使用System.IO命名空间下的File类来读取和写入文件，例如：Dim content As String = File.ReadAllText("C:\example.txt")File.WriteAllText("C:\example.txt", "Hello World!")9. VB中，如何使用数据库连接？答案：可以使用System.Data命名空间下的SqlConnection和SqlCommand等类来进行数据库连接和操作，例如：Dim connectionString As String = "DataSource=myServerAddress;Initial Catalog=myDataBase;UserId=myUsername;Password=myPassword;"Using connection As New SqlConnection(connectionString)connection.Open()' 执行数据库操作End Using10. VB中，如何创建和使用数组？答案：可以使用Dim语句来创建数组，例如：Dim numbers(9) As Integer' 对数组进行赋值numbers(0) = 1...numbers(9) = 10以上是一些VB考试题及答案的示例，希望能够帮助大家更好地理解和掌握VB编程知识。
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循环结构选择题共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的倍数的数将程序补充完整（Ａ）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的倍数的数将程序补充完整（Ａ）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考试题库
vb考试题库一、多项选择题1. 下列哪个是VB中的数据类型？A. intB. stringC. floatD. all of the above2. VB中的条件语句是使用哪个关键字？A. ifB. elseC. elseifD. all of the above3. 下列哪个不是VB中的循环结构？A. forB. whileC. repeatD. do while4. 如何在VB中定义一个数组？A. dim myArray() as arrayB. dim myArray as integer()C. dim myArray as array()D. dim myArray() as integer5. VB中的函数和子程序的区别是什么？A. 函数有返回值，而子程序没有B. 函数只能在主程序中调用，而子程序可以在任何地方调用C. 函数只能有一个参数，而子程序可以有多个参数D. 函数只能返回整数值，而子程序可以返回任何类型的值二、填空题1. VB中的变量声明使用关键字__dim__。
2. VB中的字符串连接运算符是__&__。
3. VB中的逻辑非运算符是__not__。
4. VB中用于输入用户信息的控件是__TextBox__。
5. VB中用于显示消息框的函数是__MsgBox__。
三、问答题1. 请简要介绍VB语言的特点和用途。
VB语言（Visual Basic）是一种基于事件驱动的编程语言，它易于学习和使用，适用于开发Windows应用程序和数据库应用程序。
VB 语言的特点包括可视化编程环境、简单易懂的语法、丰富的控件库和强大的调试工具等。
它可以用于开发各种类型的应用程序，如图形用户界面（GUI）应用程序、数据库管理工具、游戏等。
2. 请简要解释VB中的条件语句和循环结构，并给出一个示例。
条件语句是用于根据特定条件执行不同的代码块。
在VB中，常用的条件语句是if语句、else语句和elseif语句。
vb for循环语句例题及解析
vb for循环语句例题及解析下载温馨提示：该文档是我店铺精心编制而成，希望大家下载以后，能够帮助大家解决实际的问题。
文档下载后可定制随意修改，请根据实际需要进行相应的调整和使用，谢谢!并且，本店铺为大家提供各种各样类型的实用资料，如教育随笔、日记赏析、句子摘抄、古诗大全、经典美文、话题作文、工作总结、词语解析、文案摘录、其他资料等等，如想了解不同资料格式和写法，敬请关注!Download tips: This document is carefully compiled by the editor. I hope that after you download them, they can help you solve practical problems. The document can be customized and modified after downloading, please adjust and use it according to actual needs, thank you!In addition, our shop provides you with various types of practical materials, such as educational essays, diary appreciation, sentence excerpts, ancient poems, classic articles, topic composition, work summary, word parsing, copy excerpts, other materials and so on, want to know different data formats and writing methods, please pay attention!在计算机编程中，循环语句是一种重要的控制结构，可以让程序重复执行特定的代码块。
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程序设计之语句班级：姓名：学号：一、基础填空1、VB表达式Len("桐乡2017")的值是2、已知a="12bc"，VB表达式Len(a)+Len("a")的值是3、已知文本框Text1中输入“2017年”，VB表达式Len(Text1.Text)的值是4、VB表达式Mid("桐乡2017",5，2)的值是5、已知i=2，k=2，则Mid("新桐乡2016",i，k)的值是6、已知a="330903"，VB表达式Val(Mid(a,3,2))的值是7、已知a="桐乡一中2017"，VB表达式Mid(a,3,2)+ Mid(a,7,2)的值是8、已知a="序号812362"，VB表达式Val(Mid(a,3,1))+ Val(Mid(a,4,2))的值是二、基础选择题1.下列语句肯定不能作为赋值语句的是（）A. x = yB. x+y = xC. a = TrueD. Text1.Text = "结果"+Str(a)2. 有如下VB程序段a = 2:b = 4: t = 0t = a: a = b: b = t该程序段运行后a、b的值为（）A．2,4 B．4,0C．2,0 D．4,23. 有如下VB程序段Dim x As Integer, y As Integerx = 2: y = 4If x = y Then x = x + 2 Else y = y + 2 该程序段运行后x，y的值为（）A．2,6 B．4,2C．4,4 D．2,44. 有如下VB程序段Dim x As Integer, y As Integerx = 2: y = 3If x + y = 5 Then x = x + 2该程序段运行后x，y的值为（）A．2,3 B．5,5 C．2,5 D．4，35. 有如下VB程序段Dim s As Strings = "桐乡abc"If Len(s) >= 6 Then s = Mid(s, 3, 2) Else s = Mid(s, 1, 2)该程序段运行后s的值为（）A．"桐乡abc" B．"桐乡"C．"ab" D．"abc" 6. 有如下VB程序段x=5If x>=6 And x < 5 Theny=3*x+1Elsey=3*x-1End If该程序段运行后，y的值为（）A．0 B． 5 C．14 D．167. 有如下VB程序段：x= "mylove2016"y=Len(x)If y<11 ThenLabel1.Caption= Mid(x,3,4)ElseLabel1.Caption= Mid(x,7,4)End If该程序段运行之后，标签Label中显示的内容为（）A. loveB. 2016C. love2016D. ove8．有如下VB程序段：Dim c As String, a As Booleana = FalseIf Not a Then c = Chr(Asc("A") + 2) Else c = Chr(Asc("A") + 3)该程序段执行后，变量c的值为（）A．67 B．68 C．"C" D．"D"三、读程序填空9．下列程序执行后变量y的值t = "abcd123456"x = Sqr(Len(t))If x > 4 Theny = 2ElseIf x >3 Theny = 3ElseIf x > 2 Theny = 4Elsey = 5End If10．下列程序执行后变量y的值x = Len("桐乡一中")If x > 3 Then y = 2 Else y = 3If x = 4 Then y = y + 211．下列程序执行后变量y的值x = Val(Mid("1234", 3, 1))If x < > 3 Theny = 1If x + y = 3 Then y = 3Elsey = 2If x + y = 6 Then y = y + 1 Else y=y+3 End If12．程序执行后变量s和i的值s = 0For i = 1 To 5s = s + iNext i13．程序执行后变量s和i的值s = 0For i = 1 To 5 Step 2s = s + iNext i14．程序执行后变量s的值s = 0Do While s <= 5s = s + 4Loop 15．下列程序执行后变量s的值s = 0: i = 1Do While s <= 5s = s + ii = i + 1Loops = 016．下列程序执行后变量s的值For i = 1 To 10If i Mod 3 = 0 Then s = s + 1 Next i17．下列程序执行后变量c的值s = 1c = 0x = 1Do While s < 5s = s + xIf s Mod 2 = 0 Then c = c + 1 x = x + 1Loop四、语法结构填空18．语法填空Private Sub Command1_Click() If x > 1 Theny = 1_ x > 2 Theny = 2End IfEnd Sub19．语法填空Private Sub Command1_Click() If x > 1 ThenIf y <> 0 Then y = 2ElseIf x > 2 ThenIf y <> 1 Theny = 2__End Sub。
浙江高中学考选考VB循环语句习题
编辑：杜宗飞编辑：杜宗飞第 1 页 共 2 页 循环语句基础一、For 语句For 循环变量循环变量 = = 初值初值 To 终值 Step 步长步长语句1 语句2（循环体）……Next 循环变量循环变量返回判断循环变量是否小于终值，成立继续循环。
注意：（1）如果步长为负数，循环变量是否大于终值，成立继续循环。
（2）Step 1可以省略不写流程图步长为正数 （1）For 循环执行过程填空s = 0For i = 1 To 3s = s + iNext i在右边填写变量的值i = 1 时，i<=3成立成立 s= i = 2 时，i<=3成立成立 s= i = 3 时，i<=3成立成立 s= i = 4 时，i<=3不成立，循环结束不成立，循环结束 循环结束后变量s 的值为 变量i 的值为 （2）For 循环执行过程填空s = 0For i = 5 To 2 Step -2s = s + 2Next i i = 5 时，i>=2成立成立 s= i = 3 时，i>=2成立成立 s= i = 1 时，i>=2不成立，循环结束不成立，循环结束 循环结束后变量s 的值为 变量i 的值为（3）For 循环执行过程填空s = 0 : a = 1For i = 1 To 3s = s + 1a = a * sNext i在右边填写变量的值i = 1 时，i<=3成立成立 s= a= i = 2 时，i<=3成立成立 s= a= i = 3 时，i<=3成立成立 s= a= i = 4 时，i<=3不成立，循环结束不成立，循环结束 循环结束后变量s 的值为 变量a 的值为（4）For 循环执行过程填空s = 0 : a = 1 For i = 1 To 6 S tep Step 2 IF i mod 2 = 0 Then s = s + i a = a * i Next i i = 1 时，i<=6成立成立 s= a= i = 3 时，i<=6成立成立s= a= i = 5 时，i<=6成立成立s= a= i = 7 时，i<=6不成立，循环结束不成立，循环结束循环结束后变量s 、 a 、i 的值分别为编辑：杜宗飞编辑：杜宗飞第 2 页 共 2 页 二、Do 语句 Do While 条件表达式条件表达式 语句1 语句2（循环体） ……Loop每次返回重新判断条件是否成立，成立继续循环。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB条件语句和循环语句
测试习题(满分100分)
班级姓名
一、根据程序写运行结果
1．写出下列程序的运行结果。
(5分) Private sub command1_click
X=VAL(text1.text)
IF X<0 THEN
Y=ABS(X)
ELSE
Y= -X
END IF
PRINT "Y=";Y
End sub
运行结果：
(1)在text1中输入99 输出
(2)在text1中输入-23 输出
2. 写出下列程序的运行结果。
(5分)
Private sub command1_click
N=1
FOR X=3 TO 10 STEP 3
N=N*2
NEXT X
PRINT "N=";N
End sub
运行结果：
3．写出下列程序的运行结果。
(5分) Private sub command1_click
S=0
FOR X=10 TO 1 STEP 4
S=S+X
NEXT X
PRINT " S=";S
End sub(5分)
运行结果：
4.写出下列程序运行结果。
(5分)
Private sub command1_click
FOR I= 1 TO 5 step 2
PRINT I，
NEXT I
End sub
运行结果：
5. 写出下列程序的运行结果。
(5分)
Private sub command1_click
X=VAL(text1.text)
IF X/2=Int(X/2) THEN
S=X+1
ELSE
S=X-1
END IF
PRINT "S=";S
End sub
若在text1中输入以下数字，运行结果：
(1)99 (2)98
二、根据题意，完善下列程序。
(每空5分)
1.请设计一个程序，将从键盘上任意输入的两个数中最大的那个选出来。
Private sub command1_click
A=VAL(text1.text)
B=VAL(text2.text)
IF A>B THEN
MAX=________
ELSE
MAX=
ENDIF
PRINT "MAX="；MAX
End sub
2.求和S=1+3+5+7+…+99
Private sub command1_click
S=0
FOR I=1 TO 99 STEP
S=________
NEXT I
PRINT “S=”；S
End sub
3.完善下列程序，使其能求出
2+4+6+……+100之和。
Private sub command1_click
FOR I =____ TO 100 STEP _____
S= S+I
______ I
PRINT S
End sub
4．从键盘任意输入一个数，判断这个是否是偶数，如果是偶数输出“Y”，否则输出“N”。
Private sub command1_click
X=VAL(Inputbox("X=" ))
IF THEN
PRINT “N”
ELSE
PRINT “Y”
END IF
End sub
5．从键盘输入圆的半径R，输出圆的周长L和面积S。
Private sub command1_click
Dim R As Single
Dim L As Single
Dim S As Single
R=InputBox("输入半径R ")
L=___________
S=3.14*R*R
Print "圆的周长L= ";L
Print "圆的面积S= ";S
End sub
6. 计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。
X表示行李重量，Y表示行李费。
Private sub command1_click
Dim X As Single
Dim Y As Single
X=InputBox("输入行李重量")
If ________ Then
Y=0
Else
Y=___________
End If
Print "行李费= ";Y
End sub
7. 求s=99+97+95+……+1之和。
Private sub command1_click
Dim i As Integer
Dim s As Integer
s=0
For I=99 To ____ Step ____
s=_________
Next I
Print " S=";S
End sub
8. 输出100以内（包含100）能被3整除的数。
Private sub command1_click
Dim I As Integer
I=1
Do while
If I Mod 3=0 Then
Print I
End If
I=I+1
Loop
End sub
9.求一元二次方程ax2+bx+c=0的根，要求从键盘输入三个数，判断有无根。
有根则输出两根的值分别为X1,X2，无根则输出“无根”
Private sub command1_click
A=VAL(InputBox("A=" ))
B=VAL(InputBox("B=" ))
C=VAL(InputBox("C=" ))
D=B*B-4*A*C
IF D ___ 0 THEN
X1=(-B+S qr(d))/(2*a)
X2=__________________
Print "X1=";X1
Print "X2=";X2
ELSE
Print "无根"
End If
End sub。