单选题为了清除列表框中的所有内容,应使用的方法是: ______。
单选题设有以下循环结构
Do
循环体
Loop While <条件>
则以下叙述中错误的是( )
单选题执行下面的程序段后,变量c的值为_______。 a=29
b=33 Select Case b/10
Case 0 c=a*10+b Case 1 To
9 c=a*100+b Case 10 To
99 c=a*1000+b End
Select Print c
A.29
B.2933
C.33
D.3329
单选题数据表文件CJ.DBF已经打开,共有10条记录,按关键字XM排序,执行命令SORT ON XM TO CJ后,屏幕将显示( )
单选题在程序代码中,将图片文件“abc.jpg”装入图片框Picture1的语句是__________。
单选题为了对多个控件执行操作,必须选择这些控件。下列不能选择多个控件的操作是
单选题编写如下事件过程: Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) If(Button And 3)=3 Then Print "AAAA" End If End Sub 程序运行后,为了在窗体上输出“AAAA”,应按下的鼠标键为 ______。 A) 左 B) 右 C) 同时按下左、右 D) 按什么键都不显示
单选题满足“当x的值是偶数时为真,奇数时为假”要求的表达式是( )。 A) x Mod 2=0 B) Not x Mod<>0 C) (x/2*2-x)=0 D) Not (x Mod 2)
单选题单击命令按钮之后,下列程序代码的执行结果为______。 Private Function P(N As Integer) Static sum For I=I To N Sum = sum +1 Next I P =sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S: End Sub
单选题以下关于命令按钮的叙述中正确的是
单选题编写如下程序: Private Sub Commandl_Click() Dim mAs Integer,nAs Integer m=2:n=1 Select Case m Case 1 Select Case n Case1 Print”AAA” Case 2 Prinnt”BBB” Case 2 Print”CCC” End SelectEnd Sub 程序运行后,单击命令按钮Command1,输出结果为
单选题下列程序的输出结果为( )。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step2 a(j)=j Next i Print a(1)+a(2)+a(3) End Sub
单选题
单选题下列有关文件的叙述中,正确的是
单选题列表框中被选中的数据项的位置可以通过一个属性获得,这个属性是
单选题设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Commanl的命令按钮。Forml的代码如下: Form2的代码如下: Public x As Integer Private Sub Commandl_Click()Private Sub Form_Load() Print Form1.x,y x=1:y=5 End SubEnd Sub Modulel的代码如下:Private Sub Commandl_Click() Public y As Integer Form2.Show End Sub运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Commandl,则窗体上显示的是
单选题在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是( )。
单选题在窗体上画两个名称分别为Text1、Text2的文本框,Text1的Text属性为“DataBase”,如下图所示。现有如下事件过程:PrivateSubText1_Change()Text2.Text=Mid(Text1,1,5)EndSub运行程序,在文本框Text1中原有字符之前输入a,Text2中显示的是______。
单选题窗体上有一个名称为Combo1的组合框,要求在其编辑区输入文本并按回车键后,编辑区中的文本被添加到列表中。下面能实现这一功能的是( )。 A) Private Sub Combo1_KeyDown( KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Combo1. AddItem Combo1. Text End If End Sub B) Private Sub Combo1_KeyDown( KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Combo1. Addhem Text1. Text End If End Sub C) Private Sub Combo1_Click( ) Combo1. AddItem Combo1. Text End Sub D) Private Sub Combo1_Click( ) Combo1. AddItem Text1. Text End Sub
单选题以下关于控件数组的叙述中,正确的是( )。 A) 数组中各个控件具有相同的名称 B) 数组中可包含不同类型的控件 C) 数组中各个控件具有相同的Index属性值 D) 数组元素不同,可以响应的事件也不同
