VB选择结构习题

VB第四章选择结构测试题

高一第二学期VB测试题一、选择题（每题2分，共20分）1.在条件语句If x=1Then y=2中，下列说法正确是______。

A.x=1和y=2均为赋值语句B.x=1和y=2均为关系表达式C.x=1为关系表达式，y=2为赋值语句D.x=1为赋值语句，y=2为关系表达式2.下面程序段运行后，显示的结果是_______。

Dim xIf x Then Print x Else Print x+1A.1B.0C. -1D.显示出错信息3.运行下列程序段，显示的结果是____。

x=Int(Rnd)+5Select Case xCase5Print"优秀"Case4Print"良好"Case3Print"通过"Case ElsePrint"不通过"End SelectA.优秀B.良好C.通过D.不通过4.执行如下程序段时，从键盘输入-5，输出的结果是_____。

x=-5s=Val(InputBox("请输入s的值:"))Select Case sCase Is>0y=x+1Case Is=0y=x+2Case Elsey=x+3End SelectPrint x;yA. -5-2B. -5-4C. -5-3D. -5-5第1页/共6页5.用Select Case语句选择|x|<=10情况的语句为：Case_______。

A.Not(-10To10)B.-10To10C.Is Abs(x)>10D.Is<-10Or>106、有如下程序：a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a<>3Or b<>3Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+c运行后，输出的结果是（）A）16B）3C）6D）87、有如下程序：a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a<>3Or b<>3Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+c运行后，输出的结果是（）A）16B）3C）6D）88、执行下列程序，从键盘输入10，运行结果是_________。

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测试题一、选择题(每题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第四章选择结构和循环结构编程题

第四章编程题1.查询分数题Private Sub Form_Load()x = Val(InputBox("请输入分数", "输入", 0))Select Case xCase Is < 0Label1.Caption = "输入有误"Case Is > 100Label1.Caption = "输入有误"Case Is >= 90Label1.Caption = "优秀"Case Is >= 80Label1.Caption = "良好"Case Is >= 70Label1.Caption = "一般"Case Is >= 60Label1.Caption = "及格"Case Is < 60Label1.Caption = "不及格"End SelectEnd Sub2.求最大公约数题Private Sub Command1_Click()Dim m As Integer, n As Integer, p As Integerm = Val(Text1.Text)n = Val(Text2.Text)If m < 0 Or n < 0 ThenMsgBox "数据错误！"EndEnd Ifp = m Mod nDo While p <> om = nn = pp = m Mod nLoopText3.Text = nEnd Sub2.1最小公倍数Private Sub Command1_Click()Dim m As Integer, n As Integer, p As Integer, t As Integerm = Val(Text1.Text)n = Val(Text2.Text)t = m * nIf m < 0 Or n < 0 ThenMsgBox "数据错误!"EndEnd IfIf m = 0 Or n = 0 ThenText3.Text = 0ElseDop = m Mod nIf p = 0 ThenExit DoEnd Ifm = nn = pLoop Until FalseText3.Text = t / nEnd IfEnd Sub3.九九乘法表Private Sub Command1_Click()Dim I As Integer, J As Integer, M As Integer, s As String For I = 1 To 9s = ""For J = 1 To IM = I * Js = s & J & "*" & I & "=" & M & " "Next JList1.AddItem sNext IEnd Sub4.求ABCD—CDC=ABC题Private Sub Command1_Click()For a = 1 To 9: For b = 0 To 9For c = 1 To 9: For d = 0 To 9x = a * 1000 + b * 100 + 10 * c + dy = c * 100 + d * 10 + cz = a * 100 + b * 10 + cIf x - y = z ThenPrint x; y; zEnd IfNextNextNextNextEnd Sub5.求前100项和，平均数题Private Sub Form_click()n = 1: s = 0Do While n <= 100s = s + nn = n + 1LoopPrint s, n - 1, s / (n - 1), s * (n - 1)End Sub6.输入10个数找出正数，负数，零的个数Private Sub Command1_Click()Dim i, t, x1, x2, x3 As IntegerFor i = 1 To 10t = Val(InputBox("请输入第" & i & "个数：", "显示", 0))If t > 0 Thenx1 = x1 + 1ElseIf t < 0 Thenx2 = x2 + 1Elsex3 = x3 + 1End IfNextPrint "正数的个数:" & x1Print "负数的个数:" & x2Print "零的个数:" & x3End Sub7.Fibonacci数列（用数组做）Private Sub Form_Load()For i = 1 To 30List1.AddItem Fib(i)NextEnd SubPrivate Function Fib(n)If n < 3 ThenFib = 1ElseFib = Fib(n - 1) + Fib(n - 2)End IfEnd FunctionPrivate Sub List1_Click()List1.AddItem = FibEnd Sub8.输入十个数打印并找出最大数，最小数Private Sub Command1_Click()Dim a(9), i, max, min As IntegerFor i = 0 To 9a(i) = Val(InputBox("请输入第" & i + 1 & "个数："))Print a(i);Nextmax = a(0)For i = 0 To 9If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)NextPrintPrintPrintPrint "最大数为：" & max; "最小数为：" & minEnd Sub9.100元换成40张等值的10,5,2,1的钱的题Private Sub Command1_Click()For x = 1 To 10For y = 1 To 20For z = 1 To 50w = 40 - x - y - zIf 10 * x + 5 * y + 2 * z + w = 100 And x * y * z * w > 0 Thenh = Format(x, "@@@@") & Format(y, "@@@@@") _& Format(z, "@@@@@") & Format(w, "@@@@@")List1.AddItem hEnd IfNext zNext yNext xEnd Sub10.找出三位数的回文数并打印，并求其个数Private Sub Command1_Click()Dim n As IntegerFor n = 101 To 999a = Int(n / 100)b = Int((n - a * 100) / 10)c = n - a * 100 - b * 10If a = c Then List1.AddItem nNextPrint List1.ListCountEnd Sub10-2回文字判断1）按定义判断先求出字符串的反序字符串，然后和原字符串比较，如果相等则是回文，否则不是回文。

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基本知识及选择、循环结构习题

