单项选择题
在窗体上画一个命令按钮,然后编写如下程序:
Sub S1(ByVal x As Integer, By Val y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Private Sub Command1_ Click()
Dim a As Integer, b As Integer
a=10
b=30
S1 a,b
Print "a=";a="b=";b
End Sub
程序运行后,单击命令按钮,输出结果是______。
A.a=30 b=10
B.a=30 b=30
C.a=10 b=30
D.a=10 b=10
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:Private Sub Command1_Click() Dim a(5,5)As Integer Dim i As Integer, j As Integer For i= 1 To 3 For j= 1 To 3 a(i,j)=(i-1)*3+j Print a (i,j) Next j Print Next iEnd Sub 程序运行后,单击命令按钮,在窗体上的输出结果是______。
A.1 4 7
2 5 8
3 6 9
B.1 2 3
4 5 6
7 8 9
C.1 2 3 4 5 6 7 8 9
D.没有输出
点击查看答案&解析
单项选择题
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:Private Sub func(L As Label,ByVal a As Integer) L.Caption= 1234 a=a*aEnd SubPrivate Sub Form_ Load() Label1.Caption= ABCD Label2.Caption=10End SubPrivate Sub Command1_Click() a=Val(Label2.Caption) Call func (Label1,
A.
Label2.Caption=a
End Sub
程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是______。A) ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
点击查看答案&解析
相关试题
能够获得一个文本框中被选取文本的内容的属...
设置复选框中或单选按钮的标题对齐方式的属...
算法分析的目的是 ______。
在设计应甩程序时,通过______窗口可...
为了清除列表框中的所有内容,应使用的方法...