VB控制结构.doc

1在窗体上画一个命令按钮,然后编写如下事件过程:mand1_Click()  x=0  DoUntilx=-1     a=InputBox("请输入A的值")     a=val(a)     b=InputBox("请输入B的值")     b=Val(b)     x=InputBox("请输入x的值")     x=val(x)     a=a+b+x  Loop  PrintaEndSub程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,输出结果为A)2         B)3       C)14       D)15  2以下能够正确计算n!的程序是 A)mandl_ClicK()  n=5:x=1  Do    X=x*i    i=i十1  LoopWhilei<n  Printx  EndSubB)mandl_Click()  n=5:x=1:i=1  Do    X=X*i    i=i十1  LoopWhilei<n  Printx  EndSub C)mandl_Click()   n=5:x=1:i=1  Do    X=X*i    i=i十1   Loopwhilei<=n   Printx   EndSubD)mandl_C1ick()  n=5:x=1:i=1  Do    X=X*i    i=i十1  loopWhilei>n   Printx  mandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程: mandl_C1ick()   s=0      Fori=1To15   x=2*i-1          IfxMod3=0Thens=s+1      Nexti   =s EndSub程序运行后,单击命令按钮,则标签中显示的内容是A)1       B)5      C)27       D)454在窗体上画一个命令按钮,mand1。然后编写如下程序: mand1_Click()  ForI=1To4     ForJ=0Toi         PrintChr$(65+I);        NextJ     Print  NextI  EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是A)BB          B)A          C)B           D)AA  CCC            BB            CC             BBB  DDDD           CCC           DDD              EEEEE          DDDD          EEEE           DDDDD5在窗体上画两个名称分别为Text1、mand1的命令按钮,然后编写如下事件过程: mand1_Click()   DimxAsInteger,nAsInteger   x=1   n=0   DoWhilex<20      x=x*3      n=n+1   Loop   =Str(x)   =Str(n) EndSub程序运行后,单击命令按钮,在两个文本框中显示的值分别是A)15和1        B)27和3