一、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#（2）下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.345（3）下列符号中，哪些可以是Visual Basic 的合法变量名？A123 a12_3 123_a a,123 a 123 IntegerXYZ 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(68.555 * 100 + 0.4) / 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(-3.14159) （2）Fix(-3.14159)（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(-459.55) （12）UCase("Visual Basic")二、选择题（1）可以同时删除字符串前导和尾部空格的函数是。

vb选择结构练习题.doc

1.奖学金问题；平均分大于95或者两门100 —门大于80分Private Sub Command 1 _Click()ml = Val(Textl.Text)m2 = Val(Text2.Text)m3 = Val(Text3.Text)x = (ml + m2 + m3) / 3Ifx>95 Theny= 1Elself ml = 100 And m2 = 100 And m3 >= 80 Theny = iElself m2= 100 And m3 = 100 And ml >= 80 Theny = iElself ml = 100 And m3 = 100 And m2 >= 80 Then y=iElsey = 0End IfIf y = 1 ThenText4.Text = ”一等奖学金”Else: Text4.Text 二”非一等奖学金”End IfEnd SubQ Forml100 100 82 等奖学金计算2•三个数比较大小并按从小到大排列Private Sub Command l_Click()x = Val(Textl.Text)y = Val(Text2.Text)z = Val(Text3.Text)tmax = IIf(x > y, x, y)Max = IIf(tmax > z, tmax, z)tmin = IIf(x < y 9 x ，y)Min = IIf(tmin < z, tmin, z)a = x + y + z- Min - MaxText4.Text = Min &“ & a & ” v ” & Max End Sub Q. Forml比较3 •编写一个简单计算器程序Private Sub Command l_Click() numl = Val(Textl .Text)num2 = Val(Text2.Text)NOp = Trim(Text3)Select Case NOpCasex = numl + num2Case 叮x = numl - num2Case ”啊x = numl * num21456 33 14 < 33 < 56Case Tx = numl / num2End SelectText4.Text = xEnd SubPrivate Sub Command2_Click()Text 1.Text 二””Text2.Text = ””Text3.Text = ””Text4.Text = ””End Sub计算唐屏4.输入一个数字，用英文显示対应的周一至周日Private Sub Command l_Click() a = Val(Textl.Text) Select Case aCase 1Text2.Text = "Monday1'Case 2Text2.Text = "Tuesday"Case 3Text2.Text = "Wednesday*'Case 4Text2.Text = "Thursday"Case 5Text2.Text = "Friday"Case 6Text2.Text = '"Saturday 11Case 7Text2.Text = "Sunday"Case Is > 7, Is < 1Text2.Text = "error 1*End SelectEnd SubPrivate Sub Command2_Click()Text 1.Text 二””Text2.Text = ””End SubH rorm 丄转换 5.公用电话收费程序，3分钟以内0.5元，超过部分每分钟加收0.15元，在7点至19 Z 间正常收费，其他时间半价收费Private Sub Command l_CIick()al = Textlbl = Text2c 1 = Text3a2 = Text4b2 = Text5c2 = Text6s = (a2 ・ al) * 60 + (b2 - bl) + (c2 - cl) / 60 Text7 = sIf s <= 3 Then星期 Friday濟屏m = 0.5Elsem = 0.5 + (s - 3) * 0.15End IfIfal > 19 Or al < 7 Thenm = m / 2End IfText8 = mEnd SubPrivate Sub Command2_Click()TextlText2 =Text3 = ,M,Text4 = “”Text5 二“”Text6 = “”Text7 =TextsEnd Sub鬥Forml CD IEJ。

