单选题Print方法可在__________上输出数据。
①窗体 ②文本框 ③图片框 ④标签
⑤列表框 ⑥立即窗口
单选题下列每组控件中,都包含有滚动条的一组控件是{{U}} {{/U}}。
A. ListBox 和 Label
B. TextBox 和 DriveListBox
C. ComboBox 和 CheckBox
D. FileListBox 和 DirListBox
单选题用标准工具栏中的工具按钮不能执行的操作是( )。
单选题在窗体上画一个名称为Listl的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) x = 5: y = 2 Call sub1((x), y) Print x; y End Sub Private Sub sub1(m, n) t = m : m = n : n = t End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是________。
单选题设有以下循环结构; Do 循环体 Loop While<杂件> 则以下叙述中错误的是______。
单选题设有3个关系表,如下:下列操作中正确的是
单选题将E-R图转换到关系模式时,实体与联系都可以表示成( )。
单选题在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Form_Load() show Text1.Text="" Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(keyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后,直接用键盘输入“VB”,再单击命令按钮,则文本框中显示的内容为
单选题窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下:Private Sub Commandl_Click() Private Function p(x As Integer)As Boolean Dim i As Integer Ifx Mod 7<>0 Then For i=1 To 500 p=True Ifp(i)Then s=s+1 Else Next p=False Print s End IfEnd Sub End Function关于上述程序,以下叙述中正确的是
单选题窗体上有1个名称为Text1的文本框;1个名称为Thner1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下: Private Sub Timer1_Timer() Static flag As Integer If flag=0 Then flag=1 flag=-flag If flag=1 Then Text1.ForeColor=&HFF& '&HFF&为红色 Else Text1.ForeColor=&HC000$ '&HC000&为绿色 End If End Sub 以下叙述中正确的是( )。
单选题设有如下数组定义语句:
Dim a(-1 To 4,3)As Integer
以下叙述中正确的是______。
单选题假定通用对话框的名称为CommonDialog1,命令按钮的名称为Command1,则单击命 令按钮后,能使打开的对话框的标题为“New Title”的事件过程是______。
单选题以下可以作为Visual Basic变量名的是
A.A#A
B.counstA
C.3A
D.? AA
单选题窗体上有名称分别为Text1、Text2的2个文本框,要求文卒框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号(?)处应填入的内容是______。 Private Sub Text1 LostFocus() Call CheckInput(Text1,500) End Sub Private Sub Text2 LostFocus() Call CheCkInput(Text2,1000) End Sub Sub CheckInput(t AS ?,x As Integer) If Val(t.Text)>X Then MsgBox "请重新输入!" End If End Sub
单选题在窗体上画1个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
Dima(3,3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Print a(m,n);
Next n
Print
Next m
End Sub
运行程序,单击命令按钮,窗体上显示的内容为
A) 2 0 0 B) 2 0 4 C) 2 3 0 D) 2 0 0
0 4 0 0 4 0 3 4 0 0 4 5
0 0 6 4 0 6 0 0 6 0 5 6
单选题以下用户自定义函数
Function Func(a As Integer,b As Integer) As Integer
Static m As Integer,i As Integer
m=0:i=2
i=i+m+i
m=i+a+b
Func=m
End Function
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim k As Integer,m As Integer,p As Integer
k=4:m=1
P=Func(k,m)
Print p
End Sub
程序运行后,单击命令按钮,输出结果为
单选题设有如下程序: Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后,单击窗体,则在窗体上显示的是( )。
单选题使用菜单编辑器设计菜单时,必须输入的项是( )。
单选题窗体上有一个如右图所示的图形控件,控件中显示了如图所示的文字,可以判断这个图形控件______。A.是图像框(Image)B.是图片框(PictureBox)C.是形状控件D.不是上述3种控件中的一种
