当前位置：文档库 › VB循环结构练习题

VB循环结构练习题

一、分析程序的运行结果（每题2分，共60分）

1、以下循环的执行次数是_____。

K=0

Do While k<=10

k=k+1

Loop

2、下列程序段的执行后输出的结果为_____。

I=4:A=5

I=I+1:A=A+2

Loop Until I>=7

Print "A=";A

3、下列程序的执行结果是____。

T = O : m = 1 : Sum = 0

t = t + m : Sum = Sum + t : m = m + 2

Loop While m <= 9

Print Sum

4、下列程序段的执行时，共循环____次。

For a=0 To 1

For b=1 To 2

For c=1 To 3

I=I+1

Next c Next b

next a

5、下列程序段的运行结果是：

Sub sele()

Dim n as Integer

I=21:n=3

Do While I>n

I=I-n

Loop

Print I

End Sub

打印结果_____。

6、执行下面的程序段后，s的值为____。

S=5

For I=2.6 To 4.9 Step 2

s=s+1

Next I

7、下列程序段的执行后输出的结果为_______。K = 1

For I = 1 To 3

A = I ^ I ^ K

Next I

Print A

8、下列程序的执行结果是_____。

M1 = 1:m2 = 1

Do While m2<>6

m1 = m1*m2 : m2 = m2+1

Loop

Print m1

9、下列程序的执行结果是_____。

Private Function P(N As Integer)

For I = I To N

SUM = SUM + 1

Next I

P = SUM

End Function

Private Sub Command1_Click()

S = P(1) + P(2) + P(3) + P(4)

Print S;

End Sub

10、以下程序用来输出1到100所有奇数的和，请补充完该程序。Private Sub Command3_Click()

Dim s As Long

Dim x As Integer

s = 0

For x=1 to 100 step____

s = s + x

Next x

Print s

End Sub

11、下列程序的执行结果是_______。A = 75

If a>60 Then

I = 1

ElseIf a>70 Then

I = 2

ElseIf a>80 Then

I = 3

ElseIf a>90 Then

I = 4

End If

Print I

12、下列程序段的运行后t的值为______。Dim t,k as single

k=5 : t=1

do While k>=-1

t=t*k : K=K-1

loop

13、下面程序段的输出结果是_____。

P=0:s=0

p = p+2

s = s+p

Loop While p<11

Print "s="&s

14、下面程序段的输出结果是______。

For X=1.5 To 5 Step 5

Print X;

Next X

15、执行下面的程序段后，s的值为______。

S=5

For I=2.6 To 4.9 Step 0.6

s=s+1

Next I

16、在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

a=InputBox("请输入一个整数")

b=InputBox("请输入一个整数")

Print a+b

End Sub

17、程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为____。

执行下面的程序段后，b的值为_____。

A=300:b=20

a=a+b:b=a-b:a=a-b

18、下列程序段执行后x的值是______。

X=100 : y=50

if x>y then x=x-y else x=x+y

19、有如下程序，该程序的运行结果是______。

A=20 : b=10

print a>b

20、有如下程序，该程序的运行后输出的结果是______。

Private sub Command1_Click() I="AAAAAA"

Mid(I,4,3)="BBB"

Print I

End Sub

21、下面程序段执行后的结果是_____。

X=10

For I=6.3 to 4.9 Step -0.3

x=x-1

Print x

22、在窗体上画一个命令按钮(其Name属性为CommAnd1)，然后编写如下代码：

Private Sub CommAnd1_Click()

Dim M(10) As Integer

For k=1 To 10

M(k)=12-k

Next k

x=6

Print M(2+M(x))

End Sub

程序运行后，单击命令按钮，输出结果是______。

23. 在窗体上画一个命令按钮，然后编写如下事件过程。程序运行后，单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1，输出结果为________

Private Sub Command1-Click()

x=0

Do Until x=-2

a=Val(InputBox(”请输入A的值”))

b=Val(InputBox(”请输入B的值”))

x=Val(InputBox(”请输入x的值”))

a=a+b+x

Loop

Print a

EndSub

24、以下程序段中Do…Loop循环执行的次数为________。 n=5

If n Mod 2=0 Then

n=n＼2

Else

n=n*3+1 End If

Loop until n=1

A.4

B.3

C.5

D.2

25. 下列程序段执行后，x的值为________。 x=0

For i=1 To 10

For j=i To 10