VB操作题选择结构操作题本

VB7—选择结构操作题一、操作题，每题10分，9题共90分【第1题】打开“Z:\50\工程1.vbp”，完善程序并保存。

实现功能：在文本框text1、text2、text3中输入3根小木棒的长度(假设都是整数)，判断能否用它们搭成一个三角形，并把结果输出到文本框text4中。

操作要求：（1）在窗体中加载“CommandButton”控件，命名为“Command1”并设置该控件“Caption”属性值为“判断”；（2）完善程序，执行command1_click事件，判断出结果，如果能搭成三角形则在文本框text4中输出“OK”，否则输出“NO”。

Private Sub Command1_Click()Dim a, b, c As ①Let a = Val(Text1.Text)Let b = Val(Text2.Text)Let c = Val(Text3.Text)If (a + b > c) And (a + c > b) And (b + c > a) ThenLet Text4.Text = "OK"ElseLet Text4.Text = "NO"②End Sub【第2题】打开文件“考生文件夹\108\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，则将该数据输出在窗体上。

Private Sub Command1_Click()Dim x As Integerx = Val(①)If x Mod 3 = 2 ThenIf ② = 3 Then Print ③End IfEnd IfEnd Sub【第3题】打开“Z:\13\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：在Text1、Text2、Text3中输入三个整数后，单击“输出最大值”按钮后，在Label3中显示这3个数中的最大值。

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循环结构选择题共24页

