单项选择题
下列程序的执行结果为
Private Sub Command1_Click()
Dim x As Integer,Y As Integer
x=12:y=20
Call Value(x,y)
Print x;y
End Sub
Private Sub Value(ByVal m As Integer,ByVal n As Integer)
m=m*2:n=n-5
Print m;n
End Sub
A.20 12
B.12 20
C.24 15
D.24 12
20 1 12 25 12 20 12 15
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体上画一个命令按钮,然后编写下列程序 Private Sub Command3_Click() Tcl 2 Tcl 3 Tcl 4 End Sub Sub Tcl(a As Integer) Static x As Integer x=x+a Print x; End Sub 程序运行后,单击命令按钮,输出结果为
A.2 3 4
B.2 5 9
C.3 5 4
D.2 4 3
点击查看答案&解析
单项选择题
下列程序的功能是调用字体对话框来设置文本框字体,单击按钮弹出对话框后,按Cancel键退出对话框,则 Private Sub Command1_Click() CommonDialog1.CancelError=True CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth CommonDialog1.Action=4 CommonDialog1.ShowFont Text1.Font.Name=CommonDialog1.FontName Text1.Font.Size=CommonDialog1.FontSize Text1.Font.Bold=CommonDialog1.FontBold Text1.Font.Italic=CommonDialog1.FontItalic Text1.Font.Underline=CommonDialog1.FontUnderline Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.ForeColor=CommonDialog1.Color End Sub
A.Text1的字体不发生变化
B.Text1的字体发生变化
C.Text1的字体和颜色发生变化
D.程序出错!
点击查看答案&解析
相关试题
a(j) Mod 5=0
(99*Rnd)+1
504
504
Exit For