x=x+1

Next j

Next i

A.50

B.55

C.100

D.105

26. 下面的程序运行结果是________。

Private Sub Form_Click()

i=0

i=i+1

if i>10 then Exit Do

Loop Until i<10

Print i

End Sub

27. 下面的程序运行后输出的结果是________ For i=1 to 2

S=i

For j=0 to i-1

S=S+S*i

Next j

Print s

Next i

28. 以下程序输出的结果为________。

x=1

y=4

Do Until y>4

X=X*Y

y=y+1 Loop

Print X

29. 下列程序运行后，输出结果为________。

b = 1

Do While b < 40

b = b * (b + 1)

Loop

Print b

30．当变量x=2，y=5时，以下程序的输出结果为________。

Do Until y>5

x=x*y

y=y+1

Loop

Print x

二、程序填空（每题4分，共40分）

1) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If a

d=a:a=b:b=d

EndIf

If a

d=a:a=c:c=d

EndIf

If_____Then

d=b:b=c:c=d

EndIf

Print a,b,c

2) 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。

提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。

Private Sub Command6_Click()

Dim y As Integer

y=InputBox("请输入年号")

If(y Mod 4=0________________________________y Mod 100<>0) or (y Mod 400=0) Then

Print "是闰年"

Else Print "是普通年份"

End If

End Sub

3) 以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。

Private Sub Commmand1_Click()

Dim x As Integer

x = 100

Do Until x > _____ If x Mod 3 <> 0 Then

Print x

End If

x = x + 1

Loop

End Sub

4) 下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。

For j=1 to 10

s=s+j

If s>=10 then______。

Next j

5) 下列程序用来计算1+2+3……+10的值，请补充完程序。

Dim t,k as single

K=0

DO While k<10

K=k+1:______

loop

print t

6. 找出被3、5、7除，余数为1的最小的5个正整数。

Private sub command1_click()

Dim countN%, n%

CountN = 0

n = 1

n = n + 1

If ________ then

Print n

CountN = countN + 1

End If

Loop while countN<5

End sub

7. 有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，显示这个阶梯至少要有多少阶。

sub command1_click()

dim n%, m%

for n = 7 to 10000 step 7

if n mod 2 = 1 and ________ then

print n exit for

end if

next n

end sub

8. 期末某班在一周6天内考三门分别为x, y, z的考试课程，规定一天只能考一门，课程依次按先考x,后考y，最后考z，最后一门课程最早周五考。用计算机排考试，列出满足条件的方案和方案数.

sub command1_click()

dim x%, y%, z%

n = 0

for x = 1 to 4

for y = x+1 to 5

for z = 5 to 6

if y < z then

print x & space(9) & y & space(9) & z

________

end if

next z

next y

next x

print “满足条件的方案数为;” & n

end sub

9. 某次大奖赛，有七个评委打分，下列程序对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。

sub command1_click()

dim mark!, aver!, i%, max1!, min1!

aver=0

For i = 1 to 7

mark = inp utbox(“请输入第” & i & ”位评为的打分”)

If i = 1 then

max1 = mark : min1=mark

Else

If mark < min1 then min1=mark

Elseif mark > max1 then

max1=mark

End if

________

Next i

aver = (aver-max1-min1)/5

Print aver

End sub

10. 下列程序功能是判断100以内的孪生素数。所谓孪生素数是指两个数相差2的素数对。例如3和5，5和7，11和13等都是孪生素数。

Private sub command1_click()

Dim p1 as boolean, p2 as Boolean, i%,j%

p1 = true

For i = 5 to 97 step 2

For j = 2 to sqr(i)

If i mod j = 0 then ________

Next j

If j > sqr(i) then p2 =true else p2 = false If p1 and p2 then

Print i – 2, i

End if

p1 = p2

Next i

End sub

VB循环结构测试题及答案

循环结构测试题(四) 一：选择题 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 3 re: …. …… Next x next y If I=10 then goto re 2:下列循环语句能正常结束循环的是（）（A）I=5 (B) I=1 do do I=I+1 I=I+2 Loop until I<0 loop until I=10 (C) I=10 (D) I=6 do do

I=I-1 I=I-2 Loop until I<0 loop until I=1 3:下面程序段的运行结果为（） for I=3 to 1 step –1 print spc(5-I); for j=1 to 2*I-1 print “*”; next j print next I 4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（） private sub text1_change( ) print ; end sub (A) ABCD (B) ( C ) AABABCABCD * * * * (B) * * * * * * * * (C) * * * * * * * * (D) * * * * * * * * A B C (D) A AB ABC