一、选择题1、无条件转移GoTo语句后面是（A）A、标号或行号B、输出语句C、输入语句D、子过程2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A）A、冒号B、分号C、逗号D、空格3、无条件转移GoTo语句后面的行号或标号在同一过程中（A）A、必须唯一B、可以重复C、以数字开头D、以汉字开头4、while循环结构中的条件表达式取值为（A）A、TrueB、FalseC、True或FalseD、05、while循环结构中的条件表达式取值为（A）时执行语句组A、TrueB、FalseC、True或FalseD、06、while循环结构中与（A）匹配使用，不能单独出现A、WendB、endC、loopD、next7、Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、38、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、39、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B）A、0B、1C、2D、310、Do…loop循环结构中的Exit Do语句的功能是（B）A、退出整个程序B、退出当层循环C、退出最外层循环D、退出所在子程序11、Do…loop中使用while关键字时，条件为（B）执行循环体A、FalseB、TrueC、0D、假或真12、Do…loop中使用until关键字时，条件为（A）执行循环体A、FalseB、TrueC、0D、假或真13、Do…loop中使用while关键字时，条件为（A）终止循环A、FalseB、TrueC、0D、假或真14、Do…loop中使用until关键字时，条件为（B）终止循环A、FalseB、TrueC、0D、假或真15、For…Next循环结构中（C）用来控制循环变量A、forB、stepC、nextD、to16、For…Next循环结构中step用来控制（D）A、循环变量B、循环变量初值C、循环变量终值D、循环变量增量17、For…Next循环结构中循环变量初值大于终值时,步长为（A）A、负数B、非负数C、正整数D、正数18、For…Next循环结构中循环变量初值小于终值时,步长为（A）A、负数C、正整数D、正数19、For…Next循环结构中next后的循环变量（A）A、可以省略B、不可以省略C、与for后的变量名可以不同D、与for后的变量不是同一变量20、For…Next中循环变量初值与终值间使用的关键字是（A）A、ToB、InC、gotoD、private21、For…Next中循环变量初值与终值间使用的关键字是（A）A、ToB、InC、gotoD、private22、执行下面的程序段后，s的值为（C）Private Sub Form_Click()Static s As Integers = 5For i = 1.4 To 2.1 Step 0.6s = s + 1Next iPrint sEnd SubA、5B、6C、7D、123、下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（Ａ）Private Sub Command1_Click()For m = 1 To 10x = Int(Rnd * 101+100)If（）ThenPrint x;End IfNext mEnd SubA、x mod 5=0B、x mod 5==0C、x/5=024、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（A）A、33B、35C、37D、3825、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private Sub Command1__Click()X=0N=val(inputbox(“n=?”))For i=1 to nFor j=1 to iX=x+1Next jNext iPrint xEnd sub程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D)A、9B、44C、5D、626、以下能够正确计算n！的程序是（C）A、private sub command1__click()N=5 : x=1DoX=x*1I=i+1Loop while i<nPrint xEnd subB、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<nPrint xEnd subC、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<=nPrint xEnd subD、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i > nPrint xEnd sub27、在窗体上画一个命令按纽Command1，标签Label1然后编写如下事件过程：Private sub command1_click()For i=1 to 15X=2*i-1If x mod 3=0 then s=s+1Next iLabel1、caption =sEnd sub程序运行后,单击命令按钮,标签中显示的内容是( B )A、1B、5C、27D、4528、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private sub command1_click()For i=1 to 4For j =0 to iPrint chr$(65+i)Next iPrintEnd sub程序运行后,单击命令按钮,窗体中显示的内容是( A)A、BBCCCDDDDEEEEEB、ABBCCCDDDDC、BCCDDDEEEED、AABBBCCCCDDDDD28、在窗体上画两个名称分别为text1，text2的文本框和一个名称为command1的命令按钮，然后编写如下事件过程：Private sub command1_click()Dim x as integer，n as integerX=1 ：n=0Do while x < 20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)End sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)A、15和1B、27和3C、195和3D、600和429、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(5),b(5)For j =1 to 4A(j)=3*jB(j)=a(j)*3Next jText1、text=b(j\2)End Sub程序运行后，单击命令按钮，在文本框中显示（ B ）A、25B、18C、36D、3530、下面程序运行时，内层循环的循环总次数是（A）For m = 1 To 3For n = 0 To m - 1Next nNext mA、6B、3C、0D、931、定义语句Dim A (-3 to 3) as Integer，定义数组的元素个数是（D）A、6B、3C、0D、732、执行下面的程序段后，X的值为（C）X=5For I=1 to 10 Step 2X=X+I\5Next IA、7B、10C、8D、533、如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（D ）For I=a to bPrint INext IA、0B、1C、2D、334、下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是（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循环至少执行一次35、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4a = 1For j = 1 To 3a = 2For k = 1 To 2a = a + 6Next kNext jNext iPrint aEnd Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（A ）A、14B、15C、16D、1736、设有如下程序：Private Sub Form_Click()a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iPrint aEnd Sub程序运行后，单击窗体，则在窗体上显示的内容是（ B ）A、6B、5C、4D、337、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：sub ss (b() as Integer )For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6a(3) = 7: a(4) = 8ss a()For i = 1 To 4Print a(i)Next i运行上面的程序，单击命令按钮，则在窗体上显示的内容是（B ）A、5 6 7 8B、2 4 6 8C、1 2 3 4D、5 7 6 838、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Function fun(x As Integer)Static zy = y + 1: z = z + 1fun = x + y + zEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx = 1For i = 1 To 2Print fun(x)Next iEnd Sub程序运行后，如果单击命令按钮，窗体中显示的内容是（B ）A、3 3B、3 4C、3 5D、3 639、若I、n均为整型变量，下列程序段的输出结果为（C）Private Sub Form_Click()n = 0For i = 1 To 10If i Mod 2 = 1 Then n = n + 1Next iPrint nEnd SubA、0B、4C、5D、340、在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如下代码：Private Sub Form_click ()Text1、Text = ""Text1、SetFocusFor i = 1 To 10Sum = Sum + iNext iText1、Text = Sum上述程序运行后，单击窗体，则运行的结果（A ）A、在文本框Text1中输出55B、在文本框Text1中输出0C、出错D、在文本框Text1中输出不定值41、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Private Sub Command1_Click()x = 0Do Until x = -1a = InputBox("请输入A的值")a = Val(a)b = InputBox("请输入B的值")b = Val(b)x = InputBox("请输入X的值")x = Val(x)a = a +b + xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入1<CR>2<CR>3<CR>4<CR>5<CR>-1<CR>，则输出结果为（A）A、8B、9C、14D、1542、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（A ）A、33B、35C、37D、3843、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = 2For i = 1 To 3b = F(a)Print bNext iEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（A ）A、4 5 6B、1 2 3C、0 1 2 3D、2 3 444、在窗体上画一个命令按钮，名称为Command1。

