在窗体上添加一个命令按钮,名为command1,事件过程为:
Private Sub command1_Click( )
x=0
Do Until c=-1
a= val(InputBox(“输入a的值”))
b= val(InputBox(“输入b的值”))
c= val(InputBox(“输入c的值”))
Loop
Print a
End Sub
程序运行后,单击命令按钮,依次在输入对话框中输入5,4,3,2,1,-1后,输出的结果是 ( )
在窗体上添加一个命令按钮,名为command1,事件过程为:
Private Sub command1_Click( )
x=0
Do Until c=-1
a= val(InputBox(“输入a的值”))
b= val(InputBox(“输入b的值”))
c= val(InputBox(“输入c的值”))
Loop
Print a
End Sub
程序运行后,单击命令按钮,依次在输入对话框中输入5,4,3,2,1,-1后,输出的结果是 ( )
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click( )
Dim s As Integer
Dim aa(3, 2) As Integer
For i = 1 To 3
For j = 1 To 2
aa(i, j) = i + j
Next j
Next i
s = aa(1, 2) + aa(2, 1)
Print s
End Sub
程序运行后,单击命令按钮,窗体上显示的值是( )
能够改变标签(Label)控件显示标题的属性是( )
无论何种控件,共同具有的属性是( )
在窗体中先建立一个名称为label1的控件数组(它的index属性为0),当执行以下程序段
:
PrivateSubForm_Load()
DimmtopAsInteger,mleftAsInteger,iAsInteger,jAsInteger
mtop=0
Fori=1To8
mleft=50
Forj=1To8
k=(i-1)*8+j
LoadLabel1(k)
Label1(k).BackColor=IIf((i+j)Mod2=0,QBColor(0),QBColor(15))
Label1(k).Visible=True
Label1(k).Top=mtop
Label1(k).Left=mleft
mleft=mleft+Label1(0).Width
Nextj
mtop=mtop+Label1(0).Height
Nexti
EndSub
执行后的效果是( )
把字符串函数:string(3,"abc")的结果为( )
设置标签对象的边框类型的属性是( )
文件可从多角度加以分类,根据文件的访问方式可以分为顺序文件、随机文件和( )
若要再窗体代码编辑器的"通用声明"部分定义窗体模块级Sub过程,则正确的语句是( )
在过程中,我们把定义过程中的参数称为( )
Line(100,100)-(400,400)将在窗体中的( )画一条直线