5哪个程序段不能分别正确显示1!,2!,3!,4!的（）二：填空题 1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*” 。 For I=1 to 5 For j=2 to I Print “*”; Next j Next I 3: 下列第40句共执行了（ ③ ）次，第41句共执行（④ ）次。 30 for j=1 to 12 step 3 40 for k=6 to 2 step –2 41 print j,k 42 next k （A ） for I=1 to 4 n=1 for j=1 to I （B ） for I=1 to 4 for j=1 to I n=1 (C) N=1 for j=1 to 4 (D) N=1 J=1 Do while j<=4

VB基本学习知识及其选择,循环结构习题集

一、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 Integer XYZ 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）3211111 r 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）可以同时删除字符串前导和尾部空格的函数是。 A. Ltrim B. Rtrim C. Trim D. Mid （2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数。 A. (0,1) B. (0,9) C. (1,10) D. (1,9) （3）数学式子sin25o写成Visual Basic 表达式是。 A.Sin25 B. Sin(25) C. Sin(25o) D. Sin(25*3.14/180) （4）表达式16/4 – 2^3 * 8/4 Mod 5\2的值是。 A. 14 B. 4 C. 20 D. 2 （5）数学关系式103<≤x 表示成正确的VB 表达式为。 A. 3<= x <10 B. x >= 3 And x<10 C. x>=3 Or x<10 D. 3<= x And <10 （6）已知A=”12345678”，则表达式Val(Left(a, 4) + Mid(a, 4, 2))的值是。

VB循环结构测试题及答案

循环结构测试题（四）：选择题 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

微机vb选择题

1. 下列VB程序段的基本结构是( ) If x<=12 Then y=3x Else y=4x End If A.分支结构 B.顺序结构 C.循环结构 D.树形结构答案: A 2. 关于算法，说法不正确的是（） A.算法是程序设计的灵魂 B.解决问题的过程就是实现算法的过程 C.算法独立于任何具体的语言，VB 算法只能用VB语言来实现 D.算法的作用在于记录和交流人类解决问题的思想答案: C 3. if x>=10 then y=5*x else y=4*x 以上程序段属于（） A.顺序结构 B.分支结构 C.循环结构 D.流程结构答案: B 4. 在VB中,利用（）显示和编辑程序代码。 A.工程资源管理器窗口 B.窗体设计器窗口 C.代码编辑窗口 D.属性窗口答案: C 5. 下面保存VB程序的说法正确的是（) A.只保存窗体文件 B.只保存工程文件 C.分别保存工程文件和标准模块文

