10.设关系R、S和T分别为下图所示,则有 ( R ) ( S ) A B C B E a1 b1 5 b1 3 a1 b2 6 b2 7 a2 b3 8 b3 10 a2 b4 12 b3 2 b5 2 ( T ) A R.B C S.B E a1 b1 5 b2 7 a1 b1 5 b3 10 a1 b2 6 b2 7 a1 b2 6 b3 10 a2 b3 8 b3 10 A、T = R 连接 S (CB、T = R 连接 S (R.B = S.B) C、T = R 连接 S D、T = R × S
11.执行以下Command1的Click事件过程在窗体上显示____。 Option Base 0 Private Sub Command1_Click( ) Dim a a=Array("a","b","c","d","e","f","g") Print a(1);a(3);a(5) End Sub A、abc B、ace C、bdf D、出错
17.如果A为整数,且|A|>=100,则打印“OK”,否则打印“Error”,表示这个条件语句的单行语句是____。 A、If Int(A)=A And Sqr(A)>=100 Then Print "Ok" Else Print "Error" B、If Int(A)=A And (A>=100,A<=-100) Then Print "Ok" Else Print "Error" C、If Fix(A)=A And ABS(A)>=100 Then Print "Ok" Else Print "Error" D、If Fix(A)=A And A>=100 And A<=-100 Then Print "Ok" Else Print "Error"
27.执行语句Open"Tel.dat"For Random As #1 Len=50后,对文件Tel.dat中的数据能够执行的操作是 A、只能写,不能读 B、只能读,不能写 C、既可以读,也可以写 D、不能读,有能写
A B C D
28.设有如下通用过程: Public Sub Fun(a(),ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程: Private Sub Command1_Click() Dim arr(5) As Variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr(),n) Text1.Text=n End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是 A、10 B、15 C、25 D、24
A B C D
29.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click() a = "ABBACKDIEKEI" For I = 9 To 2 Step -3 x = Mid(a, I, I) y = Left(a, I) z = Right(a, I) z = x & y & z Next I Print z End Sub
30.单击窗体时,下列程序代码的执行结果为_____。 Private Sub Form_Click() Test 2 End Sub Private Sub Test(x As Integer) x=x*2+1 If x<6 Then Call Test(x) End If x=x*2+1 Print x; End Sub A、5 11 B、23 47 C、10 22 D、23 23
32.在运行阶段,要在文本框Textl获得焦点时选中文本框中所有内容,对应的事件过程是____。 A、Private Sub Textl_GotFocus() Textl.SelStart=0 Textl.SelLength=Len(Text1.text) End Sub B、A.Private Sub Textl_LostFocus() Textl.SelStart=0 Textl.SelLength=Len(Tex1.text) End Sub C、Private Sub Textl_Change() Textl.SelStart=0 Textl.SelLength=Len(Text1.text) End Sub D、Private Sub Textl_SetFocus() Textl.SelStart=0 Textl.SelLength=Len(Text1.text) End Sub
A B C D
33.在窗体上画一个命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To j Step-1 s=s+a(i)*j Next i print s End Sub 运行上面的程序,单击命令按钮,其输出结果是____。 A、4321 B、10 C、34 D、1234
A B C D
34.在窗体上有一个命令按钮,并有如下代码,程序执行后,单击命令按钮输出结果为____。
Private Sub Command1_Click() K=0 For J=1 To 2 For I=1 To 3 K=I+1 Next I For I=1 To 7 K=K+1 Next I Next J Print K End Sub A、10 B、6 C、11 D、16
A B C D
35.在窗体上画一个名称为Command1命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j) Next Print Next i End Sub 程序运行后,单击命令按钮,窗体上显示的是 A、1 2 3 2 4 6 3 6 9 B、2 3 4 3 4 5 4 5 6 C、1 4 7 2 5 8 3 6 9 D、1 2 3 4 5 6 7 8 9
11.在C盘当前文件夹下建立一个名为Data.txt的顺序文件。要求用文本框输入若干英文单词,每次按下回车键时写入一条记录,并清除文本框中的内容,直至文本框中输入“END”时为止。试填充空白。 Private Sub Form_Load() Open "C:\Data.txt" For Output As 3 Text1.Text = "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If ____= "END" Then Close #3 End ElseIf KeyAscii = 13 Then Write #3, ____ Text1.Text = "" End If End Sub
输入答案,中间不含空格:
12.上一题 第 2 空
输入答案,中间不含空格:
13.假定已将文本框的MultiLine属性设置为True,则按____组合键可以插入一个空行。
输入答案,中间不含空格:
14.执行下面的程序段得到x值为____,y值为____。 Private Sub Command1_Click() For i=1 To 8 a=a+i Next i x=Val(i) y=Val(a) MsgBox x MsgBox y End Sub