vb循环结构选择题

vb循环结构选择题vb循环结构选择题一、选择题1、无条件转移GoT o语句后面是（A）A、标号或行号B、输出语句C、输入语句D、子过程2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A）A、冒号B、分号C、逗号D、空格3、无条件转移GoT o语句后面的行号或标号在同一过程中（A）A、必须唯一B、可以重复C、以数字开头D、以汉字开头4、while循环结构中的条件表达式取值为（A）A、TrueB、FalseC、True或FalseD、05、while循环结构中的条件表达式取值为（A）时执行语句组A、TrueB、FalseC、True或FalseD、06、while循环结构中与（A）匹配使用，不能单独出现A、WendB、endC、loopD、next7、Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、38、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、39、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B）A、0B、1C、2D、310、Do…loop循环结构中的Exit Do语句的功能是（B）A、退出整个程序B、退出当层循环C、退出最外层循环D、退出所在子程序11、Do…loop中使用while关键字时，条件为（B）执行循环体A、FalseB、TrueC、0D、假或真12、Do…loop中使用until关键字时，条件为（A）执行循环体A、FalseB、TrueC、0D、假或真13、Do…loop中使用while关键字时，条件为（A）终止循环A、FalseB、TrueC、0D、假或真14、Do…loop中使用until关键字时，条件为（B）终止循环A、FalseB、TrueC、0D、假或真15、For…Next循环结构中（C）用来控制循环变量A、forB、stepC、nextD、to16、For…Next循环结构中step用来控制（D）A、循环变量B、循环变量初值C、循环变量终值D、循环变量增量17、For…Next循环结构中循环变量初值大于终值时,步长为（A）A、负数B、非负数C、正整数D、正数18、For…Next循环结构中循环变量初值小于终值时,步长为（A）A、负数C、正整数D、正数19、For…Next循环结构中next后的循环变量（A）A、可以省略B、不可以省略C、与for后的变量名可以不同D、与for后的变量不是同一变量20、For…Next中循环变量初值与终值间使用的关键字是（A）A、T oB、InC、gotoD、private21、For…Next中循环变量初值与终值间使用的关键字是（A）A、T oB、InC、gotoD、private22、执行下面的程序段后，s的值为（C）Private Sub Form_Click()Static s As Integers = 5For i = 1.4 To 2.1 Step 0.6s = s + 1Next iPrint sEnd SubA、5B、6C、7D、123、下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（Ａ）Private Sub Command1_Click()For m = 1 To 10x = Int(Rnd * 101+100)If（）ThenPrint x;End IfNext mEnd SubA、x mod 5=0B、x mod 5==0C、x/5=024、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（A）A、33B、35C、37D、3825、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private Sub Command1__Click()X=0N=val(inputbox(“n=?”))For i=1 to nFor j=1 to iX=x+1Next jNext iPrint xEnd sub程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D)A、9B、44C、5D、626、以下能够正确计算n！的程序是（C）A、private sub command1__click()N=5 : x=1DoX=x*1I=i+1Loop while i<n< p="">Print xEnd subB、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<n< p="">Print xEnd subC、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<=nPrint xEnd subD、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i > nPrint xEnd sub27、在窗体上画一个命令按纽Command1，标签Label1然后编写如下事件过程：Private sub command1_click()For i=1 to 15X=2*i-1If x mod 3=0 then s=s+1Next iLabel1、caption =sEnd sub程序运行后,单击命令按钮,标签中显示的内容是( B )A、1B、5C、27D、4528、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private sub command1_click()For i=1 to 4For j =0 to iPrint chr$(65+i)Next iPrintEnd sub程序运行后,单击命令按钮,窗体中显示的内容是( A)A、BBCCCDDDDEEEEEB、ABBCCCDDDDC、BCCDDDEEEED、AABBBCCCCDDDDD28、在窗体上画两个名称分别为text1，text2的文本框和一个名称为command1的命令按钮，然后编写如下事件过程：Private sub command1_click()Dim x as integer，n as integerX=1 ：n=0Do while x < 20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)End sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)A、15和1B、27和3C、195和3D、600和429、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(5),b(5)For j =1 to 4A(j)=3*jB(j)=a(j)*3Next jText1、text=b(j\2)End Sub程序运行后，单击命令按钮，在文本框中显示（ B ）A、25B、18C、36D、3530、下面程序运行时，内层循环的循环总次数是（A）For m = 1 To 3For n = 0 To m - 1Next nNext mA、6B、3C、0D、931、定义语句Dim A (-3 to 3) as Integer，定义数组的元素个数是（D）A、6B、3C、0D、732、执行下面的程序段后，X的值为（C）X=5For I=1 to 10 Step 2X=X+I\5Next IA、7B、10C、8D、533、如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（ D ）For I=a to bPrint INext IA、0B、1C、2D、334、下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是（ 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…loopuntil循环至少执行一次35、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4a = 1For j = 1 To 3a = 2For k = 1 To 2a = a + 6Next kNext jNext iPrint aEnd Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（ A ）A、14B、15C、16D、1736、设有如下程序：Private Sub Form_Click()a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iPrint aEnd Sub程序运行后，单击窗体，则在窗体上显示的内容是（ B ）A、6B、5C、4D、337、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：sub ss (b() as Integer )For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6a(3) = 7: a(4) = 8ss a()For i = 1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，则在窗体上显示的内容是（ B ）A、5 6 7 8B、2 4 6 8C、1 2 3 4D、5 7 6 838、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Function fun(x As Integer)Static zy = y + 1: z = z + 1fun = x + y + zEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx = 1For i = 1 To 2Print fun(x)Next iEnd Sub程序运行后，如果单击命令按钮，窗体中显示的内容是（ B ）A、3 3B、3 4C、3 5D、3 639、若I、n均为整型变量，下列程序段的输出结果为（C）Private Sub Form_Click()n = 0For i = 1 To 10If i Mod 2 = 1 Then n = n + 1Next iPrint nEnd SubA、0B、4C、5D、340、在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如下代码：Private Sub Form_click ()Text1、Text = ""Text1、SetFocusFor i = 1 To 10Sum = Sum + iNext iText1、Text = SumEnd Sub上述程序运行后，单击窗体，则运行的结果（ A ）A、在文本框Text1中输出55B、在文本框Text1中输出0C、出错D、在文本框Text1中输出不定值41、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Private Sub Command1_Click()x = 0Do Until x = -1a = InputBox("请输入A的值")a = Val(a)b = InputBox("请输入B的值")b = Val(b)x = InputBox("请输入X的值")x = Val(x)a = a +b + xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入12345-1，则输出结果为（A）A、8B、9C、14D、1542、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（ A ）A、33B、35C、37D、3843、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = 2For i = 1 To 3b = F(a)Print bNext iEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（ A ）A、4 5 6B、1 2 3C、0 1 2 3D、2 3 444、在窗体上画一个命令按钮，名称为Command1。

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第5章选择结构

