单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim array1(10,10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=2 T0 4 Array1(i,j)=i+j Next j Next i Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是
单选题设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为( ) A.课号,成绩 B.学号,成绩 C.学号,课号 D.学号,姓名,成绩
单选题设窗体上有名称为Option1的单选按钮,且程序中有语句: If Option1.Value=True
Then 下面语句中与该语句不等价的是______。
A.If Option1.Value Then
B.If Option1=True Then
C.If Value=True Then
D.If Option1 Then
单选题窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:
Private Sub Command1_Click( )
Dim a,b(2,3) As Integer
a=Array(3,7,5,11,31,43,17,62,9,23,37,41)
i=0
Do While i<=UBound(a)
For j=0 To 2
For k=0 To 3
B(j,k)=a(i)
i=i+1
Next
Next
Loop
Pritn b(2,2)
End Sub
运行程序,窗体上显示的是
单选题在窗体上建立一个标签数组,名称为Label1,下标从0开始,自左至右顺序增大,然后编写如下事件过程:
Private Sub Form_Click( )
For Each Label In Label1
Label1(i). Caption = Label1(i). Index
i = i + 1
Next
End Sub
运行程序,单击窗体,在4个标签(从左至右)中显示的内容分别为______。
单选题语句Dim Arr(-2To4)As Integer所定义的数组的元素个数为______。
A.7个
B.6个
C.5个
D.4个
单选题下列选项中,不属于数据管理员(DBA)职责的是
单选题假定有以下程序段: For i=1 To 4 For j=5 To 1 Step-1 Print i*j Next j Next i 则语句printi叫的执行次数是
单选题假定在图片框控件Picturel中装入了一个图形,为了在程序运行时清除该图形,则应使用______。
单选题下列叙述中正确的是( )。
单选题假定有以下程序段:
For i=1 To 3
For j=5 To 1 Step-1
Print i*j
Next j
Next i
则语句Print i*j的执行次数是______。
单选题窗体上有2个名称分别为Text1、Text2的文本框,1个名称为Command1的命令按钮。编写如下程序代码: Private Sub Form_Load() Text1.Text="" Text2.Text="" End Sub Private Sub Command1_Click() x=Val(Text1.Text+Text2.Text) Print x End Sub 程序运行时,在文本框Text1中输入“234”,在文本框Text2中输入“432”,然后单击Command1,输出结果为( )。
单选题设有窗体的Form MouseMove事件过程如下: Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) If(ButtonAnd 3)=3 Then Print"检查按键" End If End Sub 关于上述过程,以下叙述中正确的是
单选题窗体上有一个名称为Commandl的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub Commandl—Click() Dim a(10)As Integer Dim X As Integer For i=1 To 10 a(i)=Int(Rnd*100) Next x=InputBox(“输入100以内的整数:”)P=0For i=1 To 10 If a(i)=x Then P=i Exit For End IfNextIf P=0 Then Print”没有找到与输入数据相同的数!”Else Print Str(x)+”在数组中的位置是”+Str(p)End If End Sub对于上述事件过程,以下叙述中正确的是( )。
单选题如果要将窗体中的某个命令按钮设置成不可见状态,应该设置命令按钮的{{U}} {{/U}}属性。
A. Value
B. Visible
C. Enabled
D.Default
单选题下列程序的执行结果是( )。 Private Sub Form_Activate() Dim score(3)As Integer,total As Integer Dim aa_score As Variant score(1)=50:score(2)=14:score(3)=36 total=0:i=0 For Each aa_score In score i=i+1 total=total+aa_score Print i,aa_score,total Next End Sub
单选题下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整( )。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Dim i As Integer Dim Ksc As Ang Open______ Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) Next i Close #2 End Sub
单选题如果要定义一个窗体级变量,定义变量语句的位置应该是
单选题对话框Filter属性为“Text(*.txt) | *.txt | Pictures(*.bmp,*ico) | *.bmp;*ico”,若在使用ShowOpen方法时默认过滤器为*.bmp;*.ico,需将对话框的FilterIndex属性设置为____。
单选题以下程序的输出结果是 ______。 x=2^-2 Print x End