件 D.分别保存窗体文件和工程文件答案: D 6. VB中，数据类型整型用（）表示。答案: A 7. 数学式(2a-b)/(2a+b)在VB中的正确写法是（） A.(2*a-b)/(2a+b B.(2*a-b)/2*a+b C.(2a-b)/(2a+b) D.(2*a-b)/(2*a+b) 答案: D 8. 在VB中，当a=2，b=3时，表达式a>b的值是（） A. True C. 0 D. 1 答案: B 9. 下列程序段属于( ) Select Case x Case 1 ="优秀" Case 2 ="良好" Case 3 ="一般" Case Else ="较差" End Select A.顺序结构 B.分支结构 C.循环结构 D.流程结构答案: B 10.

VB循环结构测试题及答案

V B循环结构测试题及答案 This model paper was revised by the Standardization Office on December 10, 2020

for j=1 to 2*I-1 print “*”; next j print next I 4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（） private sub text1_change( ) print text1.text; end sub (A) ABCD (B) ( C ) AABABCABCD 5哪个程序段不能分别正确显示1!,2!,3!,4!的（）二：填空题 1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*”。 For I=1 to 5 For j=2 to I Print “*”; Next j Next I 3: 下列第40句共执行了（ ③ ）次，第41句共执行（④ ）次。 * * * * * * * * * (B) * * * * * * * * * (C) * * * * * * * * * (D) * * * * * * * * * A B C D (D) A AB ABC ABCD （A ） for I=1 to 4 n=1 for j=1 to I n=n*j next j print n （B ） for I=1 to 4 for j=1 to I n=1 n=n*j next j print n (C) N=1 for j=1 to 4 n=n*j print n (D) N=1 J=1 Do while j<=4 n=n*j print n j=j+1 loop

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、True B、False C、True或False D、0 5、while循环结构中的条件表达式取值为（A）时执行语句组 A、True B、False C、True或False D、0 6、while循环结构中与（A）匹配使用，不能单独出现 A、Wend B、end C、loop D、next 7、Do…、、loop循环结构中的循环体执行的最少次数为（A） A、0 B、1 C、2 D、3 8、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A） A、0 B、1 C、2 D、3 9、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B） A、0 B、1 C、2 D、3 10、Do…loop循环结构中的Exit Do语句的功能是（B） A、退出整个程序 B、退出当层循环 C、退出最外层循环 D、退出所在子程序

11、Do…loop中使用while关键字时，条件为（B）执行循环体 A、False B、True C、0 D、假或真 12、Do…loop中使用until关键字时，条件为（A）执行循环体 A、False B、True C、0 D、假或真 13、Do…loop中使用while关键字时，条件为（A）终止循环 A、False B、True C、0 D、假或真 14、Do…loop中使用until关键字时，条件为（B）终止循环 A、False B、True C、0 D、假或真 15、For…Next循环结构中（C）用来控制循环变量 A、for B、step C、next D、to 16、For…Next循环结构中step用来控制（D） A、循环变量 B、循环变量初值 C、循环变量终值 D、循环变量增量 17、For…Next循环结构中循环变量初值大于终值时,步长为（A） A、负数 B、非负数 C、正整数 D、正数 18、For…Next循环结构中循环变量初值小于终值时,步长为（A） A、负数 B、负整数 C、正整数 D、正数 19、For…Next循环结构中next后的循环变量（A） A、可以省略 B、不可以省略 C、与for后的变量名可以不同 D、与for后的变量不是同一变量 20、For…Next中循环变量初值与终值间使用的关键字是（A） A、To B、In C、goto D、private 21、For…Next中循环变量初值与终值间使用的关键字是（A）

VB循环结构测试题及答案

循环结构测试题（四）一：选择题 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

for j=1 to 2*1-1 print “ *' next j print n ext I ___________________ l l _________________________________________________ 4下列程序在文本框输入B)“* * ABCD ”四个字符时，窗体上显示的是**(* * ) * * * * *_* * * * * * * * * private sub text1_cha nge() * * print text1.text; end sub 2:下面程序段显示=i(②)个“ * ”。 for j=1 to 4 For I=1 to n 5n* pri nt n For n =2j to I Print Next j Next I 3:下列第40句共执行了（ ③）次，第41句共执行（④ ）次 (A) ABCD (B) (D) A (C )AABABCABCD AB 5哪个程序段不能分别正确显示 1!,2!,3!,4!的C ABC (A) 二：填空题 1:要使下列 for I=1 to 4 n=1 for j=1 to I n=n*j FO F X 语句循环执行 pri nt n 20次，循环变量 for k=( next i ① )to -5 step — for I=1 to 4 for j=1 to I n=1 n=n*j 的初值应当是: print n n ext i (B) ABCD (D) N=1 J=1 Do while j<=4 n=n*j pri nt n j=j+1 loop

程序设计语言VB单项选择题及答案

《程序设计语言VB》单选题 1. Visual Basic是一种面向（）的程序设计语言。 A. 用户 B. 事件 C. 程序 D. 对象 2. 在Visual Basic6.0中规定工程文件的扩展名是（）。 A. vbp B. for C. frm D. bas 3. Visual Basic6.0中规定窗体文件的扩展名是（）。 A. for B. frm C. vbp D. bas 4. 如何使一个标签或按钮控件在运行时不可用（）。 A. 把它的Visible属性设置成False B. 把它的Visible属性设置成True C. 把它的Enabled属性设置成False D. 把它的Enabled属性设置成True 5. 控件的字体可在属性窗口的（）属性中调整？ A. Font B. Color C. Text D. Caption 6. 若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A. Value B. Cancel C. Default D. Enabled 7. 在VB中，记录对象数据的是（）。 A. 方法 B. 事件 C. 属性 D. 语句 8. 在文本框上显示文本的属性是（）。 A. Value B. Text C. Print D. Enabled

9. InputBox函数返回值的类型为（）。 A. 字符串 B. 数值 C. 变体 D. 数值或字符串（视输入的数据而定） 10. 设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A. 字符串"20" B. 字符串"120" C. 默认值100 D. 数值120 11. 下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 A. Label控件 B. TextBox控件 C. Timer控件 D. CommandButton控件 12. 语句PRINT "25*4"的输出结果是（）。 A. 25*4 B. "100" C. 100 D. 出现错误信息 13. 只能用来显示字符信息的控件是（）。 A. 文本框 B. 标签框 C. 图片框 D. 图像框 14. 下列可作为Visual Basic变量名的是（）。 A. A%A B. 4A C. ?xy D. Stemp 15. 下列哪个符号不能作为VB中的变量名（）。 A. timefly B. pass4 C. min4max D. R[8] 16. 在窗体内声明的变量是（）。 A. 局部变量 B. 模块变量 C. 公共变量 D. 任意变量 17. 语句Dim x As Integer作用是:将x定义为（）变量。 A. 单精度型 B. 整型

vb控制结构综合练习

控制结构一、选择题 1.VB 的3种结构化程序设计的3种基本结构是________。 A)选择结构、过程结构、顺序结构 B)递归结构、选择结构、顺序结构 C)过程结构、转向结构、递归结构 D)选择结构、顺序结构、循环结构 2.用If 语句表示分段函数 33 11 ()11x x f x x x ?-≥=?+=1Thenf=s^3-1 B)Ifx>=1Thenf=x^3-1 Ifx<1Thenf=x^3+1 C)Ifx>=1Thenf=x^3-1 f=x^3+1 D)Ifx<1Thenf=x^3+1Else F=x^3-1 3.执行下面的程序段后显示结果是________。 PrivateSubForm_Click() Dimm IfmThenPrintmElsePrintm+1 EndSub A)0 B)1 C)”” D)False 4．设a=6，则执行x=IIf(a>5,-1,0)后，x 的值为________。 A)5 B)6 C)0 D)–1 5．下面程序段的运行结果是________。 cj=85 Ifcj>90Thendj="A" Ifcj>80Thendj="B" Ifcj>70Thendj="C" Ifcj>60Thendj="D" Ifcj<60Thendj="E" Print"dj=";dj A)dj=B B)dj=C C)dj=D D)dj=E 6．下列语句正确的是________。 A)IfK<3*NAndk>NThenN=k^3 B)IfK<3*NAndk>NThenN=k3 C)IfK<3*N:k>NThenN=k^3 D)IfK<3*NAndk>NThenN=k**3 7．设X=2.0，y=8.0，z=6.0，L=True ，则下列VisualBasic 表达式中值为True 的是________。 A)X+Z>YANDL B)NOT(YNOTL C)NOTLOR(L=Y+X=Z) D)Y+X>=Z+XAND(LANDFALSE) 8．要判断”月收入在2000元以上（含2000元）且5000元以下（不含5000

