VB控制结构及答案
VB控制结构
一、单选题
1. 下面的程序运行后，显示的结果是________。
Dim x%
If x Then Print x+1 Else Print x
A） 1 B） 0 C）显示错误信息 D） 2
2. 语句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 为赋值语句
3. 下面分段函数 , 下面不正确的程序段是______。
A） If x >= 1 then f=sqr(x+1) B） If x >= 1 then f=sqr(x+1) f=x*x+3 If x < 1 then f=x*x +3
C） If x >= 1 then f=sqr(x+1) _ D） If x < 1 then f=x*x +3 _ Else f = x*x +3 Else f=sqr(x+1)
5. 下面的程序段，显示的结果是 ______。
Dim x
x= Int(RnD） + 5
Select Case x
Case 5
Print “优秀”
Case 4
Print “良好”
Case 3
Print “及格”
Case Else
Print “不及格”
End Select
A）不及格 B）良好 C）及格 D）优秀6. 下面程序段求两个数中较大数，________不正确。
A） Max = IIF(x > y, x, y)
B） If x > y Then Max = x Else Max = y
C） Max = x
If y >= x Max = y
D） If y >= x Max = y
Max = x
7. 下列循环语句能正常结束的是________。
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 12. 变量未赋值时，数值型变量的值为______。
A）0 B）空串"" C）ll D）没任何值
13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
For n=1 To 20
If n Mod 3<>0 then m=m+n\3
Next n
print n
End sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A）15 B）18 C）21 D）24
14. 窗体中存在命令按钮Command1，其Click事件代码如下：
Private Sub Command1_Click()
X = 2
Y = 1
If X * Y < 1 Then Y = Y - 1 Else Y = -1
Print Y - X > 0
End Sub
程序运行后，单击命令按钮，输出结果为______。
A）True B）False C）-1 D）1
15. 设a=5，b=6，c=7，d=8，执行下列语句后，x的值为______。
x=IIf((a>B） And (c>D） , 10, 20)
A）10 B）20 C）True D）False
16. 执行以下程序段
a$= "abbacddcba"
For i = 6 To 2 Step -2
X= Mid(a,i,i)
Y= Left(a,i)
Z= Right(a,i)
Z= UCase(X & Y & Z)
Next i
Print z
输出结果为______。
A）ABA B）BBABBA C）ABBABA D）AABAAB
17. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
c=1234
c1=Trim(Str(C）)
For i=1 To 4
Print ____
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在下划线处应填入的内容为______。
A）Right(c1,i) B）Left(c1,i) C）Mid(c1,i,1) D）Mid(c1,i,i)
18. InputBox函数返回值的类型为______。
A）数值 B）字符串
C）变体 D）数值或字符串（视输入的数据而定）
19．MsgBox函数返回值的类型为______。
A）整型数值 B）字符串
C）变体 D）数值或字符串（视输入的数据而定）
20. 窗体上画一个命令按钮和一个文本框，其名称分别为command1 和text1，把文本框的text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
a=InputBox("Enter an Integer")
b=InputBox("Enter an Integer")
Text1.Text=b+a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。A）108 B）18 C）810 D）出错
21. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer,s As Integer
a=8
s=1
Do
a=a-1
Loop While a<=0
Print s;a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是______。
A）7 9 B）34 0 C）9 7 D）死循环23. 以下能够正确计算n!的程序是______。
A）Private Sub Command1_Click()
N = 5 : X = 1
Do
x = x * i
i = i + 1
Loop While i < n
Print x
End Sub
B）Private Sub Command1_Click()
N = 5 : x = 1 : i = 1
Do
x = x * i
i = i + 1
Loop While i < n
Print x
End Sub
C）Private Sub Command1_Click()
N = 5 : x = 1 : i = 1
Do
x = x * i
i = i + 1
Loop While i <= n
End Sub
D）Private Sub Command1_Click()
N = 5 : x = 1 : i = 1
Do
x = x * i
i = i + 1
Loop While i > n
Print x
End Sub
24. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim num As Integer
num=1
Do Until num>6
Print num;
num=num+2.4
Loop
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是______。
A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）无数据输出
25. 设有如下程序段
x=2
For i=1 to 10 step 2
x=x+i
Next
运行以上程序后，X的值是______。
A）36 B）27 C）38 D）57
26. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
Dim i As Integer,n As Integer
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。
A）2 B）3 C）4 D）5
27. 下列程序段的执行结果为______。
X=6
For K=1 To 10 Step -2
X=X+K
Next K
Print K;X
A）-1 6 B）-1 16 C）1 6 D）11 31
28. 执行以下程序段
Dim x As Integer, i As Integer
x = 0
For i = 20 To 1 Step -2
x = x + i \ 5
Next i
后，x的值为______。
A）16 B）17 C）18 D）19
29. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click()
n=Val(Text1.Text)
For i=2 To n
For j=2 To Sqr(i)
If i Mod j=0 Then Exit For
Next j
If j>Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是______。
A）输出n以内的奇数 B）输出n以内的偶数
C）输出n以内的素数 D）输出n以内能被j整除的数
30. 新建立窗体中画一个命令按钮，其中事件代码如下：
For x=4 To 1 Step -1
For y=1 To 5-x
Print Tab(y+5);"*";
Next y
Next x
窗体运行后，单击命令按钮，输出结果是______。
A）**** B）* C）***** D）*
*** ** **** *** ** *** *** ***** * **** **
31. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是______。
A）7 B）15 C）157 D）538
32. 在窗体上有一个命令按钮，并有如下代码，程序执行后，单击命令按钮输出结果为______。
Private Sub Command1_Click()
K=0
For J=1 To 2
For I=1 To 3
K=I+1
Next I
For I=1 To 7
K=K+1
Next I
Next J
Print K
End Sub
A）10 B）6 C）11 D）16
33. 在窗体上画一个命令按钮和两个标签，其名称分别为Command1）Label1和Label2，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 10
a=a+1
b=0
For j=1 To 10
a=a+1
b=b+2
Next j
Next i
Label1.Caption=Str(A）
Label2.Caption=Str(B）
End Sub
程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是______。
A）10和20 B）20和110 C）200和110 D）110和20
34. 有一个分段函数，当X<0时，Y=-1；当X=0时，Y=0；当X>0时，Y=1。该分段函数在程序段中可表达为______。
A）If X<0 Then Y=-1 B）If X>0 Then Y=1
If X=0 Then Y=0 If X=0 Then Y=0
Else Y=1 Else Y=-1
C）If X<0 Then Y=-1 D）If X<0 Then
ElseIf X=0 Then Y=0 Y=-1
Else Y=1 ElseIf X=0 Then
End If Y=0
Else
Y=1
End if
35. 下列语句正确的是______。
A）If X<3*Y , X>Y Then Y=X3 B）If X<3*Y And X>Y Then Y=X3
C）If X<3*Y : X>Y Then Y=X3 D）If X<3*Y And X>Y Then Y=X* *3
36. 下列程序的执行结果为______。
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
EndIf
Print"I=";I
A）I=1 B）I=2 C）I=3 D）I=4
37. 设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < B） Or (c > D）, "A", "B")后，x的值为______。
A）"a" B）"b" C）"B" D）"A"
38. 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
for I=1 To 4
For J=0 To I
Print Chr$(65+I);
Next J
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容为是______。
A）BB B）A C）B D）AA
CCC BB CC BBB
DDDD CCC DDD CCCC
EEEEE DDDD EEEE DDDDD
39. 有如下程序：
Private Sub Form_Click()
xcase=1
t=InputBox(“请输入一个数：”)
Select Case t
Case Is>0
Y=xcase+1
Case Is=0
Y=xcase+2
Case Else
Y=xcase+3
End Select
Print xcase;Y
End Sub
若输入-1，输出结果为：
A）1 4 B）1 3 C）1 2 D）1 1
40. 下列程序段中，若要使输出结果为输入的两个数中较大者的平方，空白处应填写______语句。
x=Val(InputBox(“请输入 x的值：”))
y=Val(InputBox(“请输入 y的值：”))
s=x : ______________
s=s*s
Print s
A）If (x
C）If (x
41. 设X初值为0，则下列循环语句执行后，X的值等于_______。
For i=1 To 10 Step 2
X=X+I
Next i
A）25 B）36 C）24 D）27
42. 执行以下程序段时，______。
x=1
Do While x<>0
x=x*x
print x;
Loop
A）循环体将执行1次 B）循环体将执行0次
C）循环体将执行无限次 D）系统将提示语法错误
43. 设窗体中包含1个命令按钮Command1,1个标签Label1;并有以下的事件过程。程序运行后，单击Command1按钮，标签中显示的内容是_______。
Private Sub Command1_Click()
Dim I As Integer,n As Integer
I=1: n=0
Do While I<10
n=n+I
I=I*(I+1)
Loop
Label1=I & ”-” & n
End Sub
A）6-3 B）24-9 C）42-9 D）6-9 44. 有如下程序：
Do
循环体
Loop While <条件>
则以下叙述中错误的是_______。
A）若“条件”是一个为0 的常数，则一次也不执行循环体
B）“条件”可以是关系表达式、逻辑表达式或常数
C）循环体中可以使用Exit Do语句
D）如果“条件”总是为True，则不停地执行循环体
45. 有如下程序：
For i=1 to 3
For j=5 to 1 Step –1
Print i*j
Next j
Next i
则语句Print i*j的执行次数是_______。
A）15 B）16 C）17 D）18
46. 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer, x As Integer
For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序运行后，单击命令按钮，其输出结果为_______。
A）9 B）6 C）12 D）15
47. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c = "ABCD"
For n = 1 To 4
Print _________
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
D
CD
BCD
ABCD
则在________处应填入的内容为_______。
A）Left(c,n) B）Right(c,n) C）Mid(c,n,1) D）Mid(c,n,n)
48. 如果A为整数，且|A|>=100，则打印“OK”，否则打印“Error”，表示这个条件语句的单行语句是______。A） If Int(A）=A And Sqr(A）>=100 Then Print "Ok" Else Print "Error"
B） If Int(A）=A And (A>=100,A<=-100) Then Print "Ok" Else Print "Error"
C） If Fix(A）=A And Abs(A）>=100 Then Print "Ok" Else Print "Error"
D） If Fix(A）=A And A>=100 And A<=-100 Then Print "Ok" Else Print "Error"
49. 在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序: Private Sub Command1_Click()
a = InputBox("请输入日期(1~31)")
t = "旅游景点:" _
& IIf(a > 0 And a <= 10, "长城", "") _
& IIf(a > 10 And a <= 20, "故宫", "") _
& IIf(a > 20 And a <= 30, "颐和园", "")
Text1.Text = t
End Sub
程序运行后,如果从键盘输入16,则在文本框中显示的内容是_______。
A）旅游景点：长城故宫 B）旅游景点：长城颐和园
C）旅游景点：颐和园 D）旅游景点：故宫
50. 下列程序段显示______个“*”。
For i=1 to 5
For j=2 to 5
Print ”*”
Next j
Next i
A）25 B）10 C）20 D）15在
51. 要使下面程序段能正确显示1！、2！、3！、4！的值，第一行横线处应填写______。
____________
For j=1 to 4
n=n*j
Print n
Next j
A）n=0 B）n=1 C）j =1 D）j=0
52．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a = "ABBACKDIEKEI"
For I = 9 To 2 Step -3
x = Mid(a, I, I)
y = Left(a, I)
z = Right(a, I)
z = x & y & z
Next I
Print z
End Sub
程序运行后，如果单击命令按钮，则输出结果是______。
A）BACABBKEI B）EKEIABBACKDIEAACKEIEKEI C）DEIEKEIABBACKDIEKEI D）ACKABBKEI
53．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
M1=1
M2=2
Do While M2<>5
M1=M1*M2
M2=M2+1
Loop
Print "M1=";M1,"M2=";M2
End Sub
程序运行后，如果单击命令按钮，输出结果是______。
A）M1= 24 M2= 5 B）M1= 1 M2= 2 C）M1= 24 D）M1= 1
M2= 5 M2= 2
54．阅读下面的程序段：
For i=1 To 3
For j=1 To i
For k=j To 3
a=a+1
Next k
Next j
Next i
执行上面的三重循环后，a 的值为______ 。
A） 3 B） 9 C） 14 D） 21
55. 在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Commandl），然后编写如下事件过程：
Private Sub Commandl_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为______。
A）1和0 B）2和72 C）3和50 D）4168
56. 在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
&a, mp;n, bsp; Text2.Text=Str(n)
程序运行后，单击命令按钮，在两个文本框中显示的值分别是______。
A）15和1 B）27和3 C）195和3 D）600和4 57. 下列语句组中,不能循环100次的有 ______。
A）N=0
DO
N=N+1
LOOP UNTIL N>=100
B）N=0
DO
N=N+1
LOOP WHILE N<100
C）N=0
DO
N=N+1
LOOP UNTIL N<100
D）N=0
DO WHILE N<100
N=N+1
LOOP
58. 假定有如下事件过程：
Private Sub Form_Click()
Dim x As Integer
x=1
n=0
Do While x<28
x=x*3
n=n+1
Loop
Print x, n
程序运行后，单击窗体，输出结果是______。
A）81 4 B）56 3 C）28 1 D）243 5 59. 新建窗体上新建立一个命令按钮，其中有如下事件代码：
Private Sub Command1_Click()
I = 0
For G = 10 To 19 Step 3
I = I + 1
Next G
Print I
End Sub
窗体运行后，单击命令按钮，输出结果为______。
A）3 B）4 C）5 D）6
60. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
x = InputBox("input")
Select Case x
Case 1, 3
Print "分支 1"
Case Is > 4
Print "分支 2"
Case Else
Print "Else 分支"
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是______。
A）分支 1 B）分支 2 C）Else 分支 D）程序出错
61. 以下Case语句中错误的是______。
A）Case 0 To 10 B）Case Is>10
C）Case Is>10 And Is<50 D）Case 3,5,Is>10
62. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。A） 3 B） 4 C） 5 D） 6
63. 下列程序代码，执行后单击鼠标结果为______。
Private Sub Form_Click()
A = 0:
B = 0
For I = -1 To -2 Step -1
For J = 1 To 2
B = B + 1
Next J
A = A + 1
Next I
Print A; B
End Sub
A）2 4 B）-2 2 C）4 2 D）2 3 64. Private Sub Form_Click()
Dim Check,Counter
Check=0
Do
Do While Counter<20
《VB选择结构程序设计》教学设计
《VB选择结构程序设计》教学设计 山东省临清市第二中学吴焕英 【案例背景】 高中信息技术新课程的实施，其课程目标定位于全面提升学生的信息素养，其课程的设置从知识与技能、过程与方法、情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何更有效地开展新课程教学，成为老师们迫切需要解决的问题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 算法与程序设计是普通高中信息技术课程中选修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是教育科学出版社出版的高级中学课程标准实验教科书、算法与程序设计第二章第三节的内容，共分三课时，本课为第二课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法，这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项：
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）5||z y x ++ （2）6)1(xy + （3）xy y x 310+ （4）a ac b b 242-+- （5）3211111r r r ++ （6）110ln 45sin 10++++y x e （5）写出下列表达式的值： （1）123 + 23 Mod 10 \ 7 + Asc("A") （2）Int * 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）数学关系式103<≤x 表示成正确的VB 表达式为 。 A. 3<= x <10 B. x >= 3 And x<10 C. x>=3 Or x<10 D. 3<= x And <10
vb控制结构综合练习
控制结构 一、选择题 1.VB 的3种结构化程序设计的3种基本结构是________。 A) 选择结构、过程结构、顺序结构 B) 递归结构、选择结构、顺序结构 C) 过程结构、转向结构、递归结构 D) 选择结构、顺序结构、循环结构 2.用If 语句表示分段函数 3311()11 x x f x x x ?-≥=?+=1 Then f=s^3-1 B) If x>=1 Then f=x^3-1 If x<1 Then f=x^3+1 C) If x>=1 Then f=x^3-1 f=x^3+1 D) If x<1 Then f=x^3+1 Else F=x^3-1 3.执行下面的程序段后显示结果是________。 Private Sub Form_Click() Dim m If m Then Print m Else Print m+1 End Sub 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 If cj>90 Then dj="A" If cj>80 Then dj="B" If cj>70 Then dj="C" If cj>60 Then dj="D" If cj<60 Then dj="E" Print "dj=";dj A) dj=B B) dj=C C) dj=D D) dj=E 6．下列语句正确的是________。 A) If K<3*N And k>N Then N=k^3 B) If K<3*N And k>N Then N=k3 C) If K<3*N : k>N Then N=k^3 D) If K<3*N And k>N Then N=k**3 7．设X=2.0，y=8.0，z=6.0，L=True ，则下列Visual Basic 表达式中值为True 的是________。 A) X+Z>Y AND L B) NOT(Y
vb控制结构综合练习
A) 0 B) 1 C) ””D) False 控制结构4．设a=6，则执行x=IIf(a>5,-1,0)后，x的值一、选择题为________。 种基本结构1.VB的3种结构化程序设计的3A) 5 B) 6 C) 0 D) –1 是________。5．下面程序段的运行结果是________。 A) 选择结构、过程结构、顺序结构cj=85 递归结构、选择结构、顺序结构B) 晉挠??吠敨?橤尽屁 过程结构、转向结构、递归结构C) 晉挠??吠敨?橤尽层 D) 选择结构、顺序结构、循环结构晉挠??吠敨?橤尽屃 2.段函数表用If语句示分晉挠??吠敨?橤尽屄3?1x?x?1?x)(f表________ ，以下?311x?x?晉挠??吠敨?橤尽居?示方法不正确。Print dj=;dj A) f=x^3+1A) dj=B B) dj=C C) dj=D D) dj=E 1 If x>=1 Then f=s^3- -B) If x>=1 Then f=x^31 If x<1 Then f=x^3+1 -1C) If x>=1 Then f=x^3 f=x^3+16．下列语句正确的是________。 D) If x<1 Then f=x^3+1 Else A) If K<3*N And k>N Then N=k^3 F=x^31-B) If K<3*N And k>N Then N=k3 。执行下面的程序段后显示结果是3.________ C) If K<3*N : k>N Then N=k^3 Private Sub Form_Click() D) If K<3*N And k>N Then N=k**3 Dim m ，则下列L=True，z=6.0，，7．设X=2.0y=8.0是的值为True中达BasicVisual 表式If m Then Print m Else Print m+1 。________ End Sub A) X+Z>Y AND L． B) NOT(Y
第四章 VB程序的控制结构
第四章VB程序的控制结构 4.1算法概论 1．算法的概念 算法：指用计算机解决某一问题的方法和步骤。 数值算法：用于解决一般数学解析方法难以解决的问题，如：求超越方程的根、求定积分、解微分方程等。 非数值算法：用于对非数值信息进行查找、排序等。 2．算法的特征 （1）确定性：指算法的每个步骤都应确切无误，没有歧义。 （2）可行性：指算法的每个步骤必须是计算机能够有效执行、可以实现的，并可得到确定的结果。 （3）有穷性：指一个算法应该在有限的时间和步骤内可以执行完毕的。 （4）输入性：指一个算法可以有0或多个输入数据。 （5）输出性：指一个算法必须有一个或多个输出结果。 3．算法的评价 主要评价指标是：算法是否正确、运行的效率、占用系统资源的多少。 4．算法的描述 一般常用流程框图来描述算法。
5.基本算法结构 “结构化程序设计方法”规定算法有三种基本结构：顺序结构、选择结构和循环结构 6．算 法示 例 （1） 欧几里德算法——求两个自然数的最大公约数
（2）顺序查找算法——在N个字符串集合中，查找有无特定的字符串存在
4.2顺序结构 1.赋值语句 赋值语句是任何程序设计中最基本的语句，赋值语句都时顺序执行的。赋值语句的形式为：
变量名= 表达式 它的作用是计算右边表达式的值，然后赋给左边的变量，表达式的类型应该与变量名的类型一致。 2. 使用说明 （1）当表达式为数值型而与变量精度不同时，强制转换成左边变量的精度； （2）当表达式是数字字符串，左边变量是数值类型，自动转换成数值类型再赋值，但当表达式中有非数字字符或空串，则出错。 （3）任何非字符类型赋值给字符类型，自动转换为字符类型； （4）当逻辑型赋值给数值型时，True转换为-1，False转换为0；反之，非0转换为True，0转换为False； （5）赋值号左边的变量只能是变量，不能是常量、常数符号、表达式，否则报错； （6）不能在一句赋值语句中，同时给各变量赋值； （7）在条件表达式中出现的= 是等号，系统会根据= 号的位置，自动判断是否为赋值号； （8）注意N=N+1 是累加中常见的赋值语句，表示将N变量中的值加1后再赋值给N。 5 4.3选择结构（或称分支结构) 1.1. IF条件语句 （1）If……Then语句（单分支结构F） 语句形式： 1）If<表达式> Then 语句块 End If 2）If <表达式> Then <语句>
VB程序基本知识学案
主题：程序基本知识 数据类型、常量、变量、函数和表达式 一、点击考点： 1、知道常用的数据类型、变量、常量的含义；学会定义常量、变量的数据类型。 2、知道程序中运算符、函数、表达式的表示方式，能够转换数学表达式为程序接受的 表达式。 3、掌握程序包括的四部分。 二、学习目标： 1、掌握数据类型及其特点； 2、知道常量、变量的声明格式；学会定义常量、变量 3、知道程序中运算符、函数、表达式的表示方式，能够转换数学表达式为程序接受的表达式。 4、知道程序包括的四部分内容。 三、学习方式： 在老师引导下的自主学习，互相评价做题效果 四、考点注解 1、知道常用的数据类型、变量、常量的含义；学会定义常量、变量的数据类型。 （1）VB数据类型（阅读课本27页的表） （2）常量 在程序执行过程中，其值不能改变的量称为常量。常量可以直接用一个数来表示，称为常数（或称为直接常量），也可以用一个符号来表示，称为符号常量。 常量的定义格式如下： Const <常量名> [As 数据类型]=表达式 （3）变量 在程序执行过程中，其值可以改变的量称为变量。 1）变量的命名规则 ?变量名首字符必须是字母； ?变量名只能由字母、数字和下划线组成； ?变量名不能使用VB中的关键字（保留字）； ?变量名在同一个作用域内必须唯一； ?变量名长度不超过255； ?变量的命名最好还应遵守一定的编程约定。 3）变量定义语句 Dim <变量名> As <类型> [, <变量名> As <类型>]… 2、知道程序中运算符、函数、表达式的表示方式，能够转换数学表达式为程序接受的表达式。 运算符是在代码中对各种数据进行运算的符号。例如，有进行加、减、乘、除算术运算的运算符，有进行与、或、非、异或逻辑运算的运算符。 表达式是由运算符和运算对象及圆括号组成的一个序列，它是由常量、变量、函数等用运算符连接而成的式子。表达式是构成程序代码的最基本要素。 1）赋值运算符 赋值语句的语法格式为：
VB控制结构及答案
VB控制结构 一、单选题 1. 下面的程序运行后，显示的结果是________。 Dim x% If x Then Print x+1 Else Print x A） 1 B） 0 C）显示错误信息 D） 2 2. 语句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 为赋值语句 3. 下面分段函数 , 下面不正确的程序段是______。 A） If x >= 1 then f=sqr(x+1) B） If x >= 1 then f=sqr(x+1) f=x*x+3 If x < 1 then f=x*x +3 C） If x >= 1 then f=sqr(x+1) _ D） If x < 1 then f=x*x +3 _ Else f = x*x +3 Else f=sqr(x+1) 5. 下面的程序段，显示的结果是 ______。 Dim x x= Int(RnD） + 5 Select Case x Case 5 Print “优秀” Case 4 Print “良好” Case 3 Print “及格”
Case Else Print “不及格” End Select A）不及格 B）良好 C）及格 D）优秀6. 下面程序段求两个数中较大数，________不正确。 A） Max = IIF(x > y, x, y) B） If x > y Then Max = x Else Max = y C） Max = x If y >= x Max = y D） If y >= x Max = y Max = x 7. 下列循环语句能正常结束的是________。 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 12. 变量未赋值时，数值型变量的值为______。 A）0 B）空串"" C）ll D）没任何值 13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() For n=1 To 20 If n Mod 3<>0 then m=m+n\3 Next n print n End sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
VB程序的三种基本结构复习课教学案例
《VB程序的三种基本控制结构》 复习课教案 平桂高级中学陀君一、案例背景信息 模块：算法与程序设计 年级：高一年级 所用教材版本：粤教版《算法与程序设计》 学时数：1课时（40分钟） 二、教学设计： 1、教学目标： 知识与技能：能根据流程图正确区分VB程序的三种基本结构，并记住相关语句格式，能编写出简单明了的程序关键代码； 过程与方法：充分认识VB程序中三种基本结构的实用性，体会生活中算法的存在和精彩。 情感态度与价值观：培养学生在学习过程中积极思考、自我探究的能力和学以致用的意识。 2、教学重点：顺序、选择（分支）和循环三种基本结构的区分及其对应的VB 语句的使用。 教学难点：for循环结构，各类语句关键代码的编写。 三、教学实录 1．复习引入 师：我们之前学过VB的基本结构，通常程序有三种最基本的结构，是哪三种结构？ 大部分学生在底下小声回答，师让某生回答，说：顺序模式、分支模式、循环模式。
师：分支模式也可称为？ 部分学生：选择模式。 师：非常好，接下来看下这三种结构的流程图，然后分别指出这三个流程图是什么结构。（出示三种流程图结构） 2．正题 （1）顺序结构P38： 执行第一条语句后，必然从第二条语句继续，顺序执行所有的语句，直到执行完最后一条语句为止。 例1：例1、 a=1 b=2 c=a+b a=c-a b=c-a
最后，变量b的值是（ 1 ） （2）选择结构（分支结构）：P42 根据条件判断其是否成立，如果成立执行成立的分支；否则执行另一分支。其一般形式为： If 条件Then 语句序列1 Else 语句序列2 End If 单行形式为： If 条件Then 语句组1 Else 语句组2 例2、a =10 If a>=10 Then a=a+1 Else a=a-1 End If 该程序段运行后，变量a的值是（ D ） A. 8 B. 9 C. 10 D. 11 【师读题，学生思考。请同学回答，让同学们思考a=5结果是多少】 （3）循环结构：P51 根据条件判断其是否成立，如果条件成立则重复执行循环体（循环结构中某语句序列），直到条件不成立，退出循环结构为止。 循环结构的常用形式为： for 循环变量= 初值to 终值[step 步长] [循环体] next [循环变量]
VB程序控制结构语法格式
VB程序控制结构语法格式 一．选择控制结构 条件语句也称if语句，有两种结构：1单行结构；2块结构 1.单行结构，格式：If条件then then部分 Else else部分 如果“条件”为true，执行“then部分”，否则执行“else部分” 2.块结构，格式：If条件1then 语句块1 Elseif条件2 then 语句块2 …… Else 语句块n End if 二．多分支控制结构 情况语句：也称为select case语句或case语句 格式：Select Case测试表达式 Case 表达式列表1 语句块1 [case 表达式列表2 [语句块2]] …… [case else [语句块n]] End Select 情况语句以SelectCase开头，EndSelect结束，功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行。 表达式列表：1、表达式[,表达式] 2,表达式to表达式3、is关系运算表达式，关系运算符 Case 2,4,6,8 case 1to 5 case is=12或caseis VB控制结构——goto型控制语句 一、goto语句 goto语句可以改变程序的顺序，跳过程序的某一部分去执行另一部分。或者返回已经执行过的某些语句使之重复执行。因此，用goto语句可以构成循环。 Goto语句的一般格式：goto [ 标号或行号] “标号”是一个以冒号结尾的标识符；“行号”是一个整型数。它不以冒号结尾。 例如：aa：是一个标号 100 是一个行号 Goto语句改变程序执行的顺序。无条件地把控制转移到“标号”或“行号”所在的程序行，并从该行开始向下执行。 需要注意的就是： （1）标号必须以英文字母开头，以冒号结束，而行号由数字组成，后面不能跟有冒号。Goto语句中的行号或标号在程序中必须存在，并且是唯一的，否则会产生错误。标号或行号可以在goto语句之前，也可在其之后。当在goto语句之前时，提供了实现循环的另外一种途径。 （2）V isual basic对goto语句的使用有一定的限制。它只能在一个过程中使用。 二、On--goto语句 On—goto语句类似于情况语句，用来实现多分支控制结构。它可以根据不同的条件从多种处理方案中选择一种，其格式为： On 数值表达式goto 行号列表或标号列表 On—goto语句的功能是：根据“数值表达式”的值，把控制转移到几个指定语句行中的一个语句行。“行号列表”或“标号列表”可以是程序中存在的多个行号或标号，相互之间需要用逗号隔开。例如： On x goto 20，35，aa，bb 该语句的执行过程是：先计算“数值表达式”的值，将其四舍五入得一整数。然后根据该整数的值决定转移到第几个行号或标号执行。如果其值为1，则转向第一个行号或标号所指出的语句行；如果为2，则转达向第二个行号或标号指出的语句行……依次类推。如果“数值表达式”的值等于0或大于“行号列表”或“标号列表”中的项数。程序找不到适当的语句行，将自动执行On—goto语句下面的一个可执行语句。 因为这个语句在一些工程量比较大的程序中，容易使程序变得混乱，所以我们应该尽量少用这些语句，并尽量用情况语句（select case）来代替。 第3章VB程序语句与控制结构 一个VB应用程序主要由用户界面和响应各事件的程序代码组成，程序代码是应用程序的核心。本章首先介绍程序代码设计的基础知识，再通过一些典型的例子，使大家逐步掌握编程的思路和技巧。VB虽然是面向对象的程序设计语言，但在代码设计中仍然支持结构化程序设计的三种基本结构，即顺序结构、选择结构和循环结构。本章将主要介绍数据的输入与输出、三种基本程序控制结构及语句。 3.1 数据的输入与输出 VB的输入/输出有多种形式，常用的输入方式有：使用键盘输入数据的函数InputBox 以及文本框等控件。常用的输出方式有： Print方法、MsgBox函数和过程以及图形框、文本框、标签等控件。有关控件的使用在其第六章中介绍，本节主要介绍InputBox函数、MsgBox函数与过程以及Print方法的使用。 3．1．1 InputBox函数 格式：InputBox(提示[，标题][，默认][，x坐标位置][，y坐标位置]) 功能：InputBox函数产生一个对话框，作为输入数据的界面，等待用户输入内容，当用户单击“确定”按钮或按回车键，函数返回输入的值，其值的类型为字符串（String）。 说明： （1）“提示”：必选项。字符串表达式，在对话框中作为提示信息显示，可为汉字。若要多行显示，必须在每行行末加回车符Chr(13)和换行符Chr(10)符或VB符号常数vbCrLf。 （2）“标题”：可选项。字符串表达式，在对话框的标题区显示；若省略，默认为应用程序名。 （3）“默认”：可选项。字符串表达式，当输入对话框中无输入时，则该默认值作为输入的内容。 （4）“x坐标位置、y坐标位置”：可选项。整型表达式，确定对话框左上角相对于屏幕左上角的x、y坐标，单位为twip。该项省略时，对话框出现在屏幕水平、垂直中间的位置。 【注意】 各项参数次序必须一一对应，除了“提示”一项不能省略外，其余各项均可省略，处于中间的默认部分要用逗号占位符跳过。 例如，运行如下代码段，结果显示如图3-1所示,当单击“确定”按钮后，变量strName 的值为“李林”。 Dim strName as String*20 Title = "InputBox函数示例" Msg1 = "请输入你的姓名" StrName=InputBox(Msg1，Title，，200，200) 图3-1 3．1．2 Msgbox 函数与过程 MsgBox用于输出数据，它会在屏幕上显示一个对话框。在对话框中显示消息，等待用 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 《第4章VB控制结构》习题 一、填空题 1、结构化程序设计语言的三种基本控制结构是、、。 2、分支结构中的条件通常是表达式。 1、Select case语句执行哪一个分支的根据是与相匹配。 2、强制性退出Do…Loop循环的语句是，强制性退出For…Next循环的语 句是。 3、VB有三种工作模式，它们分别是、和。 4、VB可能遇到的错误有、和。 5、执行下面的程序段后，s的值为。 s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i 6、阅读程序，写出程序的运行结果box 。 Private Sub Form_Click() Dim k，Box as Ivteger For k=1 to 11 Select Case k Case 1,3,5,7,9,11 Box=Box+Int(k/2) Case 2,4,6,8,10 Box=Box+Int(k/3) End Select Next k Print “Box”;Box End Sub 7、运行时单击窗体，以下事件发生的次序是。 8、执行下列程序段后，x的值是。 n = 5: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n 9、阅读下列程序段： x = 0 For i = 1 To 4 For j = 1 To i x = x + 1 Next j, i 执行以上循环后，x 的值为。 10、执行下列程序段后输出的结果是。 s = 1 For i = 1 To 3 For j = 0 To i-1 s = s + s * j Next j ? s; Next i 11、阅读下列程序段： m = 0 For i = 1 To 3 For j = 1 To i m = m + j Next j, i 执行以上的循环后，i和m的值分别为。12、运行下列程序段，其中“n=n+1”语句被执行的次数是。 Dim m%, n% For m = 1 To 3 For n = 1 To 6 Step 2 n = n + 1 Print n Next n Next m 13、窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Sum = 0 For m = 1 To 3 Select Case m Case 1 a = 1 Case 2 a = 2 Case 3 a = 3 End Select Print a, Sum = Sum + a Next m Print Sum End Sub 运行时，单击按钮，输出结果是。 14、窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() a = 80: b = 50: c = 30 If a < b Or b > c Then b = c If b = c And a < c Then a = a - 30 VB程序设计——选择结构 南京市九龙中学李李 ■教材分析 选择控制结构是程序的三个基本结构中的一个重要结构，计算机的逻辑判断能力就是通过选择结构来完成的。条件语句中的“条件”是用关系表达式、逻辑表达式来描述的。程序中能否实现正确的“选择”决定于关系表达式或逻辑表达式的正确描述。关系表达式与逻辑表达式是本节中教学的重点与难点。 用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想。 ■学情分析 学生在前面的课上对vb程序设计已经有了一定的基础，学生的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 ■教学目标 1.知识与技能 1.了解选择结构的基本概念。 2.了解关系表达式与逻辑表达式的概念。 3.能利用VB中的条件语句实现简单的选择结构。 2.过程与方法 经历实践、分析、归纳，掌握IF语句的格式和功能。 3.情感态度与价值观 运用半成品加工策略，完善程序，发展学生思维的逻辑性及严谨的学习态度。 4.行为与创新 培养学生利用计算机的反馈作用进行探究学习的能力。 ■课时安排 安排1课时。 ■教学重点与难点 1.教学重点 让学生学会使用VB语言的If分支语句，掌握分支判断程序结构，来解决实际问题， 并且培养学生的探索、创新能力。 2.教学难点 对解决问题的方法和步骤的理解，并能根据实际问题写出程序代码。■教学方法与手段 讲述与讨论、实验与验证。 ■课前准备 教学课件、实例程序 ■教学过程 第四章基本的控制结构习题 一、选择题 1. 下面正确的赋值语句是（c ）。 （A）x+y=30 （B）y=π*r*r （C）y=x+30 （D）3y=x 2. 为了给x,y,z三个变量赋初值1，下面正确的赋值语句是（a ）。 （A）x=1:y=1:z=1 （B）x=1,y=1,z=1 （C）x=y=z=1 （D）xyz=1 3. 赋值语句：a=123+Mid（"123456”,3,2）执行后，a变量中的值是（157 ）。 4. 赋值语句：a=123 & Mid（"123456”,3,2）执行后，a变量中的值是（”12334”）。 5. InputBox函数返回值的类型为（字符串）。 6. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(“请输入第一个数”) b=InputBox(“请输入第二个数”) Print b+a End Sob 程序运行后，单击命令按钮，先后在两个输入框中分别输入456和123，则输出结果是（123546 ）。 7. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a as integer, b as integer a=InputBox(“请输入第一个数”) b=InputBox(“请输入第二个数”) Print b+a End Sob 程序运行后，单击命令按钮，先后在两个输入框中分别输入456和123，则输出结果是（579 ）。 8. 设a=10,b=20，则不能实现变量a, b交换的是（ a ）。 vb控制结构综合练习 控制结构 一、选择题 1.VB 的3种结构化程序设计的3种基本结构是________。 A) 选择结构、过程结构、顺序结构 B) 递归结构、选择结构、顺序结构 C) 过程结构、转向结构、递归结构 D) 选择结构、顺序结构、循环结构 2.用If 语句表示分段函数 33 11 ()11 x x f x x x ?-≥=?+=1 Then f=s^3-1 B) If x>=1 Then f=x^3-1 If x<1 Then f=x^3+1 C) If x>=1 Then f=x^3-1 f=x^3+1 D) If x<1 Then f=x^3+1 Else F=x^3-1 3.执行下面的程序段后显示结果是________。 Private Sub Form_Click() Dim m If m Then Print m Else Print m+1 End Sub 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 If cj>90 Then dj="A" If cj>80 Then dj="B" If cj>70 Then dj="C" If cj>60 Then dj="D" If cj<60 Then dj="E" Print "dj=";dj A) dj=B B) dj=C C) dj=D D) dj=E 6．下列语句正确的是________。 A) If K<3*N And k>N Then N=k^3 B) If K<3*N And k>N Then N=k3 C) If K<3*N : k>N Then N=k^3 D) If K<3*N And k>N Then N=k**3 7．设X=2.0，y=8.0，z=6.0，L=True，则下列Visual Basic表达式中值为True的是________。VB控制结构——goto型控制语句
VB程序语句与控制结构
VB程序设计-试题与答案-1
《第4章 VB控制结构》习题
VB程序设计——选择结构.
VB习题 基本的控制结构
vb控制结构综合练习