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﹪；……该题设计程序结构时最适合使用的控制结构是（）。
一、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#答：在VB 中，直接常量是以直接明显的形式给出的数据。
根据数据类型的不同，直接常量分为：字符串常量、数值常量、日期常量和布尔常量。
字符串常量是由一对半角双引号“””加以界定的字符序列，该字符序列可以是任何能被计算机处理的字符。
本题中，“ASDF ” 、 “1234.5”是字符串常量；数值常量是由数值、小数点和正负号所构成的数值。
在Visual Basic 中除十进制数值常量外，还有八进制、十六进制数值常量。
八进制常量前加&O ；十六进制常量前加&H 。
本题中，100.0、1E1、123D3、0100、100#、&O78 、&H123、-1123!和345.54#均为数值常量。
日期常量用来表示某一天或某一天的具体时间。
在Visual Basic 中，日期常量用两个“#”号加以界定。
本题中，#2004/10/7#是日期常量。
逻辑型常量只有True 和False 两个值，表示“真”和“假”。
本题中，True 是逻辑常量。
本题中，％100、123,456、π、T 不是合法的常量。
（2）下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.345答：“name ”、 “11/16/99”、 “120”是字符串常量；12.345是数值常量；#11/12/2004#是日期常量；False 是逻辑常量。
Name 、ff 、cj 、n 是变量。
VB选择题题库(修改版)
6 7 8
Static a_q 123_a
9
若选拔优秀毕业生的条件是：年龄 age<19 and total>285 and age<19 and total>285 or （age）小于19岁，三门功课总分 mark1=100 or mark2=100 mark1=100 or mark2=100 (total)大于285分，其中有一门(mark)为 or mark3=100 or mark3=100 100分，表达式应写为 要产生30—50之间的随机整数，下列 表达式正确的是（） 函数asc("A")的值为（） 实现ASCII码转换成字符的函数是（） INT(-7.3)=( ) ROUND(-7.3)=( ) VAL("123A")=( ) LEFT$("ABCDEF",3)=( ) int(rnd*20+30) 97 STRING() 7 7 123A "DEF" int(rnd*21+30) 65 ASC() 8 8 12365 "CDE" 第 1 页
VB选择题
A X23 空值 空值 （0，10） 0.01*Int(X+0.005) 提供各种控件及其代码 TRUE Z>X Or Z>Y TRUE 1 3 p Mod q=0 负数 对象得到输入内容 冒号 冒号 p/q=p\q 小数 对象输出内容 逗号 逗号 第 5 页 对象得到焦点 分号 分号 B 8xy 空格 TRUE （1，100） 0.01*Int(100*(X+0.005)) 自动生成程序代码 FALSE Z>X And Z>Y FALSE TRUE TRUE FALSE FALSE Int(p/q)=p/q Z>X And Y C END 空字符串 FALSE （0，100） 0.01*Int(100*(X+0.05)) 提供程序示例代码、技 术文档等 Null （1，99） 0.01*Int(X+0.05) 包括上述各项功能 0 出错 Z>X>Y 0 出错 出错 出错 Int(p/q)=Mod(p/q) 0 变量 对象失去焦点 句号 空格+_ D X8[K] 答案 A 0D C C B C A B B C C D C C A D 选择题
VB选择结构 习题
• 一、选择题 • 1、VB提供了结构化程序设计的三种基本结构，三种基本结构是（） • A.递归结构、选择结构、循环结构 • B.过程结构、输入/输出结构、转向结构 • C.顺序结构、选择结构、循环结构 • D.选择结构、过程结构、顺序结构 • 2、数学表达式1<x<=2或10<=x<15，在VB中应写成条件表达式（） • A.X>1 AND X<=2 OR X>=10 AND X<15 • B.X>1 OR X<=2 OR X>=10 OR X<15 • C.X>1 OR X<=2 AND X>=10 OR X<15 • D.X>1 AND X<=2 AND X>=10 AND X<15 • 3、选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的
间隔，可通过（）属性来设置
• A. interval B.value
• C.enabled D.text
• 二、填空题 • 1、在条件语句中，条件表达式分为两类： ____
和_______。条件表达式的结果为布尔值:______ 或______ • 2、条件判断结构可以使用_____语句、______ 语句和_____语句 • 3、在select case 语句中，当不止一个case后面 的取值与表达式的值相匹配时，只执行第_____ 个与表达式匹配的case后面的语句序列 • 4、单选按钮的enabled属性为false 时，表示 _____复选框的value属性取值为0时，表达_____, 为1时表示______,为2时表示______ • 5、设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B>C OR C>D的值为__________
VB顺序结构与选择结构练习题
VB顺序结构与选择结构练习题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的命令按扭，然后编写如下事件过程。
vb复习题选择结构
'【程序填空】'-------------------------------------------------------'功能：输入任何一个英文字母x,' 若x的值为"a","c","d-f" ,则显示x的大写字母；' 若x的值为"m","o","p-z",则显示x的小写字母；' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。
'-------------------------------------------------------Private Sub Command1_Click()x = Text1.Text'**********SPACE**********【?】'**********SPACE**********Case 【?】Label1.Caption = UCase(x)Case "m", "o", "p" To "z"Label1.Caption = LCase(x)Case Else'**********SPACE**********【?】End SelectEnd Sub-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。
' 判断密码是否正确，并显示相应提示' 在加载窗体时设置密码框最大长度为8，密码显示字符为“*”'-------------------------------------------------------dim x as stringPrivate Sub Command1_Click()x = Text1.Text'**********SPACE**********If x 【?】 "12345678" ThenMsgBox ("欢迎你用机!")ElseMsgBox ("对不起，口令错")End IfText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()Text1.Text = ""'**********SPACE**********Text1.【?】 = 8'**********SPACE**********Text1.【?】 = "*"End Sub------------------------------------------------------- '【程序填空】'------------------------------------------------------- ' 功能：输入一个数,若大于0,则显示"+"；若小于0，' 则显示 "-"；若等于"0",则显示"零"。
vb选择结构练习
确定促发的事件
定义变量 输入数据
判断条件
If
x mod 4=0 and x mod 100<>0 and x mod 400=0 then print x & “是闰年” Else print x &”不是闰年” End if
End sub
输入学生成绩，显示相关等级。
Private Sub Command1_Click() Dim a as single a = Val(Text1.Text) Select Case a Case Is >= 90 Label1.Caption = "A" Case Is >= 80 Label1.Caption = "B" Case Is >= 70 Label1.Caption = "C" Case Is >= 60 Label1.Caption = "D" Case Else Label1.Caption = "E" End Select
输入一个四位数，分别输出它的个位数字、十位数字、 百位数字和千位数字。
Private Sub Command1_Click() a = Val(InputBox("", "")) If a >= 1000 And a < 10000 Then c = a \ 1000 d = (a - c * 1000) \ 100 e = (a - c * 1000 - d * 100) \ 10 f = a - c * 1000 - d * 100 - d * 10 End If Print a & "的千位数为：" & c Print a & "的百位数为：" & d Print a & "的十位数为：" & e Print a & "的个位数为：" & f End Sub
vb大一选择程序结构习题答案答案
4.2习题一、选择题1. 以下不正确的单行结构条件语句是（ D）。
（A）If x>y Then Print ＂x>y＂（B）If x Then t=t*x（C）If x Mod 3=2 Then Print x（D）If x<0 Then y=2*x-1: Print x End If2. 给定程序段Dim a As Integer, b As Integer, c As Integera=1：b=2：c=3If a=c-b Then Print ＂#####＂ Else Print ＂*****＂以上程序（ C ）。
（A）没有输出（B）有语法错（C）输出#####（D）输出***** 3. 运行下面程序后，在弹出的消息窗口中显示的是（ D）。
Private Sub Form_Click()score=Int(Rnd)+5Select Case scoreCase 5a$="Good"Case 4a$="Ok"Case 3a$="Pass"Case Elsea$="Bad"End SelectMsgBox a$End SubA、BadB、PassC、OkD、Good4. 下面语句书写正确的是（D）。
(A) If a>max Then max=a Else max=b End If(B) If a>max Then max=aElse max=bEnd If(C) If a>max Thenmax=aElsemax=6( D) If a>max Thenmax=aElsemax=6End If5. 执行下列程序段输出的结果为（ C ）。
a=3IF a>0 ThenPrint ＂###＂ElsePrint ＂$$$＂End IfA) ###$$$B) $$$###C) ###D) $$$6. 下面程序段运行后,显示的结果是( B )dim xif x then print x else print x+1(A) 1 (B) 0 (C) -1 (D) 显示出错信息7: 语句IF x=1 THEN y=1, 下列说法正确的是( C )(A) X=1和Y=1均为赋值语句 (B) X=1和Y=1均为关系表达式(C) X=1为关系表达式,Y=1为赋值语句 (D) X=1为赋值语句,Y=1为关系表达式8. 用IF 语句表示分段函数，⎩⎨⎧<+≥+=1311)(2x x x x x f 下列程序段不正确的是( A )(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) F=x*x+3 (D) f=sqr(x+1)If x>=1 then f=sqr(x+1) If x<1 then f=x*x+39. 下面IF 语句统计满足性别（sex ）为男，职称（duty ）为副教授以上，年龄（age ）小于40岁条件的人数，不正确的语句是( D )(A) If sex=”男” and age<40 and instr(duty,”教授”)>0 then n=n+1(B) If sex=“男” and age<40 and (duty=“教授” or duty=“副教授”) then n=n+1(C) If sex=“男” and age<40 and right(duty,2)=“教授” then n=n+1(D) If sex=“男” and age<40 and duty=“教授” and duty=“副教授” then n=n+110. 下面程序段求两个数中的大数，( D )不正确。
VB中结构
格式： If < 条件表达式 > < 语句块1> Else < 语句块2> End If
Then
T 表达 F 式
语句(块)1
语句(块)2
功能：当表达式的值为非0（True）时,执行Then后面的 语句块1，否则执行Else后面的语句块2。
例：判断两个数的乘积是否是正数。
Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(Text1.Text) y = Val(Text2.Text) If x * y > 0 Then
〈语句块1〉
ElseIf 〈表达式2〉Then
〈语句块2〉
……
[Else
表达式1
F
〈语句块 n+1 ] End If
表达式2
F…
T
T
表达式
nn T
语句块11
语句块2 …… 语句块nn
语句块n+11
说明：
① 不管有几个分支，程序执行了一个分支后， 其余分支不再执行。
② ElseIf子句的数量没有限制，可以根据需 要使用任意多个ElseIf子句。
（一）顺序结构
程序中的语句依照其在程序中的位置依次顺序 地执行，叫做语句的顺序执行。
赋值语句 格式： 变量名/对象属性名 = 表达式 功能：将赋值号右边表达式的值赋给赋值号左边的 变量或对象属性。
举例：
a = 300 b = a * 2 + 100 Form1.Width = b
注意：
① 赋值号左边只能是变量，不能是表达式、常量。
3．Select Case语句（多分支结构）
vb选择题
命令按钮的单击 命令按钮的装载 窗体的装载 窗体的单击 单击 双击 拖拽 移动 单击 双击 装载 按键 单击 双击 拖拽 移动 整型 变体型 字符型 单精度型 Load Sub Property Event ' : \ _ 步长只能为正数 步长为1时， 初值、终值和步长都是数值表达式 Exit For 只能退出当前For循环 数值 字符串 变体 逻辑 有组合式菜单和列表式菜单 有下拉式菜单和弹出式菜单 只有弹出式菜单 只有下拉式菜单 建立用户界面写源程序代码 编 画图 显示文字 设计模式 运行模式 调试模式 中断模式 学习版 免费版 专业版 企业版 Dim str AsDim str As string*10 str$ string Dim str$=10 Dim VB源代码中不区分字母的大小写一个语句必须写在一行中，不可分成多行来书 同一行可以写多个语句 可以适当添加注释有利于程序的维护和调试 事件是由Visual Basic DblClick（ 一个对象可以识别一个或多个事件 对于一个系统提供的对象可以识别哪些事件 条件语句中的件语句中的 条 在块结构条件语句中 块结构的条件语句和单行结构的条件语句都必 if语句中可以没有 if语句中可以没有 if语句都可以由iif语句替代 if语句中只能有一个 只有窗体才是有控件才是 只 窗体和控件都是 窗体和控件都不是Visual Basic中的对象 .vbp .frm .frx .bas .vbp .frm .frx .bas .vbp .frm .frx .bas 1 2 4 8 工程文件 窗体文件 可执行文件 资源文件 1 2 4 8 1 2 4 8 Public SubPublic ; y)Sum(ByVal Sum(x As Sum(x%, y%) As Integer) Sum(x Sub Public Sub x, ByVal y) Public Sub Integer,y 注释语句用来对程序或程序中某些语句做注释 注释语句是非执行语句 注释语句不能放在执行语句的后面 任何字符都可以放在注释行中作为注释内容 用属性窗口只能设置窗体的属性用属性窗口可以设置任何对象的属性 用属性窗口只能设置控件的属性 用属性窗口可以设置窗体和控件的属性 Const Dim Public Static 代码 属性 窗体 立即 Form1 Form2 Formx Form10
VB习题
第一讲Visual Basic程序设计概述一、选择题1.在VB程序设计阶段，双击窗体或窗体上的任何对象，打开的窗口是A.代码窗口B.属性窗口C.布局窗口D.工程窗口2.任何控件都具有的属性是A.CaptionC.FillColorD.DrawStyle3.下列关于窗体Name属性的叙述错误的是属性的值是显示窗体标题栏的文本属性的值不可以是空C.运行期间不能改变Name的属性值属性是指窗体的名称，用来标识一个窗体4.下列叙述中错误的是A.不同的对象可以具有相同名称的方法B.事件过程是指附在该对象上的程序代码，是事件触发后处理的程序C.方法是在对象上可操作的过程，是VB系统提供的一种特殊的过程和函数D.对象事件的名称可以由编程者制定5.有程序代码如下：Text1.Text=”欢迎”，则Text1、Text、”欢迎”分别代表A.对象、值、属性B.对象、方法、属性C.对象、属性、值D.属性、对象、值6. 下列叙述中正确的是（）。
A 只有窗体才是Visual Basic中的对象B 只有控件才是Visual Basic中的对象C 窗体和控件都是Visual Basic中的对象D 窗体和控件都不是Visual Basic中的对象二、填空题1.VB采用的是面向对象、驱动的编程机制。
2.VB编程的三大基本步骤是界面设计、属性设置和代码编写3.当对象获得焦点时会触发__lostfocus_________4.应用程序建立在工程的基础之上，一个工程是各种类型文件的集合，它包括_____（标准模块文件）.bas_______、_（工程文件）_.vbp____________、______（窗体文件）_.frm_______、_ ___（资源文件）.res_________、__（工程组文件）_.vbg____和__（类模块文件）.cls__________。
5.每个窗体对应一个窗体文件，窗体文件的扩展名是.frm 。
三、编程题1.设计一个显示信息的窗口(见图),要求在文本框中输入文本信息,单击按钮,文本信息显示在窗体上.2.设计如图所示窗口，要求单击“显示”按钮时在文本框中显示：北京欢迎你，单击“清除”按钮，清除文本框中的内容，单击“退出”按钮，退出程序。
- 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. 求任意半径和高的圆柱的表面积。