松山区职教中心2010-2011学年度上学期计算机专业第5章选择结构VB试题班级：________考号：________姓名：________总分：_____第一部分:VB（86分）一、单项选择1、在窗体上画一个文本框各一个计时器控件,名称为Text1和Timer1，在属性窗口中把计时器的interval属性设置为1000，enabled属性设置为FALSE。

程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前时间。

以下是实现上述操作的程序： private sub command1_click()Timer1.______end subprivate sub Timer1_timer()text1.text=timeend sub在填空处填入的内容是( )(2分)A、enabled=TRUEB、enabled=falseC、visible=trueD、visible=false2、滚动条控件的Largechange属性所设置的是（ ( )(2分)A、单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量B、滚动条中滚动块的最大移动位置C、滚动条中滚动块的最大移动范围D、滚动条控件无该属性3、若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选数组，在属性窗口中需要且只需要进行的操作是( )(2分)A、把所有单选按钮的INDEX属性改为相同值B、把所有单选按钮的INDEX属性改为连续的不同值C、把所有单选按钮的CAPTION属性值改为相同D、把所有单选按钮的名称改为相同，且把它们的INDEX属性改为连续的不同值4、下列对象中没有焦点属性的是 ( )(2分)A、命令按钮控件B、窗口控件C、文本框控件D、单选框控件5、不具有输入数据功能的控件是（）控件( )(2分)A、文本框B、选项按钮C、列表框D、窗体6、设a="a",b="b",c="c",d="d",执行语句"x=iif(a<b)or(c>d),"A,","B")"后，X的值为( )(2分)A、"a"B、"b"C、"B"D、"A"7、以下关于复选框的说法，正确的是 ( )(2分)A、一个窗体上的所有复选框一次只能有一个被选中B、一个容器中的所有复选框一次只能有一个被选中C、在一个容器中的复选框不可以不被选中D、无论是在容器中还是在窗体中，都可以同时选中多个复选框8、在窗体上画一个命令按钮和一个文本框，名称分别为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<=31,"颐和园","")atext1.text=tend sub程序运行后，如果从键盘上输入16,则在文本框中显示的内容是( )(2分)A、旅游景点：长城故宫B、旅游景点：长城颐和园C、旅游景点：颐和园D、旅游景点：故宫9、在窗体上从左到右有text1,text2两个文本框，要求程序运行时，在text1中输入1个分数后，按回车键，则判断分数的合法性，若分数为0－100中的1个数，则光标移到text2中，否则光标不动，并弹出对话框显示“分数错“，下面程序中正确的是( )(2分)A、private sub text1_keypress(keyascii as integer)if keyascii=13 then '回车符的ACSII码是13a=val(text1)if a>=0 or a<=100 thentext2.setfocuselsetext1.setfocusmsgbox("分数错")end ifend ifend subB、private sub text1_keypress(keyascii as integer) if keyascii=13 then '回车符的ACSII码是13a=val(text1)if a>=0 and a<=100 thentext1.setfocuselsetext2.setfocusmsgbox("分数错")end ifend ifend subC、private sub text1_keypress(keyascii as integer) if keyascii=13 then '回车符的ACSII码是13a=val(text1)if a<0 and a>100 thentext2.setfocuselsetext1.setfocusmsgbox("分数错")end ifend ifend subD、private sub text1_keypress(keyascii as integer)if keyascii=13 then '回车符的ACSII码是13a=val(text1)if a>=0 and a<=100 thentext2.setfocuselsetext1.setfocusmsgbox("分数错")end ifend ifend sub10、某人在窗体上画了一个名称为Timer的计时器和一个名称为Lab的属性为Enabled=True，Interval=0,并编程如下。

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选择分支结构

