单选题在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写
如下程序代码:
Private X As Integer
Private Sub Command1_Click()
X=5: Y=3
Call proc(X, Y)
Label1. Caption=X
Label2. Caption=Y
End Sub
Private Sub proc(a As Integer, ByVal b As Integer)
X=a*a
Y=b+b
End Sub
程序运行后,单击命令按钮,则两个标签中显示的内容分别是______。
单选题在窗体上画一个命令按钮<其名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() For i=1 T04 If i=1 Thenx=i If i<=4 Then x=x+1 Print x Next i End Sub 程序运行后,单击命令按钮;其输出结果为 ______。
单选题设有如下关系表则下列操作中,正确的是______。A)T=RcisB)T=RUSC)T=RxSD)T=R/S
单选题单击命令按钮时,下列程序的执行结果是
Private Sub Commandl_Click()
Dim a As Integer,b As Integer,c As Integer
a=3:b=4:c=5
Print SecProc(c,b,a)
End Sub
Function FirProc(x As Integer,y As Integer,z As Integer)
FirProc=2*x+y+3*z
End Function
Function SecProc(x As Integer,y As Integer,z As Integer)
SecProc=FirProc(z,x,y) +x
End Function
单选题下列合法的变量名是( )。
单选题如果A为整数且|A|>=100,则打印“OK”,否则打印“Error”,表示这个条件的单行格式If语句是
单选题下列循环能正常结束的是______。
单选题要将单选按钮Opt1设为被选中,应设置的属性是
单选题假定已在窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先应该执行的操作是
单选题在窗体上画两个命令按钮,名称分别为Command1、Command2,并编写如下程序: Const n=5,m=4 Dim a(m,n) Private Sub Command1_Click() k=1 For i=1 To m Forj=1 To n a(i,j)=k k=k+l Next j Next i End Sub Private Sub Command2_Click() summ=0 For i=1 To m For j=1 To n If i=1 Or i=m Then summ=summ+a(i,j) Else If j=1 Or j=n Then summ=summ+a(i,j) End If End If Next j Next i Print summ End Sub 过程Command1_Click()的作用是在二维数组a中存放一个m行n列的矩阵;过程Command2_Click()的作用是______。 A) 计算矩阵外围一圈元素的累加和 B) 计算矩阵除外围一圈以外的所有元素的累加和 C) 计算矩阵第一列和最后一列元素的累加和 D) 计算矩阵第一行和最后一行元素的累加和
单选题若要清除列表框控件中的所有列表项,应该使用的方法是( )。
单选题下列关于属性设置的叙述错误的是( )。
单选题假设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是( )。
单选题下面有关标准模块的叙述中,错误的是______。 A) 标准模块的文件扩展名为.bas B) 标准模块不完全由代码组成,还可以有窗体 C) 标准模块中的全局变量可以被工程中的任何模块引用 D) 标准模块中的Private过程不能被工程中的其他模块调用
单选题编写了如下事件过程: Private Sub Form_KeyDown(KeyCode As Integer,Shift As lnteger) If(Button And 3)=3 Then Print“AAAA” End lf End Sub 程序运行后,为了窗体上输出“AAAA”,应按下的鼠标键是
单选题以下关于变量作用域的叙述中,错误的是
单选题在Visual Basic的工程资源管理器中,可以包含6种文件类型。下面的文件类型中不属于它的文件类型是______。
单选题如果在立即窗口中执行以下操作:______ 。 a=8
(是回车键,下同) b=9
print a>b 则输出结果是______ 。
A. -1
B. 0
C. False
D. True
单选题单击一次命令按钮之后,在对话框中输入12,2,34,23,窗体中的输出结果为______ 。 Private Sub Command1_ Click () Dim a(4) As Integer For i = 1 To 4 a (i) = Val (InputBox (“请输入元素”)) Next i plus a(1), a(2), a(3) End Sub Sub plus(first As Integer, second As Integer, third As Integer, Optional forth) n = first + second + third If Not IsMissing (forth) Then n = n + forth End If Print n End Sub
单选题单击命令按钮时,下列程序代码的执行结果为______。 PubUc Sub Procl(n As Integer,By Valm As InteSg) n=n Mpd 10 m=m/10 End Sub PHvate Sub Commandl Click() Dim X As Inte9er,y As Intger x=12:y=34 Call Procl(x,y) Print x;y End Sub
