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

VB顺序结构及选择结构练习一、单选题1在窗体上画一个命令按扭(名称为Commandl),然后编写如下事件过程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.732B)$1.732C)$1732D)$00001.7324以下程序段的输出结果是(D )a = Sqr(3)b = Sqr(2)c =a>bPrint cA)-1B)0C)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)String1B)String2C)String3D)12.1 nputBox函数返回值的类型为（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)579B)123C)456123D)1234564执行下面的语句后，所产生的信息框的标题是(A )a = MsgBox(“AAAA”，”BBBB”,”,5)A ) BBBBB)空 C) AAAAD)出错，不能产生信息框5在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程Privete Sub Command1_Click()MsgBox Str(123 + 321)End Sub程序运行后，单击命令按扭，则在信息框中显示的提示信息为(B )A)123 + 321B )字符串”444”C )数值444 D )空白6.MsgBox函数的反回值的类型为（A ）A）整型（In teger）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)0B)1C)2D)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 ElseEnd SelectPrint s;fEnd Sub运行时从键盘输入6，输出结果是(D )A)6 7B)68C)69D)6104. 假定有如下语句：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)BC)C D)D5. 假定有如下语句Private Sub Form_Click()a = Vai (I nputBox ("请输入 a”)b = Val (I nputBox ("请输入 b”)x = a*a + bIf b > a Then x = b*b + aPrint xEnd Sub运行时从键盘输入3和4,输出X的值是(C)A)12B)13C)19D)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)1B)2C)3D)出错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) 31B) 343C) 3432D) 343218. 设有函数 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)，下列语句的输出结果分别是002.452.44924.49E-01Print Format $ (a,”000.00”)输出结果Print Format $ (a,”#.#00”)输出结果Print Format $ (a,”00.00E+00”)输出结果输出结果：-2.4495Print Format $ (a,”-#.#”)三、编程题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二nab/a + b*c程序代码：Private Sub Form_Click() a =5 : b = 2.5 : c = 7.8 y = (3.1416*a*b)/(a+b*c) Print “y=”;yEnd Sub1. 编写求以 10为底，求 10000的对数值的源程序。Private Sub Form_Click()Forml.Print Log(10000) / Log(10)End Sub 和凶计貫或询为底laooo的对数 車击窗体开贻场 Forml4'Private 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 Sub曲 Forml求任意数的平方根 車击將祥并贻 辎入数据为9平方根为3-1 ! xl3.求任意半径和高的圆柱的表面积。Private Sub Comma nd1_Click()r = Text1.Texth = Text2.Text! x|诘输入団拄佯的數据s = 2 * 3.14159 * r * h + 2 * 3.14159 * rText3.Text = sEnd Sub4. 编写程序，在文本框中输入英文字符，单击“大写”按钮把英文字符转换为大写，单击“小写”按钮把英文字符转换为小写。Private Sub Comma nd1_Click()Textl.Text = UCase$ (T ext1.Text)End Sub転 Form 1谙输入英文字母I am a Etudent|犬写显示小写显不-IniPrivate Sub Command2_Click()Text1.Text = LCase$(Text1.Text)End Sub5. 从键盘上输入小时，分和秒，把它转换为秒并输出Private Sub Form_Click()H = In putBox("请输入小时"，"小时")H = Val(H)M = In putBox("请输入分"，"分")M = Val(M)S = In putBox("请输入秒"，"秒")S = Val(S)Num = S + M * 60 + H * 60 * 60Print H; "小时" M; "分" S; "秒=" Num; "秒"End Sub1.给定三角形的三条边长，计算三角形的面积。编写程序，首先判断给出的三角形能否构成 三角形，如果可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入 -1 时 结束程序。解：从几何学可知，三角形的两边之和大于第三边。因此，如果输入的三角形三边中两边之 和小于或等于另一边长，则不能构成三角形。在这种情况下，给出适当的信息，并要求重新 输入。如果能构成三角形，则输出该三角形的面积。代码：Private Sub Form_Click()Dim a,b,c,s,t As SingleStart:a = In putBox (“请输入A边的边长”)a = Val (a)If a = -1 Then Endb = InputBox (“请输入B边的边长”)b = Val (b)c = In putBox (“请输入C边的边长”)c = Val (c)If a + b <= c Or b + c <= a Or c + a <= b ThenGoTo StartEnd Ifs = ( a + b +c )/2t = Sqr( s * (s - a) * (s - b) * (s - c)Print “三角形的面积为：”;tEnd Sub2. 税务部门征收所得税，规定如下(1) 收入在200元以内，免征；(2) 收入在200 400 元内，超过200 元的部分征收税3%；(3) 收入超过400 元的部分，纳税4%；(4) 当收入达到5000元或超过时，将4%税金改为5%； 代码：Private Sub Form_Click()r = In putBox(“请输入您的收入”)r = Val(r)If r <= 200 Thentax = 0ElseIf r> 200 And r <= 400 ThenTax = (r - 200) * 0.03ElseIf r> 400 And r <= 5000 ThenTax = (r - 400) * 0.04ElseIf r> = 5000 ThenTax = (r - 400) * 0.05End IfPrint “收入 ”;r; ”应纳税 ”;taxEnd Sub