选择(分支)结构练习
练习题： 1.由铁路托运行李，从甲地到乙地，行李不超过 50 kg 时，运费为 1.50 元 /kg ，如果超过 50kg, 超过部分的运费为 2.00 元 /kg 。请编写程序，当输入行李重量后，显示运费。 ab 2.输入a, b的值 , 当a×b>0时计算表达式y＝ 4ab 的值，否则输出“wrong”。 3. 公园购票时输入年龄，如果是儿童（小于18）、老年人（大于60），则提示购买半票，其他人提示购买全票。 4.设计一个密码判断程序。要求：用户输入密码时（12345），输入的密码在文本框中以“*”的形式显示，用“确定”按钮核实密码是否正确，并弹出一个信息框告知结果（msgbox）；用“取消”按钮放弃用户输入的密码。 5.请编写一个程序，3个数字比大小。显示然后将它反向输出。练习7：把输入的数自动进行保留3位小数操作。练习8：键盘输入一个数，进行奇、偶数判断。练习9：编写把输入的数自动进行四舍五入操作的程序。练习10：设计一简单加法练习器（20以内的整数），如果做对了，出现提示“答对了！”并加 10分，否则出现提示“答错了！”并减10分。

VB第4章选择结构

教案讲稿第四章选择结构程序设计[旧课复习]：复习内容：1.已学过的几个常用的控件2.控件中输入输出语句的使用复习目的：让学生掌握基本控件的使用复习时长：大约10分钟[新课导入]：导入方式：以日常生活中的实例让学生理解什么是选择结构导入目的：增强学生的理解能力导入时长：大约5分钟[新课讲授]：重点：各种分支结构语句的使用难点：选择结构的嵌套方法：运用多媒体辅助教学，采用讲授法和案例教学法4.1算法介绍4.1.1算法介绍一、算法概述所谓算法，是对特定问题求解步骤的一种描述，它是指令的有限序列，其中每个指令表示一个或多个操作。

