VB语句练习.docVIP

语句练习 1、用循环结构解决问题时，如果循环的次数已知，通常采用 ；当循环的次数未知，需要靠判断条件是否成立来决定循环的执行和退出时，通常采用 ( ) A．For…Next循环、Do…Loop循环 B． Do…Loop循环、For…Next循环 2．在VB中，设X=7146，能得到其十位上数字 4 的正确表达式是 (　　) （A）x\10 mod 100 （B）x\10 mod 10 （C）x\100 mod 10 （D）x mod 10\10 3．程序运行后，单击Command1命令按钮，变量x= 。 Private Sub Command1_Click() n = 5 x = 0 For i = 1 To n x = x+i Next i End Sub A．5 B．15 C．10 D．0 4、下面有三段Visual Basic 程序： a=3 b=5 a=a+b b=a+b s=0 For k=1 To 5 s=s+5 Next k x=3? If? x3? Then?? ??? y=x*x Else ?????y=2*x????End? If 其中，（1）第一段的基本控制结构属于（ ）（2）第二段的基本控制结构属于（ ） （3）第三段的基本控制结构属于（ ） （A）顺序结构 （B）分支结构 （C）循环结构 （D）网络结构 5．下列是一个Visual Basic程序： Sub Commandl_Click() X=4 For i=1 To 10 step 3 If x Then X=x+i End If Next i Print x End Sub 该程序运行结果是 A．7 B．11 C．21D．55“abc”)的返回值是__________________________。 7．Mid(“2009乌镇欢迎你!”, 5 ,2 )的返回值是__________________。 8．写出数学表达式并且的VB表达式_____________________________。 9．求下列VB表达式9\2+1 Mod 2+Int（-11/3）的值______________ 二、填空题 请写出以下1—2题的流程图所示算法的运行结果: 1. 输出结果是 2.若输入3，5，7，则输出结果是_ 第1题流程图 请写出以下3—4题的程序代码所示算法的运行结果: 3. 4. 5．阅读程序代码并填空。 （1）在程序中,a=b的含义是_______________。 （2）执行程序后,b的输出结果是________________。 6．某市固定电话市话资费标准如下：本地网营业区内电话(市话)每次通话按前3分钟0．20元，以后每1分钟计0．10元（不足1分钟的按1分钟计）。请你完善该市市话计费程序。 提示：程序中用变量t表示通话时间(单位：分钟)，f表示通话费用（单位：元 ) Private Sub Command1_click() Dim t as integer, f as __________ t=_____ if __________ then f=0.2 else f=______ _______ Print f End Sub 7．某地出租车计价方式如下：3公里内（包括3公里）起步价10元； 超过3公里，但10公里内，则3公里内收费10元，超出部分每公里2元；如果超过10公里，则10公里内收费24元，超出部分每公里3元。其程序实现如下： Private Sub Command1_Click( ) x=val( Text1.Text ) if x=3 then y = 10 if (1) then y=10+(x-3)*2 if x10 then y = (2) if x=0 then y = 0 Label1.Caption = x Label2.Caption = y End Sub 请把上面程序补充完整：（1）_______________________（2）________________________ 8.一个酵母