单选题窗体上有1个名称为Listl的列表框,1个名称为Textl的文本框。编写如下程序代码: Private Sub Form—Load() Listl.AddItem“花卉” Listl.Addhem“绿植” Listl.Addhem“盆景” Textl.Text=“” End Sub Private Sub Listl—DblClick() Print Listl+Textl.Text End Sub程序运行时,在文本框中输入“摆放”,然后双击列表框中的“绿植”,输出结果为( )。
单选题设在窗体上有一个名称为Command1的命令按钮,并有以下事件过程: Private Sub Command1_Click( ) Static b As Variant b=Array(1,3,5,7,9) …… End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9,7,5,3,1)。为实现此功能,省略号处的程序段应该是
单选题用户设计菜单系统时,系统默认菜单系统位置( )
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command 1_
Click() Static y As Integer CIs
For i=0 To 2 x=x +y
y=y +3 Next Print x, yEnd
Sub程序运行后,连续二次单击Command1按钮后,窗体上显示的是______。
A. 9 9
B. 36 18
C. 30 12
D. 63 27
单选题已知通用对话框名为Cd1g,则执行下列的( )语句,将弹出“打开文件”对话框。
单选题某人创建了1个工程,其中的窗体名称为Form1;之后有添加了1个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是
单选题在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a(4,4) For i=1 To 4 For i=1 To 4 a(i,j)=(i-1)*3 + i Next j Next i For i=3 To 4 For j=3 To 4 Print a(j,i); Next j Next i End Sub 程序运行后,单击命令按钮,在窗体上显示的内容为
单选题设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为( )。
单选题要求如果x被7除余2,则输出x的值,下列语句中不能实现此功能的语句是( )。 A) If x mod 7 = 2 Then Print x B) If x - (x/7) * 7 = 2 Then Print x C) If x - (x/7) * 7 = 2 Then Print x D) If x - Int(x/7) * 7 = 2 Then Print x
单选题如果x是一个正的实数,将千分位四舍五入,保留两位小数的表达式是( )。
单选题执行下列程序段后,输出的结果是 For k1=0 TO 4 y=20 For k2=0 TO 3 y=10 For k3=0 TO 2 y=y+10 Next k3 Next k2 Next k1 Print y
单选题数据处理的最小单位是
单选题有人编写了如下程序:
Private Sub Form_Click()
Dim S As Integer, x As integer
s=0
x=0
Do While s=10000
x=x+1
s=s+x2
Loop
Print s
End Sub
上述程序的功能是:计算s=1+2
2
+3
2
+…+n
2
+…,直到s>10000为止。程序运行后,发现得不剑正确的结果,必须进行修改。下列修改中正确的是______。
单选题为了使标签控件在显示其内容时不覆盖其背景内容,需进行设置的属性为
单选题在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程: Dim Str1 As String,str2 As String Private Sub form_load() Text1.Text="" Text2.Text="" Text1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_KeyPress(KeyAscii As Integer) str1=str1 & Chr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) str2=str2 & Chr(KeyCode) End Sub Private SubCommand1_Click() Text1.Text=str1 Text2.Text=str2 str1="" str2="" End Sub 当在设计阶段的窗体的KeyPreview属性设置为True时,程序运行过程中,在键盘上输入小写字母abc,然后单击命令按钮,则文本框Text1中显示的内容为
单选题设有如下声明: Dim x As Integer 如果Sgn(x)的值为-1,则表示x的值是
单选题编写如下事件过程:
Private Sub Form_ MouseDown (Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Shift = 6 And Button = 2 Then
Print "BBBB"
End If
End Sub
程序运行后,为了在窗体上输出BBBB,应执行的操作为______ 。
单选题下列叙述中正确的是( )。
单选题在下面语句或函数中,不能描述选择结构的是( )。
单选题设工程中有Form1、Form2两个窗体,要求单击Form2上的Command1命令按钮,Form2就可以从屏幕上消失,下面的事件过程不能实现此功能的是______A.B.C.D.