VB顺序结构与选择结构练习题
vb的三种基本结构
③. j = 0 If J＞0 Then J＝J＋1 Endif
2．以下程序，运行后 x的值为 （ ） x =2 y= 3 y=y+1 x=x+y-1 A. l B. 3 C. 5 D. 7 3、以下程序，运行后变量value的值为 ( ) X = 20 If x >= 10 then value = 5 * x else value = 4 * x end if msgbox(value) 最后，变量value的值是（ ） A、50 B、40 C、100 D、80
vb程序的三种基本结构一顺序结构二选择结构三循环结构程序是由若干个基本结构组成的一个基本结构可以包含一条或若干条语句
VB程序的三种基本结构
程序是由若干个基本结构组成的，一个基本结构可以包 含一条或若干条语句。
通常程序有三种最基本的结构：
一、顺序结构 二、选择结构 三、循环结构
1、 顺序结构： 将命令和语句逐条顺序排列。 程序执行时按语句的先后顺序逐条执行。 S1
4、以下程序，运行后 X的值为 （ ） X =2 For i＝1 To 5 If X＜i Then X= X＋i End If Next i A. l B. 3 C. 5 D. 7
例1、 ห้องสมุดไป่ตู้=1 b=2 c=a+b a=c-a b=c-a
最后，变量b的值是（ ）
S2 S3
2、分支结构：（选择结构） 根据条件判断其是否成立，如果成立执行成立的分支；否则 执行另一分支。 其一般形式为： If 条件 Then 语句序列1 C Else 语句序列2 End If 分支结构的简单形式为： If 条件 Then 语句序列 End If S1 S2
C
例4、s=0 for I=1 to 100 s=s+I next 最后，变量s的值是（ ）
VB第9课时：选择(分支)程序设计(附随堂练习)
’最后一种情况时
y=“不及格”
二、如要在多个条件中做出选择时，可以用块If语句中其它形式： 1、块If语句嵌套格式： 一个块If语句中可以完整包含另一个（或多个）块If。
块If 语句嵌套格式：
If 条件表达式 1 Then 语句组1 If 条件表达式 2 Then 语句组2 Else 语句组3 End If Else 语句组n End If
Dim a,sum As Integer If a>0 Then sum= sum+a
例2：设a, b是两条线段的长度，若线段a的长度大于等于线段b的话， 则把1存储到变量S中，否则反-1存储到变量S中。
Dim a,b As Double If a>=b Then s= 1 Else s= -1
块If语句格式 题纲： 例1：（2） Dim a,sum As Integer If a>0 Then Sum= sum+a End IF
2、块If 语句格式语句特点：
① 由若干行组成 ② Then 关键字后不能有任何语句 ③ 最后以End If 结束
If 条件表达式 Then 语句组1 Else 语句组2 End If
Private Sub Command1_Click() 例3.将下列If块语句改写成行If语句 Dim a, b, c As Integer (做题纲题目) a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b > c And b + c > a And a + c > b Then Text4.Text = "能" Else Text4.Text = "不能" End If End Sub Private Sub Command1_Click() Dim a, b, c As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b > c And b + c > a And a + c > b Then Text4.Text = "能“ Else Text4.Text = "不能" End Sub
VB测试题(必做部分)
V B必做测验及答案目录实验4选择结构程序设计 (2)实验6循环结构程序设计 (6)实验7数组 (8)实验9常用控件 (10)实验4选择结构程序设计1.若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。
If a>5 thenIf b<4 thenc=a-bElsec=b-aEnd ifElseIf b>3 then c=a*bElsec=a mod bEnd ifa) 2b) -1c) 1d) 6 答案：A2.下列程序的执行结果为_____。
A=100:b=50If a>b Thena=a-bElseb=b+aEnd ifPrint aa) 50b) 100c) 200d) 10 答案：A3.以下程序输出1到1000之间所有的偶数之和，请补充完该程序。
Private Sub Command_Click()Dim x As DoubleFor I=0 To 1000If ____ Thenx=x+IEnd IfNext IPrint xEnd Suba) i Mod 2 = 0b) x Mod 2 = 0c) I Mod 2 <> 0d) x Mod 2 <> 0 答案：A4.下列程序段的执行结果为。
x=Int(Rnd+4)Select Case xCase 3Print "优秀"Case 4Print "良好"Case 5Print "合格"Case ElsePrint "不合格"End SelectA）优秀B）良好C）合格D）不合格答案：B5.以下程序段的执行结果是_____。
X=2:y=1If x*y<1 Theny=y-1Elsey=-1Print y-x>0End Ifa) Tureb) Falsec) -1d) 1 答案：B6.设计两个CheckBox，一个显示粗体，一个显示斜体，通过对CheckBox的选择，在一个文本框中显示相应效果的文本，完成下列程序。
vb三种基本结构练习题
vb三种基本结构练习题1、计算圆的面积（顺序结构）dim r,s,c as singler=inputbox("输入r的值")s=3.14*r*rc=2*3.14*rprint sprint c2、小明去买电池，2.5元一节，买电池超过10节，超出的部分按八折出售。
输入小明买电池的数量，输出小明应付的钱数。
（选择语句）dim a as integerdim q as singlea=inputbox("输入小明买的电池数")if a>10 thenb=25+(a-10)*2.5*0.8elseb=a*2.5end ifprint b3、求1+2+3+4+……+100的和。
（循环语句）dim i,sum as integerfor i=1 to 100sum=sum+inext iprint sum4、输入数字n，求n！（n!=1*2*3*……*n）（循环语句）dim i,sum,n as longn=inputbox("输入n的值")sum=1for i=1 to nsum=sum*inext iprint sumVB上机练习汇总1、在窗体上任意位置画一个文本框和一个命令按钮，编写程序，当用户单击命令按钮时，文本框移动到窗体的左上角，并且文本框的大小是原来的2倍。
2、在窗体上任意位置画一个文本框和一个命令按钮，设置窗体的标题属性为“信息窗口”；命令按钮的标题属性为“确定”。
编写程序，当用户单击命令按钮时，在文本框中显示“包头师范学院”，要求字体为隶书、加粗、加下划线、字号为20、颜色为红色。
3、在窗体上任意位置画两个命令按钮，分别设置它们的标题属性为：加载图片、显示信息。
编写程序，当用户单击第一个命令按钮时，在窗体上加载一幅图片（图片自定）。
当用户单击第二个命令按钮时，在窗体上打印信息“包头师范学院“。
4、例1:在窗体上部设置一个文本框，文本框的下面设置3 个命令按钮，其中左边按钮中标有“单击此按钮”，中间按钮中标有“清除”，右边按钮中标有“程序结束”。
VB第四章选择结构测试题
高一第二学期VB测试题一、选择题(每题2分，共20分)1 •在条件语句If x=1 Then y=2中，下列说法正确是 _________A. x=1和y=2均为赋值语句B. x=1和y=2均为关系表达式C. x=1为关系表达式，y=2为赋值语句D. x=1为赋值语句，y=2为关系表达式2•下面程序段运行后，显示的结果是___________ oDim xIf x Then Print x Else Print x+1A. 1B. 0C.-1D.显示出错信息3•运行下列程序段，显示的结果是_______ ox=lnt(Rnd)+5Select Case xCase 5Print"优秀”Case 4Print"良好”Case 3Print"通过”Case ElsePrint"不通过"End SelectA. 优秀B.良好C.通过D.不通过4•执行如下程序段时，从键盘输入-5,输出的结果是 __ x=-5s=Val(lnputBox("请输入s 的值:"))Select Case sCase ls>0y=x+1Case ls=Oy=x+2Case Elsey=x+3End SelectPrint x;yA. -5 -2B. -5 -4C. -5 -3D. -5 -5Case5、用Select Case语句选择|x|<=10情况的语句为:____________ A. Not (-10 To 10) B. -10To 10C. Is Abs(x)>10D. Is<100r>106、有如下程序：a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a<>3 Or b<>3 Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+c运行后，输出的结果是( )A) 16 B) 3 C) 6 D) 87、有如下程序：a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a<>3 Or b<>3 Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+cA) 16 B) 3 C) 6 D) 810,运行结果:8、执行下列程序，从键盘输入Private Sub Command 1_Click()S=lnputBox("请输入一个数字：")Select Case SCase ls>0Print">0"Case ls>3Print">3"Case ls>5Print">5"End SelectEnd Sub(A)>0 (B)>3 (C)>5 (D)>09、在窗体上画一个命令按钮和一个文本框，名称分别为Commandl和Textl,然后编写如下程序：Private Sub Command 1_Click()t='假期的旅游路线：”a=lnputBox("请输入日期(1~31)") Select Case aCase ls<=0,ls>=31t=t+"有误”case ls<=10,20t=t+"北京”case ls<=20t=t+"大连”case ls<=31t=t+定州”End SelectPrint tEnd Sub程序运行，输入的20,这结果为(A) 假期的旅游路线：北京大连(B) 假期的旅游路线：大连北京(C) 假期的旅游路线：北京(D) 假期的旅游路线：大连10•要使变量x赋值为1-100间(含1,不含100)的一个随机整数，正确的语句是A. x=lnt(100*Rnd)B. x=lnt(101*Rnd)C. x=1+lnt(1 OO*Rnd)D. x=1+lnt(99*Rnd)二、填空题(每空5分，共80分)1. 若x=1,执行语句IfxThenx = 0Elsex=1,贝U x的值为 ________________2. VB程序的三种基本结构是：顺序、选择和__________ o3. 设a=6,则执行x=llf(a>5,-1,0)后，x 的值为 ___________ 。
VB程序设计 习题及答案第4章 选择结构程序设计
第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。
【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。
【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。
(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。
【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。
【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。
VB顺序结构编程练习题(2)解答a
VB顺序结构编程练习题(2)参考解答1、有一个“就是它”的猜数游戏，步骤如下：请你任意输入一个三位数，在这三位数后重复一遍，得到一个六位数，467→467467。
把这个数连续除以7，11，13，最后的商就是你输入的三位数。
请编程加以验证。
x=val(inputbox(“请输入一个三位数：x”))y=x*1000+xy=y/7y=y/11y=y/13print ”x=”;x,”y=”;y2、某学校开运动会，要在正六边形的操场的周围插上彩旗。
如果每边插a面彩旗(包括每个角上的彩旗)，a变量数可由键盘输入，问总共需要多少面彩旗?a=val(inputbox(“每边插旗数：”))s=6*a-6print ”正六边形的操场每边插彩旗面数为：”;aprint ”总共需要彩旗面数为：”;s3、计算图形的周长和面积．c=(48+36)*2s=48*12+24*24print ”图形的周长为：”;cprint ”图形的面积为：”;s4、编写求下列自然数等差数列之和的程序，数列的首项和末项由键盘输入。
4+5+6+7+8+9+10+11+12+13+14+15等差数列的求和公式自己从网上或从数学手册查找，当然也可自己推导。
sx = Val(InputBox("输入等差数列的首项："))mx = Val(InputBox("输入等差数列的末项："))n = mx - sx + 1s = (sx + mx) * n / 2print "自然数等差数列："print "首项="; sx, "末项="; mxprint "该自然数等差数列的和为："; s{等差数列的和=(首项+末项)×项数／2)} number=last-first+1;5、输入一个学生的情况，包括学号(用整数表示)、姓名(用第一个字母表示)、语文成绩和数学成绩，然后输出学号、姓名、总分和语数外三门课的平均成绩（保留两位小数）。
选择结构练习题
选择结构练习题选择结构练习题（导练）一、基础训练题：1.当VB执行下面语句后，A的值为（）A=1IF A>0 THEN A=A+1IF A>1 THEN A=0A 、2B 、1C 、0D 、32.下列语句中，用于选择结构的是（）A、While…Wend语句B、If语句C、For…Next语句D、Select Case语句3. 在如下VB的If语句中，假设a=15:b=23: If a>b Then max=a Else max=b那么执行该程序段后max值为（）A、15B、23C、0D、-14.以下是一段VisualBasic程序，它的基本结构属于…IF x>0 Then X=x+1 Else X=x-1 EndIf…（）A、顺序结构B、选择结构C、循环结构D、树型结构5.当程序出现多分支选择时，用If语句比较繁琐，用Select Case 语句就方便多了。
（）6.在VB中进行程序设计时，IF语句用于处理单分支及双分支型的选择结构，SelectCase 语句用于处理多分支选择结构。
（）7.补充完善下列程序段计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。
X表示行李重量，Y表示行李费。
Dim X, YAs SingleX=InputBox("输入行李重量")If ________ ThenY=0ElseY=20*(X-20)End IfPrint "行李费= ";Y二、考题训练（能力提升训练）1、[ 单选题1 分]在VisualBasic中，将多个语句合并在一行上的并行符是（）A、撇号（’）B、冒号（：）C、大于号（>）D、感叹号（！）2、[ 多选题2 分]程序的三种基本结构是( )A、顺序结构B、循环结构C、选择结构D、树型结构3、[ 单选题1 分]税务部门征收个人所以税，以2000元为起征点，规定如下：①不超过500元的，税率为5%；②超过500至2000，税率为10﹪；③超过2000至5000，税率为15﹪；……该题设计程序结构时最适合使用的控制结构是（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB顺序结构及选择结构练习一、单选题1.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click()b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（D）A）a=11 B）a=b + c C）a= D）False2. 在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click(D)a=11b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（）A）a=11 B）a=b + c C）a= D）True3.以下语句的输出结果是（B）a = Sqr(3)Print Format(a,”$$#### : ###”)A）$1.732 B）$$1.732 C）$1732 D）$$00001.7324.以下程序段的输出结果是（D）a = Sqr(3)b = Sqr(2)c =a>bPrint cA）-1 B）0 C）False D）True5.以下语句的输出结果是（C）Print Format$ (32548.5,”000,000.00”)A）32548.5 B）32,548.5 C）032,548.50 D）32,548.501.假定有如下语句：answer$=MsgBox(“String1”,, “String2”, “String3”,2)执行该语句后，将显示1个信息框，此时如果单击“确定”按扭，则answer$的值为（D）A）String1 B）String2 C）String3 D）12.InputBox函数返回值的类型为（B）A）数值 B）字符串 C）变体 D）数值或字符串（视输入的数据而定）3.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程。
Private Sub Command1_Click()a = InputBox(“Enter the First integer”)b = InputBox(“Enter the Second integer”)Print b + aEnd Sub程序运行后，单击命令按扭，先后在2个输入对话框中输入456和123，则输出结果是（D）A）579 B）123 C）456123 D）1234564.执行下面的语句后，所产生的信息框的标题是（A）a = MsgBox(“AAAA”，，”BBBB”,””,5)A）BBBB B）空C）AAAA D）出错，不能产生信息框5.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程Privete Sub Command1_Click()MsgBox Str(123 + 321)End Sub程序运行后，单击命令按扭，则在信息框中显示的提示信息为（B）A）123 + 321 B）字符串”444”C）数值444 D）空白6.MsgBox函数的反回值的类型为（A）A）整型(Integer) B）字符串C）变体D）整数或字符串（视选择的按扭而定）1.假定有如下语句：st$=InputBox(“请输入一串字符”, “输入对话框”, “请输入字符串”)当用户输入完毕，按“确定”按扭后，st$变量的容是（）A）请输入一串字符B）字符串对话框C）请输入字符串D）用户输入容1. 假定有如下语句：Private Sub Form_Click()Dim a,b,x As Integera = InputBox (“a=?”)b = InputBox (“b=?”)x = a + bIf a > b Then x = a - bPrint xEnd Sub运行时从键盘输入3和4，输入x的值是（C）A）3 B）5 C）7 D）92. 假定有如下语句：Private Sub Form_Click()b = 1 : a = 2Print IIf (a >= b,a,b)End Sub运行后输出的结果是（C）A）0 B）1 C）2 D）33.假定有如下语句：Private Sub Form_Click()s = Val (InputBox ( “Input Value of s:”)) Select Case sCase Is < 6f = s + 1Case Is < 5f = s + 2Case Is < 4f = s + 3Case Elsef = s + 4End SelectPrint s;fEnd Sub运行时从键盘输入6，输出结果是（D）A）6 7 B）6 8 C）6 9 D）6 104. 假定有如下语句：Private Sub Form_Click()score = Int (Rnd * 10) + 80Select Case scoreCase Is < 60a$ = “F”Case 60 To 69a$ = “D”Case 70 To 79a$ = “C”Case 80 To 89a$ = “B”Case Elsea$ = “A”End SelectPrint a$End Sub运行时输出的结果是（B）A）A B）B C）C D）D5. 假定有如下语句Private Sub Form_Click()a = Val (InputBox (“请输入a”))b = Val (InputBox (“请输入b”))x = a*a + bIf b > a Then x = b*b + aPrint xEnd Sub运行时从键盘输入3和4，输出X的值是（C）A）12 B）13 C）19 D）206. 假定有如下语句Private Sub Form_Click()K = 2If K >= 1 Then A = 3If K >= 2 Then A = 2If K >= 3 Then A = 1Print AEnd Sub运行时，输出的结果是（B）A）1 B）2 C）3 D）出错7. 假定有如下语句Private Sub Form_Click()k = Val ( InputBox (“请输入一个数”)) If k <= 0 Then Abc = 4 : GoTo aIf k <= 1 Then Abc = 3 : GoTo aIf k <= 2 Then Abc = 2 : GoTo aIf k <= 3 Then Abc = 1a:Print k ; AbcEnd Sub运行时输入3，输出的结果是（A）A）3 1B）3 4 3C）3 4 3 2D）3 4 3 2 18.设有函数r =1 x < 02 x >=0则下列能正确计算该函数值的语句是（D）A）If x < 0 Then r = 1ElseIf x >= 0 Thenr = 2End IfB）If x < 0 Then r = 1ElseIf x >= 0 Then r = 2 Else r = 1End IfC）Print ( IIf (x >0,1,2))D）r = IIf (x < 0,1,2)二、简答(填空)题1.假设有如下程序，程序运行后，单击窗体输出结果是（032，548.60）Private Sub Form_Click ()a = 32548.56Print Format (Int((a*10+0.5)) / 10,”000,000.00”)End Sub2.以下程序段的功能是（对变量X四舍五入后取整）x = 8.6y=Int(x+0.5)Print y3.假设有如下程序，程序运行后，单击窗体输出结果是（4）Private Sub Form_Click ()a = 25 Mod (1-2^3)Print aEnd Sub4.以下语句的输出结果是（Beijing）s$=”China”s$=”Beijing”Print s$5.以下语句的输出结果是(3)a%=3.14156Print a%6.设 a=Sqr(2)*Sqr(3)，下列语句的输出结果分别是Print Format $ (a,”000.00”) 输出结果：002.45Print Format $ (a,”###.#00”) 输出结果：2.449Print Format $ (a,”00.00E+00”) 输出结果：24.49E-01 Print Format $ (a,”-#.####”) 输出结果：-2.4495三、编程题1.编写打印下面三角形图案的源程序（书上55页4题）*************************程序代码：Private Sub Form_Click()Form1.Print Tab(15); "*"Form1.Print Tab(14); "***"Form1.Print Tab(13); "*****"Form1.Print Tab(12); "*******"Form1.Print Tab(11); "*********"End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "显示星号三角形,单击窗体开始"End Sub2.设a=5,b=2.5,c=7.8，编程序计算y=πab/a+b*c程序代码：Private Sub Form_Click()a =5 :b = 2.5 :c = 7.8y = (3.1416*a*b)/(a+b*c)Print “y=”;yEnd Sub1.编写求以10为底，求10000的对数值的源程序。
Private Sub Form_Click()Form1.Print Log(10000) / Log(10)End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "计算以10为底，10000的对数"Form1.Print "单击窗体开始"End Sub2.编写求任意数的平方根的源程序，数由键盘输入。
Private Sub Form_Click()x = Val(InputBox$("输入数据"))Form1.Print "输入数据为"; xForm1.Print "平方根为"; Sqr(x)End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "求任意数的平方根"Form1.Print "单击窗体开始"End Sub3. 求任意半径和高的圆柱的表面积。