vb循环循环章节习题

Do循环练习 2.写下列程序运行结果。(1) s=0 I=1 While i<=5 S=s+i Print s; I=i+1 Wend (2) i=10 While 7-i Print I; I=i-1 Wend (3) s=0:n=1 While n

VB循环结构测试题及答案

~~V B循环结构测试题及答案文件管理序列号：[K8UY-K9IO69-O6M243-OL889-F88688]~~

for j=1 to 2*I-1 print “*”; next j print next I 4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（） private sub text1_change( ) print text1.text; end sub (A) ABCD (B) ( C ) AABABCABCD 5哪个程序段不能分别正确显示1!,2!,3!,4!的（）二：填空题 1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*”。 For I=1 to 5 For j=2 to I Print “*”; Next j Next I * * * * (B) * * * * * * * * (C) * * * * * * * * (D) * * * * * * * * A B C D (D) A AB ABC ABCD （A ） for I=1 to 4 n=1 for j=1 to （B ） for I=1 to 4 for j=1 to I (C) N=1 for j=1 to 4 (D) N=1 J=1 Do while j<=4

VB循环结构测试题及答案

循环结构测试题(四) 一：选择题 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 3 re: …. …… Next x next y If I=10 then goto re 2:下列循环语句能正常结束循环的是（）（A）I=5 (B) I=1 do do I=I+1 I=I+2 Loop until I<0 loop until I=10 (C) I=10 (D) I=6 do do I=I-1 I=I-2 Loop until I<0 loop until I=1 3:下面程序段的运行结果为（） for I=3 to 1 step –1 print spc(5-I); for j=1 to 2*I-1

