9.按条件f对关系R进行选择,其关系代数表达式是 A、R|×|R B、R|×|R f C、σf(R) D、πf(R)
A B C D
10.假定在窗体(名称为Form1)的代码窗口中定义如下记录类型: Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim rec As animal Open "c:\vbTest.dat" For Random As #1 Len=len(rec) rec.animalName="Cat" rec.aColor="White" Put #1,,rec Close #1 End Sub 则以下叙述中正确的是 A、记录类型animal不能在Form1中定义,必须在标准模块中定义 B、如果文件c:\vbTest.dat不存在,则Open命令执行失败 C、由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾 D、语句“Put #1,,rec”将animal类型的两个数据元素写到文件中
27.单击窗体时,下列程序代码的执行结果为____。 Private Sub Form_Click( ) Text 2 End Sub Private Sub Text(x As Integer) x=x*2+1 Ifx<6 Then Call Text(x) End If x=x*2+1 Print x; End Sub A、23 47 B、5 11 C、10 22 D、23 23
A B C D
28.单击命令按钮Command1时利用矩形法求(1+ex(注:x是e的上标))的定积分,区间为[0,1]。从题后供选择的答案中选出正确答案,填入以下程序中相应处,构成完整程序。 Private Sub Commandl_Click( ) A=0 B=1 N=1000 X=A:H=(B-A)/N F0=____ S=0 For I=1 To N S1=F0*H S=S+S1 X=S+H F0=1+Exp(X) Next I Print S End Sub A、0 B、1+Exp(H) C、1+Exp(X) D、H
A B C D
29.单击窗体时,下列程序代码的执行结果为____。 Private Sub Value(ByVal m As Integer, ByVal n As Integer) m = m * 2: n = n - 5 Print m; n End Sub Private Sub Form_Click() Dim x As Integer, Y As Integer x = 10: Y = 15 Call Value(x, Y) Print x; Y End Sub A、20 10 10 15 B、10 15 20 10 C、20 15 10 15 D、20 10 20 10
31.执行以下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、bdf C、ace D、无法输出结果
A B C D
32.下列程序段的执行结果为____。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N); Next N Print Next M A、1 0 0 0 1 0 0 0 1 B、1 1 1 1 1 1 1 1 1 C、0 0 0 0 0 0 0 0 0 D、1 0 1 0 1 0 1 0 1
A B C D
33.假定有以下函数过程: Function Fun(S As String)As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S,i,1))+s1 Next i Fun = s1 End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1 = InputBox("请输入一个字符串") Str2 = Fun(Str1) Print Str2 End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcdefg",则单击“确定”按钮后在窗体上的输出结果为 A、abcdefg B、ABCDEFG C、gfedcba D、GFEDCBA
A B C D
34.新建窗体上新建立一个命令按钮,其中有如下事件代码:
Private Sub Command1_Click() I = 0 For G = 10 To 19 Step 3 I = I + 1 Next G Print I End Sub
11.以下程序实现字符串在窗体的中间显示,试将程序填写完整。 Private Sub Form_Click() FontSize=16 Sample$="居中显示" x=(ScaleWidth-TextWidth(Sample$))/2 ____ ____ CurrentY=y Print Sample$ End Sub
输入答案,中间不含空格:
12.上一题
输入答案,中间不含空格:
13.把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入另一个磁盘文件,请填空完成程序。 在窗体上建立一个文本框,在属性窗口中把该文本框的Multiline属性设置为True,然后编写如下事件过程: Private Sub Form_Click( ) Open "d:\test\smtext1.txt" For Input As #1 Text1.Fontsize=14 Text1.FontName="幼圆" Do While Not EOF(1) ____ whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=____ Close Open "d:\test\smtex2.txt"For Output As #1 Print #1, ____ Close End Sub