Privatesubform_load()
form1.autoredraw=true
x=3:y=5
Printx;y
endsub
A.TrueTrue
B.35
C.窗体无显示
D.x=3y=5
[单选题]运行下列程序,单击窗体后输出的结果是( )。Private Sub Form_Click()D.im aD.im s As Integer, i As Integera = Array(1, 2, 3, 4, 5, 6)s = 1F.or i = 5 To 1 Step -2s = s * a(i)Next iPrint sE.nd SubA. 15B. 48C. 120D. 720
[单选题]下面程序运行后输出结果是()A . CABB . BCAC . BCBD . CBC
[单选题]以下程序运行后输出的结果是______。 Private Sub Form. _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End SubA.10B.15C.80D.100
[单选题]以下程序运行后的输出结果是______。 Private Sub Form_ Click() y=1 :x=2 Print Iif(x>=y,x,y) End SubA.0B.1C.2D.3
[判断题] Visual Basic程序的运行,仅能从某一窗体启动,如Form1窗体。A . 正确B . 错误
[单选题]下面( )语句执行后,窗体Form1从内存退出。A.UnloadFormlB.LoadFormlC.Form1.HideD.Form1.Visiab
[单选题]程序运行后,单击窗体,屏幕显示的结果是( )。 Private Sub Form_Click() num1="乙" num2=76 Select Case numl Case"甲" If num2>=80 Then Print"德艺优秀" Else If num2>=60 Then Print"德优秀,艺普通" End If Case"乙" If num2>=80 Then Print"德艺双佳" ElselfnumA.德艺双佳B.德艺普通C.德优秀,艺普通D.德艺
[单选题]执行下面这段程序后,单击命令按钮,窗体中输出结果是 ______。 Private Sub Command1_Click() a=1 : b=4 : c = 9 : d = 5 If a < b Then If c<d Then x=True Else If a<c Then x=False Else x=True End If End If End If Print Val(x) End SubA.TrueB.FalseC.0D.1
[单选题]下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 <> 0 then a =a+j/3 Next j Print aEnd SubA.20B.10C.3D.9
[单选题]下面程序运行后的结果是( )。 Private Sub Form_Click() Dim s As Integer,k As Integer,i As Integer,n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End SubA.6B.72C.144D.432