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所有奇数的和，请补充完该程序。
- 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。