next j print next I 4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（） private sub text1_change( ) print text1.text; end sub (A) ABCD (B) ( C ) AABABCABCD 5哪个程序段不能分别正确显示1!,2!,3!,4!的（）二：填空题 1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*”。 For I=1 to 5 For j=2 to I Print “*”; Next j Next I 3: 下列第40句共执行了（ ③ ）次，第41句共执行（④ ）次。 30 for j=1 to 12 step 3 40 for k=6 to 2 step –2 * * * * (B) * * * * * * * * (C) * * * * * * * * (D) * * * * * * * * A B C D (D) A AB ABC ABCD （A ） for I=1 to 4 n=1 for j=1 to （B ） for I=1 to 4 for j=1 to I (C) N=1 for j=1 to 4 (D) N=1 J=1 Do while j<=4

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

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

（3）xy y x 310+ （4）a ac b b 242-+- （5）3211111r r r ++ （6） 110 ln 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")

vb循环结构选择题

~~vb循环结构选择题~~

C、2 D、3 10、Do…loop循环结构中的Exit Do语句的功能是（B） A、退出整个程序 B、退出当层循环 C、退出最外层循环 D、退出所在子程序 11、Do…loop中使用while关键字时，条件为（B）执行循环体 A、False B、True C、0 D、假或真 12、Do…loop中使用until关键字时，条件为（A）执行循环体 A、False B、True C、0 D、假或真 13、Do…loop中使用while关键字时，条件为（A）终止循环 A、False B、True C、0 D、假或真 14、Do…loop中使用until关键字时，条件为（B）终止循环 A、False B、True C、0 D、假或真 15、For…Next循环结构中（C）用来控制循环变量 A、for B、step C、next D、to 16、For…Next循环结构中step用来控制（D） A、循环变量 B、循环变量初值 C、循环变量终值 D、循环变量增量 17、For…Next循环结构中循环变量初值大于终值时,步长为（A） A、负数 B、非负数 C、正整数 D、正数 18、For…Next循环结构中循环变量初值小于终值时,步长为（A） A、负数

VB循环结构复习学案

主题：循环结构一、考点点击： 1、学会使用循环结构设计程序的基本方法。二、学习目标： 1、掌握for循环语句、do……loop循环语句的格式及执行流程 2、学会用循环控制结构来解决实际问题三、活动形式在教师引导下的自主学习四、考点注解：学会使用循环结构设计程序的基本方法。按条件重复执行一种操作的结构称为循环结构。循环结构有两种形式，即当型循环结构和直到型循环结构。（ 1）当型循环结构：先进行判断，然后根据判断结果（真或假）再决定是否执行循环体的循环结构称为当型循环结构，如左图所示。（ 2）直到型循环结构：先执行一次循环体，然后再根据判断结果（真或假）决定是否继续执行循环体的循环结构称为直到型循环结构，如下图所示。从上述两种循环结构的流程图可以看出，对于当型循环结构，程序有可能一次也不执行循环体；对于直到型循环结构，程序至少要执行一次循环体。循环语句实现循环结构。 VB中循环语句有两种：Do…Loop语句和For…Next语句。Do…Loop语句是条件型循环，当循环的执行是由条件控制，在循环的次数不确定时通常选用该语句；For语句是计数循环，在循环次数已知时选用该语句。（一）、do……loop循环

（二）For…Next 语句在循环次数已知的情况下，采用 For…Next 语句实现循环结构是比较合适的选择。 For…Next 语句的格式如下：先计算条件表达式的值，当其值为True 时，执行循环体中的语句序列，然后再重新计算条件表达式的值，当条件表达式的值为False 时，循环终止，执行Loop 语句后的语句。先计算条件表达式的值，当其值为False 时，执行循环体中的语句序列，然后再重新计算条件表达式的值，直到条件表达式的值为True 时，循环终止，执行Do Until … Loop 语句的下一条语句。先执行循环语句，再判断条件表达式的值，当条件条件表达式的值为True 时继续执行循环体，当条件表达式的值为Ｆalse 结束循环，转而执行Loop While 后面的语句先执行循环语句，再判断条件表达式的值，当条件条件表达式的值为False 时继续执行循环体，直到条件为True 结束循环转而执行Loop Until 后面的语句。

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

