Vb程序结构控制
Vb程序结构控制(一)
Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = Val(Text1.Text)
For i = 2 To n - 1
If n Mod i = 0 Then
Exit For
End If
Next i
If i = n Then
Label2.Caption = Str(n) + " 是一个素数"
Else
Label2.Caption = Str(n) + " 不是一个素数"
End If
End Sub
Vb程序结构控制(二)
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim i As Integer, a() As Integer, flag As Boolean, n As Integer
Dim j As Integer, str As String
For i = 100 To 999
flag = False
Call ast(i, flag, a, n)
str = ""
If flag Then
str = str & i & Chr(10) & Chr(13)
List1.AddItem str
End If
Next i
End Sub
Private Sub ast(ByVal k As Integer, flag As Boolean, b() As Integer, n As Integer) Dim i As Integer, s As Integer, m As Integer
n = Len(CStr(k))
m = k
ReDim b(n)
For i = n To 1 Step -1
b(i) = k Mod 10
k = k \ 10
Next i
For i = 1 To n
s = s + b(i) ^ n
Next i
If s = m Then flag = True
End Sub
Vb程序结构控制(三)
Dim a(5, 5) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, s As String
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 90 + 10)
s = s & a(i, j) & " "
Next j
s = s & vbCrLf
Next i
Picture1.Print s
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, sum As Integer For i = 1 To 5
sum = 0
For j = 1 To 5
sum = sum + a(i, j)
Next j
Text1.Text = Text1.Text & sum & vbCrLf Next i
End Sub
Private Sub Command3_Click()
Picture1.Cls
Text1.Text = ""
End Sub
Private Sub Command4_Click()
End
End Sub
Vb程序结构控制(四)
Dim a(5, 5) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, s As String
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 90 + 10)
s = s & a(i, j) & " "
Next j
s = s & vbCrLf
Next i
Picture1.Print s
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, max As Integer, t As String
max = a(1, 1)
For i = 1 To 5
For j = 1 To 5
If max < a(i, j) Then
max = a(i, j)
Text1.Text = "最大数为：" & max & ", 它的位置是(" & i & "," & j & ")"
End If
Next j
Next i
End Sub
Private Sub Command3_Click()
Picture1.Cls
Text1.Text = ""
End Sub
Private Sub Command4_Click()
End
End Sub
过程（一）
Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer, i As Long
a = Text1.Text
b = Text2.Text
For i = a To b
If pd(i) Then
List1.AddItem i & "^2=" & i ^ 2
End If
Next i
End Sub
Private Function pd(x As Long) As Boolean
Dim s As String
s = CStr(x)
If Right(x ^ 2, Len(s)) = x Then pd = True
End Function
Private Sub Command2_Click()
List1.Clear
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
过程（二）
Option Explicit
Dim A(4, 5) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 4
For j = 1 To 5
A(i, j) = Int (Rnd * 90 + 10)
Picture1.Print A(i, j);
Next j
Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Dim sign(4, 5) As String * 1, i As Integer, j As Integer Dim av As Single
av = AVR(A)
For i = 1 To 4
For j = 1 To 5
If A(i, j) > av Then
sign(i, j) = "G"
ElseIf A(i, j) < av Then
sign(i, j) = "L"
Else
sign(i, j) = "E"
End If
Picture2.Print sign(i, j); "";
Picture2.Print
Next i
End Sub
Private Function AVR(A() As Integer) As Single
Dim sum As Integer, i As Integer, j As Integer
For i = 1 To 4
For j = 1 To 5
sum = sum + A(i, j)
Next j
Next i
AVR = sum / (4 * 5)
End Function
文件
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) End Sub
综合练习（一）
Private Sub Command1_Click()
Dim s As String
s = Text1.Text
Text2.Text = ch(s)
End Sub
Private Function ch(m As String) As String
Dim k As Integer, i As Integer, r As String, sum As String
Dim p As Integer
k = Len(m)
sum = "a"
For i = 1 To k
r = Mid(m, i, 1)
If Asc(r) > Asc(sum) Then
sum = r: p = i
Next i
ch = Left(m, p - 1) & Right(m, k - p) & sum End Function
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
综合练习（二）
Private Function prime(n As Integer) As Boolean Dim i As Integer
For i = 2 To n
If n Mod i = 0 Then Exit For
Next i
If i = n Then
prime = True
Else
prime = False
End If
End Function
Private Function dx(i As Integer) As Integer Dim s As String, m As Integer
For m = 1 To Len(CStr(i))
s = Mid(i, m, 1) & s
Next m
dx = Val(s)
End Function
Private Sub Command1_Click()
Dim a As String, b As String, i As Integer Dim t As Integer
a = Text1.Text:
b = Text2.Text
For i = a To b
If prime(i) = True Then
List1.AddItem i & "与" & dx(i)
Else
t = t + 1
End If
Next i
If t = b - a + 1 Then
List1.AddItem "本区间无幻影数"
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
List1.Clear
Text1.SetFocus
End Sub
《VB选择结构程序设计》教学设计
《VB选择结构程序设计》教学设计 山东省临清市第二中学吴焕英 【案例背景】 高中信息技术新课程的实施，其课程目标定位于全面提升学生的信息素养，其课程的设置从知识与技能、过程与方法、情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何更有效地开展新课程教学，成为老师们迫切需要解决的问题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 算法与程序设计是普通高中信息技术课程中选修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是教育科学出版社出版的高级中学课程标准实验教科书、算法与程序设计第二章第三节的内容，共分三课时，本课为第二课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法，这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项：
VB解析算法及程序实现
3.1解析算法及程序实现 1.计算长方体体积的算法描述如下：(h) (z)、宽(w)、高①输入长方体的长 v = z * w * h ②计算长方形体积③输出结果④结束（）上述算法属于 A. 枚举算法 B. 排序算法 C. 解析算法 D. 递归算法 2.下列问题适合用解析算法求解的是（） A.将十三张纸牌按从小到大进行排列 B.统计100内偶数的各位数字之和恰好为10的个数 C.计算一辆车行驶100公里的油耗 D.寻找本年级身高最高的同学 3.有如下问题： 12求出此圆锥体的体积。 V=πr ①已知圆锥的半径和高度h，使用公式hr3②已知班级每位同学的其中成绩总分s，按照s的值从大到小进行成绩排名。 ③已知圆的周长s，利用公式r=s/(2*3.14)求出圆的半径。 ④已知“水仙花数”的定义，找出1～10000范围内所有的水仙花数。 用计算机解决上述问题时，适合用解析算法的是（） A.①② B.①③ C.③④ D.②④ 4.出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。假定公里数为x,金额为y.解决此问题的公式和流程图如下图所示： 流程图加框处部分的算法属于：（） A.解析算法 B.排序算法 C.枚举算法 D.递归算法
程序实现如下功能：分别现要求编写VB5.中输入Text3、和Text1、Text2在文本框Command1单击三条线段的长度，“判断”按钮中显示判断结果。程序后，在标签Label1 运行界面如图：按此要求编写的程序如下：Private Sub Command1_Click() Dim a As Single ,b As Single Dim c As Single ,st As String a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If Not (a + b > c And b + c > a And c + a > b) Then st = “这三条线不能构成一个三角形” ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then “可以构成一个直角三角形” st = Then ① ElseIf “可以构成一个等边三角形” st = Else st = “可以构成一个不等边的斜三角形” End If Label1.Caption = ② End Sub 划线处应填写正确的语句是： （1）划线处① （2）划线处② 6.下列VB程序段实现计算s=1+1/2+2/3+3/4+…+99/100的值。请将下面划线处代码补充完整。 Private Sub Command1_Click() Dim i As Integer Dim s As Double s=1 For i=2 To 100 s= Next i
vb三种基本结构练习题
vb三种基本结构练习题 1、计算圆的面积（顺序结构） dim r,s,c as single r=inputbox("输入r的值") s=3.14*r*r c=2*3.14*r print s print c 2、小明去买电池，2.5元一节，买电池超过10节，超出的部分按八折出售。输入小明买电池的数量，输出小明应付的钱数。（选择语句） dim a as integer dim q as single a=inputbox("输入小明买的电池数") if a>10 then b=25+(a-10)*2.5*0.8 else b=a*2.5 end if print b 3、求1+2+3+4+……+100的和。（循环语句） dim i,sum as integer for i=1 to 100 sum=sum+i next i print sum 4、输入数字n，求n！（n!=1*2*3*……*n）（循环语句） dim i,sum,n as long n=inputbox("输入n的值") sum=1 for i=1 to n sum=sum*i next i print sum
1、在窗体上任意位置画一个文本框和一个命令按钮，编写程序，当用户单击命令按钮时，文本框移动到窗体的左上角，并且文本框的大小是原来的2倍。 2、在窗体上任意位置画一个文本框和一个命令按钮，设置窗体的标题属性为“信息窗口”；命令按钮的标题属性为“确定”。编写程序，当用户单击命令按钮时，在文本框中显示“包头师范学院”，要求字体为隶书、加粗、加下划线、字号为20、颜色为红色。 3、在窗体上任意位置画两个命令按钮，分别设置它们的标题属性为：加载图片、显示信息。编写程序，当用户单击第一个命令按钮时，在窗体上加载一幅图片（图片自定）。当用户单击第二个命令按钮时，在窗体上打印信息“包头师范学院“。 4、例1: 在窗体上部设置一个文本框，文本框的下面设置 3 个命令按钮，其中左边按钮中标有“单击此按钮”，中间按钮中标有“清除”，右边按钮中标有“程序结束”。当程序运行时，用鼠标单击左边按钮时，屏幕上部的文本框中显示“欢迎使用vb 6.0”;如果单击中间按钮，则清除文本框中显示的内容；而如果单击右边的按钮，则结束程序。 5、例2 请根据题目要求，设计VB应用程序： 1、在窗体的上方并排分别创建一个标签控件label1和一个文本框控件 text1； 要求：①窗体的标题命名为“个人简介”、窗体背景颜色为黄色。 ②标签和文本框中显示的字体为隶书、样式为斜体、字体大小为三号的红色字。 2、在两个控件的下方并排创建两个命令按钮控件command1、command2，分别命名为：“姓名”、“单位”。 3、请编写事件过程代码，使得程序运行时，当鼠标按下“姓名”按钮时，将在标签中显示你的名字；当鼠标按下“单位”按钮时，将在文本框中显示你现在所在的系、级、班。 4、完成以上操作后以V1为窗体名保存在D盘自己的文件夹下 上机练习三 1、在窗体上画一个文本框控件，要求运行时在文本框中显示信息“包头师范学院”（form-load事件）。当用户在文本框中选中任意数量的字符时，在窗体上显示所选中的字符数、选中字符数的首字符数及选中的字符内容。 2、在窗体上画两个文本框控件，先在属性窗口中删除两个文本框中的初始text 属性值。要求当程序运行时，当在文本框1中输入任意一个字符时，同时在文本框2中显示出来，同时也在窗体中显示出来。 3、实现“减法器”功能。
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程序设计试题及答案一
V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给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 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是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循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……
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解析算法及程序实现
3.1解析算法及程序实现 1. 计算长方体体积的算法描述如下： ①输入长方体的长⑵、宽(w)、高(h) ②计算长方形体积v = z * w *h ③输出结果 ④结束 上述算法届丁 () A. 枚举算法 B. 排序算法 C. 解析算法 D. 递归算法 2. 下列问题适合用解析算法求解的是( ) A. 将十三张纸牌按从小到大进行排列 B. 统计100内偶数的各位数字之和恰好为10的个数 C. 计算一辆车行驶100公里的油耗 D. 寻找本年级身高最高的同学 3. 有如下问题： ①已知圆锥的半径r和高度h,使用公式V=1兀r2h求出此圆锥体的体积。 3 ②已知班级每位同学的其中成绩总分s,按照s的值从大到小进行成绩排名。 ③已知圆的周长s,利用公式r=s/(2*3.14)求出圆的半径。 ④已知“水仙花数”的定义，找出1?10000范围内所有的水仙花数。 用计算机解决上述问题时，适合用解析算法的是( ) A.①② B. ①③ C. ③④ D. ②④ 4. 出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。假定公 里数为x,金额为y.解决此问题的公式和流程图如下图所示： J［10+2*(x-3X(x>3) _________ I -- --- --- 1 ---- --- --- 之/ 输曲 I ~『了、 ［结虽］ 流程图加框处部分的算法届丁：( ) A.解析算法 B. 排序算法 C. 枚举算法 D. 递归算法
5. 现要求编写VB 程序实现如下功能：分别 在文本框 Textl 、Text2、和Text3中输入 三条线段的长度，单击“判断”按钮Comman 后，在标签Labell 中显示判断结果。程序 运行界面如图： 按此要求编写的程序如下： Private Sub Command1_Click() Dim a As Single ,b As Single Dim c As Single ,st As String a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If Not (a + b > c And b + c > a And c + a > b) Then st ="这三条线不能构成一个三角形" ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then st = ElseIf st = Else st = End If Label1.Caption = End Sub 划线处应填写正确的语句是： (1) 划线处① __________ (2) 划线 处② 6. 下列VB 程序段实 现计算s=1+1/2+2/3+3/4+…+99/100的值。请将下面划线处 代码补充完整。 Private Sub Command1_Click() Dim i As Integer Dim s As Double s=1 For i=2 To 100 s= ________________________ Next i Text1.Text=Str(s) End Sub 程序划线处应填入的内容是 ______________________________ “可以构成一个直角三角形” ① Then “可以构成一个等边三角形” “可以构成一个不等边的斜三角形”
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 第二章 一、问答题 1.叙述建立一个完整的应用程序的过程。 答：界面设计编写事件过程代码运行、调试保存文件 2.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到几个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？ 答：涉及到两个文件要保存。先保存窗体文件（.frm），再保存工程文件（.vbp）。若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求把窗体文件先保存。 3.假定在W indows环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？ 答：VB98 4．当标签框的大小由Caption属性的值进行扩展和缩小，应对该控件的什么属性进行何种设置？ 答：将标签的Autosize设置为True. 5．VB6.0提供的大量图形文件在哪个目录下？若你的计算机上没有安装，则怎样安装这些图形文件？ 答：VB6.0提供的图形文件在Graphics目录。 6．在VB6.0中，命令按钮的显示形式可以有标准和图形两种选择，这通过什么属性来设置？若选择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，怎样改正？答：按钮Style的属性设置为Graphical（或1）。通过Picture属性来装入图形。不能显示图形是因为Style的属性设置为Standard（或0），只要改为Graphical（或1），一般还将Caption 属性的值设置为空。 7．标签和文本框的区别是什么？ 答：文本是否可编辑。 8．当窗体上有三个文本框和一个命令按钮，若程序运行时，需把焦点定位在第三个文本框处，应对何控件的什么属性进行何种设置？ 答：应对Text3控件进行Text3.TabIndex=0的设置。 9．简述文本框的change与keypress事件的区别。 答：文本框内容变化，change与keypress事件都会发生，所不同的是Keyprees还将返回一个Keyasii参数 10.当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到该文本框重新输入？ 答：假定文本框的名称为Text1，则事件过程如下： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If 出错条件判断成立Then Text1＝””…先删除原来数据 Text1.SetFocus …焦点回到Text1 End If …… End If End Sub 课题：程序的基本结构——循环结构之For-Next语句第课时课型：新授备课教师授课时间 教学目标 知识与技能 1、了解循环的概念，理解循环结构的基本思想 2、掌握For-Next语句的基本结构的写法循环变量，初值，终值和步长。 3、理解For-Next语句的执行过程 过程与方法 1.通过分析问题，能准确找出循环变量、确定循环结束条件。 2.能利用For-Next语句解决简单的问题。 情感态度与价值观 1.通过编写循环结构的程序，体会循环结构的执行过程。 2.通过利用循环思想解决问题，体会循环思想的重要性。 教学重点1、理解循环结构的基本思想 2、理解For-Next语句的执行过程 教学难点根据需要采用循环结构解决实际问题，并提炼出for语句的基本结构学生理解For-Next语句的执行过程 教学 准备 几个以For-Next语句组成的不同功能的程序 教学过程设计教学 内容师生教学活动设计 备注栏 （学生笔记栏） 一、设疑导入 同学们，请先看这个图形(在窗体左边输出显示 竖行排列的1，2，3，4，5)，如果用以前学过的程 序设计语言怎样来编写它的程序呢？ 生（稍做思考，然后回答)：使用Print语句 P rint“1” Print“2” Print“3” Print“4” Print“5” 师：同学们做得很好，，如果想要显示1-10，或是1-100的数字呢？怎么做，难道就这样顺序写下去吗？这样编写是不是太繁琐了。如果能让计算机去完成这部分重复的内容，而我们只要告诉计算机重复操作的次数就可以了，这个愿望能否实现呢？ 通过我们今天学习的FOR—NEXT循环语句，就可以很容易的实现这个想法。 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）来代替。《VB程序设计》课后题答案
VB程序的基本结构——循环结构之For-Next语句
VB控制结构——goto型控制语句