vb控制结构综合练习
控制结构
一、选择题
1.VB 的3种结构化程序设计的3种基本结构是________。
A) 选择结构、过程结构、顺序结构 B) 递归结构、选择结构、顺序结构 C) 过程结构、转向结构、递归结构 D) 选择结构、顺序结构、循环结构
2.用If 语句表示分段函数
3311()11
x x f x x x ?-≥=?+
示方法不正确。 A) f=x^3+1
If 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
D) Y+X>=Z+X AND (L AND FALSE)
8．要判断”月收入在2000元以上（含2000元）且5000元以下（不含5000元）”的职工，应使用的逻辑表达式是________。 A) M>=2000 AND M<=5000 B) M>=2000 OR M<=5000 C) M>=2000 AND M<5000 D) M>=2000 OR M<5000
9．下列程序段的执行结果为________。 x=Int((69-60)*Rnd+60) Select Case x Case Is>90
Print "优秀" Case 80 To 89 Print "良好" Case 60 To 79 Print "合格" Case Else
Print "不合格" End Select
A) 优秀 B) 良好 C) 合格 D) 不合格 10．在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：运行结果________。
Private Sub Command1_Click() For I=1 To 4 For J=0 To I
Print Chr(65+I); Next J Print Next I End Sub
单击命令按钮后，运行结果________。
A) BB B) A
CCC BB
DDDD CCC
EEEEE DDDD
C) B D) AA
CC BBB
DDD CCCC
EEEE DDDDD
11．在窗体上画一个名称为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
12．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_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 13．阅读下面的程序段：
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
14．在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是________ 。
A)在文本框Text1中输出55
B)在文本框Text1中输出0
C) 出错
D) 在文本框Text1中输出不定值
15．有如下程序：
a=10
b=4
For j=1 To 20 Step -2
a=a+5
b=b+4
Next j
Print a;b
运行后，输出的结果是________。
A) 10 4 B) 60 24 C) 110 44 D) 55
40
16．有如下程序：
d$=""
a$="abcde"
For i=Len(a) To 1 Step -1
d=d+Mid(a,i,1)
Next i
Print d$
运行后，输出的结果是________。
A) abcde B) edcba C) acebd D) ecadb
17．在Command1_Click事件程序的功能是：按顺序读入10名学生4门课程的成绩。计算出每位学生的平均分并输出，程序如下：Dim n As Integer,k As Integer
Dim score As Single,sun As Single,ave As Single
sum=0#
For n=1 To 10
For k=1 To 4
score=InputBox("请输入一门课的成绩")
sum=sum+score
Next k
ave=sum/4
print"第";n;"个人的平均成绩为：";ave
Next n
上述程序运行后结果不正确，调试中发现有一条语句出现在程序中的位置不正确。这条语句是________。
A) sum=0# B) sum=sum+score
C) ave=sum/4 D) print"第";n;"人的均分：";ave
18．下列程序的输出结果是________。
Dim y As Integer
y=10
While y<>0
y=y-1
Wend
Print "y=" ; y
A) y=0 B) y=1 C) y=随机值 D) y=-1 19．以下程序的输出结果是________。
Dim m As Integer
m=1
While m<=3
m=m+1
Print m;
Wend
A) 2 B) 2 3 C) 2 3 4 D) 2 3 4 5 20．下面的程序运行结果是________。Private Sub Form_Click()
m=0
Do Until 0
m=m+1
If m>10 Then Exit Do
Loop
Print m
End Sub
A) 0 B) 10 C) 11 D) 出错21．下面程序运行语句Print m执行的次数是________。
Private Sub Form_Click()
Dim m As Integer,n As Integer
m=0
Do
m=m+1
For n=10 To 1 Step -3
m=m+n
Print m
Next n
Loop While m<50
End Sub
A) 4 B) 8 C) 12 D) 16
22．在窗体上画两个名称分别为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)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是________。
A) 15和1 B) 27和3 C) 195和3 D) 600和4
23．在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
Private Sub Command1_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) 4和168
24．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do Until x=-1
a= InputBox("请输入A的值")
a=Val(a)
b=InputBox("请输入B的值")
b=Val(b)
x=InputBox("请输入x的值")
x=Val(x)
a=a+b+x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为________。
A) 2 B) 3 C) 14 D) 15
二、填空题
1．执行下面的程序，当输入的值为5时输出为________。
Private Sub Form_Click()
Dim x As Single
x=InputBox("X")
If x<0 Then '
y=1 : Print y
ElseIf x>=0 Then
y=2 : Print y
ElseIf x>=1 Then
y=3 : Print y
Else
y=4 : print y
End If
End Sub
2．下面的程序将从InputBox输入对话框得到的3个数按从大到小输出。阅读程序并填空。如果程序运行时分别输入12.3、35.8和25.7三个数，则输出为________。Private Sub Form_Click()
Dim a As Integer,b As Integer,c As Integer
a=InputBox("输入一个数")
b=InputBox("输入一个数")
c=InputBox("输入一个数")
If b>a Then
d=a : a=b : b=d
End If
If c>a Then
d=a : a=c : c=d
End If
If c>b Then
End If
Print a;b;c
End Sub
3．下列程序运行时，单击窗体，执行结果为______________________________。
说明：在窗体上有一个Label控件，名为lblDate。
Dim Y As Integer, D As Integer, W1 As Integer
Dim Rq As Date
Dim W2 As String
Private Sub Form_Click()
Rq = Date
Y = Year(Rq) : m=Month(Rq) : d=Day(Rq)
W1 = Weekday(x)
Select Case W1
Case 1
W2 = "日"
Case 2
W2 = "一"
Case 3
W2 = "二"
Case 4
W2 = "三"
Case 5
W2 = "四"
Case 6
W2 = "五"
Case 7
W2 = "六"
End Select
lbldate.Caption = "今天是" & Y & "年" & M & "月" & D & "日" & W2
End Sub
4．执行下面的程序段后，s的值为____________。
a=5
For i=2.6 To 4.9 Step 0.6
s=s+1
Next i
5．下面是一个体操评分程序。20位评委，除去一个最高分和一个最低分，计算平均分（设满分为10分）。
Max=0
Min=10
For i=1 To 20
n=Val(InputBox"请输入分数")
If ______________Then Max=n
If ______________Then Min=n
s=s+n
Next i
s=______________
p=s/18
Print"最高分";Max,"最低分";Min Print"最后得分:";p
6．下面程序的功能是求1到100的平方和，如果平方和超过了1000则跳出循环，输出此时的和S。
For I=1 To 100
s=s+i*i
If s>1000 Then
______________
End If
next i
abc:Print s 7．以下程序段的输出结果是____________。num=0
While num<=2
num=num+1
Print num
Wend
8．以下程序段的输出结果是____________。Dim j As Integer,s As Integer
Do
s=s+j
j=j+1
Loop Until j=5
Print "s=";s
9．以下程序段，程序运行后，要求执行4次循环。
x=1
Do
x=x+1
print 15
loop Until___________
10．下列程序运行后，内层循环的循环总次数___________。
For x= 1 to 4
For y =1 to x
Print y
Next y
Next x
四、程序阅读题
1．写出下面程序的运行结果。
Private Sub Form_Click()
Dim s As Integer,k As Integer,m As Integer,n As Integer
s=1
For m=1 To 3
For n=m To 3
For k=n To m Step -1
s=s*k
Next k,n,m
Print s
End Sub
2．写出下面程序的运行结果。
Private Sub Form_Click()
For i=3 To 1 Step -1
Print Spc(10-i);
For j=1 To 2*i-1
Print "*";
Next j
Next i
End Sub
3．写出下面程序的运行结果。Private Sub Form_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
4．写出下面程序的运行结果。Private Sub Form_Click()
m=0
Do
m=m+1
If m>10 Then Exit Do
Loop Until m<10
Print m
End Sub
5．写出下面程序的运行结果。Private Sub Form_Click()
Dim m As Integer,n As Integer
m=10
Do
m=m+n
For n=10 To m step -1
m=m+n
Next n
Loop While m<50
Print m;n
End Sub
6．写出下面程序的运行结果。Private Sub Form_Click()
Dim m As Integer,n As Integer,k As Integer
m=1 : n=a : k=5
Do While m<=k*n
m=m*n
n=n+1
Print m;n
Loop
Print m;n
End Sub
7．写出下面程序的运行结果。
Dim i As Integer,a As Integer
Do While i<20
Do While True
If i Mod 10=0 Then
Exit Do
Else
i=i-1
End If
Loop
i=i+11 : a=a+i
Loop
Print a
五、程序填空题
1．下面的程序段是检查输入的文字段中大括号是否配对，并显示相应的结果。本程序在文本框中边输入，边统计大括号的个数，以输入回车符作为输入结束标志，然后显示结果。
Dim count1%,str As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
str=
If str="{" Then
count1=count1+1
ElseIf str="}" Then
End If
If KeyAscii=13 Then
If Then
Print "左右大括号配对"
ElseIf
Then
Print "左大括号多"；count1;"个"
Else
Print "右大括号多"；-count1;"个"
End If End If End Sub
2．阅读下面分段函数及其程序，请填空：
(10)220(100)20(020)
300.5(2040)50(4050)0
(50)
x x x x y x x x x x <-??+-≤
-≤
Dim x As Single,y As Single x=inputBox("请输入x") If(x<-10) Then y=0#
ElseIf(x<0) Then y=2*x+20
ElseIf( ) Then y=20
ElseIf(x<40) Then
ElseIf(x<50) Then y=50-x
y=0 End If
Print "X=";x;"Y=";y
3．随机产生0~100的整数作为某门功课的分数，按0~59、60~69、70~89、90~100划分为不及格、及格、良好、优秀4个层次，阅读程序并填空。
Private Sub Form_Click() Dim m
m=Int(101*Rnd)
Print m
Print m
Select Case m
Case (此空不能超过5个字符)
Print "不及格" Case 6
Print "良好" Case 7,8
Print "良好" Case Else
Print "优秀" End Select End Sub 4．下面的程序输入X 的值，按以下公式求Y
值。1001000
1000100400100200X X Y X X X --≤
=+≤≤??<≤?
Private Sub Command1_Click()
X=Val(Text1.Text) Select Case X
Case Print "X<-100 OR X>200" Case Y=100-X
Case Y=100+X
Case Y=400 End Select Text2.Text=Y End Sub
5．以下程序是利用公式
11114*()1357
π=-+-+L 来计算π的值。
其中，变量k 表示当前符号项，t 表示当前项，n 表示当前项的序号，要求精度控制在0.00001内。试分析程序，完成空格处填的内容。
Dim pi As Single,t As Single Dim n As Single,k As Single pi=0 : n=1
k=1 : t=1
Do While( ) pi =pi+t
k=-k
t=
n=n+1
Loop
pi=
Print "pi=";pi
6．下列程序的功能是输出的前20项，按每行5个数的形式输出。
Fibonacci数列：F1=1,F2=1,Fn=Fn-1+Fn-2(n>=2)
Dim a As Integer, b As Integer
Dim c As Integer, i As Integer
a = 1:
b = 1: i = 3
Print a, b,
Do While (i <= 20)
c = a + b
a = b
b = c
If Then Print
End If
Loop
7.以下程序用于计算N=1+（1+3）+（1+3+5）…（1+3+..+39)
Private Sub Command1_Click()
T = 0: M = 1: Sum = 0
Do
T = T +
Sum = Sum +
M = M + 2
Loop While
Print “Sum="; Sum
End Sub
8.36块砖，36人搬，男搬4，女搬3，2个小儿抬1砖，要求1次全搬完，问需男、女、小儿各多少人？
For Male = 1 To 9
For Female = 1 To 12
For Boy = 2 To 36 Step 2 If Boy + Female + Male = 36 _
And Then Print Male, Femalem, Boy
End If
Next boy, female, male
9.以下程序输入N个书名，并显示书名中含有连续3个字母COM的书Private Sub Command1_Click()
n = Val(InputBox("请输入数量："))
For i = 1 To n
bookname = InputBox("请输入书名：") l = Len
If l >= 3 Then
If ThenPrint bookname End If
Next i
End Sub
10.输出20个在开区间（10，87）中的随机整数，每行输出4个整数
Private Sub Command1_Click()
For I = 1 To 100
r =
Print r;
If Then Print
Next I
End Sub
11.输入两个正整数M、N，求它们的最大公约数，显示于Label3中。
Private Sub Command1_Click()
M = Val(Text1.Text)
N = Val(Text2.Text)
A = M:
B = N
R = M Mod N
Do While
M = N:N = R
R =
Loop
Label3.Caption = End Sub
《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控制结构综合练习