一、VB基本知识及选择、循环结构习题一、基本概念题（1）说明下列哪些是Visual Basic合法的直接常量，并分别指出它们的类型。 %100 1E1 123D3 123,456 0100 “ASDF” “” #2004/10/7# 100# π &O78 &H123 True T -1123! # （2）下列数据哪些是变量，哪些是常量是什么类型的常量 Name “name” False ff “11/16/99” cj “120” n #11/12/2004# （3）下列符号中，哪些可以是Visual Basic的合法变量名 A123 a12_3 123_a a,123 a 123 Integer XYZ False Sin(x) 变量名 sinx π （4）把下列数学表达式写成Visual Basic表达式：（1）（2）（3）（4）（5）（6）（5）写出下列表达式的值：（1）123 + 23 Mod 10 \ 7 + Asc("A") （2）Int * 100 + / 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 （2）Fix （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 （12）UCase("Visual Basic") 二、选择题（1）可以同时删除字符串前导和尾部空格的函数是。 A. Ltrim B. Rtrim C. Trim D. Mid （2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数。 A. (0,1) B. (0,9) C. (1,10) D. (1,9) （3）数学式子sin25o写成Visual Basic表达式是。 B. Sin(25) C. Sin(25o) D. Sin(25*180) （4）表达式16/4 – 2^3 * 8/4 Mod 5\2的值是。 A. 14 B. 4 C. 20 D. 2 （5）数学关系式表示成正确的VB表达式为。 A. 3<= x <10 B. x >= 3 And x<10 C. x>=3 Or x<10 D. 3<= x And <10 （6）已知A=””，则表达式Val(Left(a, 4) + Mid(a, 4, 2))的值是。 A. 123456 B. 123445 C. 8 D. 6 （7）表达式Len("123程序设计ABC")的值是。 A. 10 B. 14 C. 20 D. 17 （8）下面正确的赋值语句是。 A. x+y=30 B. y=3π*r*r C. y=x+30 D. 3y=x+1

vb循环结构练习题

1.打印有规律图形 Private Sub Form_Click() For i = 1 To 9 Print Tab(20 - i); String(2 * i - 1, Trim(Str(i))) Next i Print Tab(10); String(19, Right(Str(i), 1)) End Sub 近似计算pi的值； Private Sub Command1_Click() n = Text1 pi = 2 For i = 1 To n a = (2 * i) * (2 * i) / ((2 * i - 1) * (2 * i + 1)) pi = pi * a Next i Text2 = pi End Sub 3.显示图形 Private Sub Picture1_Click() Dim se As String For i = 1 To 6 s = 0 For j = 1 To i s = 10 * s + j If i Mod 2 = 0 Then se = "-" & s Picture1.Print Tab(j * 9 + 1); se; Else: se = s Picture1.Print Tab((j) * 9 + 2); se; End If Next j Picture1.Print Next i End Sub 4.显示水仙花数，三位数的 Private Sub Form_Click() For s = 100 To 999 a = s \ 100

b = (s - 100 * a) \ 10 c = s - 100 * a - 10 * b If s = a * a * a + b * b * b + c * c * c Then Print s End If Next s End Sub 求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 = 0 s = 0 For i = 1 To n temp = temp * 10 + m s = s + temp Next i Print s Print m Print n End Sub 规范文字句子开头大写，其他都小写，句子结束符号位“.”“！”“？” Option Explicit Private Sub Command1_Click() Dim T As String, i, S As String, zf As String Dim OutPut As String T = "." zf = Trim(Text1.Text) For i = 1 To Len(zf) S = Mid(zf, i, 1) OutPut = OutPut & IIf(InStr("?.!？。！“”" & Chr(34), T) > 0, UCase(S), LCase(S)) If InStr(Chr(13) & Chr(10) & " ", S) = 0 Then T = S Next Text1.Text = OutPut End Sub 原来的规范后的

VB循环结构练习题

VB循环结构测试题及答案

VB基本学习知识及其选择,循环结构习题集

VB循环结构测试题及答案

微机vb选择题

VB循环结构测试题及答案

vb循环结构选择题

VB循环结构测试题及答案

程序设计语言VB单项选择题及答案

vb控制结构综合练习

vb循环循环章节习题

最新VB循环结构练习题资料

VB循环结构测试题及答案

VB循环结构测试题及答案

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

vb循环结构选择题

VB循环结构复习学案

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

vb循环结构练习题