算法有以下特征：（1）有穷性（2）确定性（3）可行性（4）输入（5）输出4.1.2算法的表示常用的表示算法的方法有：自然语言、伪代码、流程图，本章重点介绍用流程图表示算法。

流程图用一些图框、流程线以及文字说明来表示算法。

用图来表示算法，直观、形象、容易理解。

包括：传统流程图、结构化流程图。

因传统流程图中流程线的使用无限制可能导致流程图毫无规律。

结构化流程图使用3中基本结构，即：顺序结构、选择结构和循环结构（如图4-1所示），从而大大提高流程图的规律性。

图4-1（a）顺序结构流程图图4-1（b）选择结构流程图图4-1（c）循环结构流程图4.2条件语句VB中选择结构通过条件语句来完成，包括：单分支、双分支和多分支等。

4.2.1单分支结构语句单分支结构语句包括单行结构和块结构。

1．“单行结构”格式为：If <条件表达式> Then <语句序列>2. “块结构”格式为：If <条件表达式> Then<语句序列>说明：（1）“条件表达式”可以是关系表达式、布尔表达式或者数值表达式。

如果是数值表达式，则非0值为真，0为假。

（2）当条件表达式的值为真时执行语句序列。

【例4-1】已知两个数x和y，比较它们的大小，使得x>y。

分析：对任意的两个数x、y,其中x若为大的数，直接输出即可，若 y为大的数，则交换两数即可。

VB选择结构 习题

VB第四章选择结构测试题

VB测试题(必做部分)

VB第四章选择结构测试题

vb第四章选择结构和循环结构编程题

VB程序设计 习题及答案第4章 选择结构程序设计

VB基本知识及选择、循环结构习题

vb选择结构练习题.doc

VB操作题选择结构操作题本

VB顺序结构与选择结构练习题

vb复习题选择结构

vb循环结构选择题共24页

vb循环结构选择题

vb选择结构练习

VB第5章选择结构

vb大一选择程序结构习题答案答案

最新vb复习题(选择结构)

VB选择分支结构

VB第4章 选择结构

VB程序设计习题及答案第4章选择结构程序设计

VB第4章选择结构