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的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x = 0 n = InputBox("") For i = 1 To n For j = 1 To i x = x + 1 Next j Next i Print x End Sub 程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是 A、3 B、4 C、5 D、6
Private Sub Command1_Click() x = 0 For k = 3 To 5 GoSub ab s = s + x Next k Print s Exit Sub ab: x = x + 2 Return End Sub
运行后单击COMMAND1按钮,输出的结果是____。 A、3 B、12 C、6 D、9
A B C D
29.下面程序段的执行结果为____。 I=4 A=5 Do I=I+1 A=A+3 Loop Until I>=9 Print"I=";I Print"A=";A A、I=9 A=20 B、I=10 A=20 C、I=10 A=23 D、I=9 A=23
A B C D
30.单击窗体时,下列程序代码的执行结果为____。 Private Sub Value(ByVal m As Integer, ByVal n As Integer) m = m - n: n = n + 3 Print m; n End Sub Private Sub Form_click() Dim x As Integer, Y As Integer x = 5: Y = 6 Call Value(x, Y) Print x; Y End Sub A、-1 9 -1 9 B、5 6 5 6 C、-1 9 5 6 D、9 -1 5 6
31.在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox("请输入a的值") a=Val(a) b=InputBox("请输入b的值") b=Val(b) x=InputBox("请输入x的值") x=Val(x) a=a+b+x LOOP Print a End Sub 程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,输出结果为____。 A、2 B、3 C、14 D、15
A B C D
32.假定编写如下事件过程: Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single,Y As Sin-gle) If(Button And 2)=2 Then Print"Hi" End If End Sub 程序运行后,为了在窗体上输出“Hi”,应在窗体上执行以下____操作。 A、只能按下左按钮并拖动 B、只能按下右按钮并拖动 C、必须同时按下左、右按钮并拖动 D、按下左按钮拖动或按下右按钮拖动都可
A B C D
33.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a<=0 Print s;a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 A、7 9 B、34 0 C、9 7 D、死循环
A B C D
34.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是 A、2 B、3 C、4 D、5
A B C D
35.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim Array1(10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 Array1(i,j)=i+j Next j Next i Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是 A、12 B、13 C、14 D、15
12.以下程序段产生100个1~4之间的随机整数,并进行统计。数组元素S(i)(i=1,2,3,4)的值表示等于i的随机数的个数,要求输出如下格式: S(1)=. . . S(2)=. . . S(3)=. . . S(4)=. . . 将程序补充完整。 Dim S(4) As Integer Randomize For I=1 To 100 X=Int(Rnd * 4+1) S(X)=S(X)+1 Next I For I=1 To 4 ____ Next I
输入答案,中间不含空格:
13.设工程中有两个窗体Form1、Form2,一个标准模块Module1,设在Form2的代码中定义了以下过程: Sub aaa(x,y,z) z=x^2+y^2 End Sub 在Mobule1中定义了以下过程: Sub bbb(x,y,z) z=x^3+y^3 End Sub 在Form1中单击命令按钮Commandl时,调用以上过程计算两个数的平方和与立方和。并分别将结果显示在文本框Text3和Text4中,请在以下程序段中写出相应的调用语句。 Private Sub Commandl_Click( ) a=val(Text1.Text) b=val(Text2.Text) Call ____ Text3.Text=cl ____ Text4.Text=c2 End Sub
输入答案,中间不含空格:
14.上一题
输入答案,中间不含空格:
15.打开顺序文件StuData.txt,读取文件中的数据,并将数据显示在窗体上。 Private Sub Form_Click( ) Open"C:StuData.txt"For Input As #1 Do While While Not EOF(1) ____,StuNo,StuName,StuEng Loop Close #1 End Sub