11.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X Print X,Y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为 A、15 16 B、15 6 C、15 15 D、5 6
A B C D
12.以下Case语句中错误的是 A、Case 0 To 10 B、Case Is>10 C、Case Is>10 And Is<50 D、Case 3,5,Is>10
26.在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为Math。设窗体Form1标题为“myfrm1”，双击控件数组中的第三个按钮，打开代码编辑器，写下如下代码： Private Sub Math_Click(Index As Integer) Form1.Caption="myfrm2" End Sub 程序运行时，单击按钮数组中的第一个按钮，窗体标题为____。 A、Form1 B、Math C、myfrm2 D、myfrm1
A B C D
27.执行语句Open"C:StuData.dat"For Input As #2后，系统____。 A、将C盘当前文件夹下名为StuData.dat的文件的内容读入内存? B、在C盘当前文件夹下建立名为StuData.dat的顺序文件 C、将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中? D、将某个磁盘文件的内容写人C盘当前文件夹下名为StuData.dat的文件中?
A B C D
28.下面是窗体Form1的Click事件过程，实现运行时每次单击窗体时，窗体向右移动100。 Private Sub____() Static intleft As Integer inleft=inleft+100 Form1.Left=intleft End Sub A、Form_Click B、Form1_Click C、Command_Click D、Command1_Click
A B C D
29.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() M1=1 M2=2 Do While M2<>5 M1=M1*M2 M2=M2+1 Loop Print "M1=";M1,"M2=";M2 End Sub 程序运行后，如果单击命令按钮，输出结果是 A、M1= 24 M2= 5 B、M1= 1 M2= 2 C、M1= 24 M2= 5 D、M1= 1 M2= 2
A B C D
30.在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$ = "software and hardware" b$ = Right(a$,8) c$ = Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 则弹出的信息框的标题栏中显示的信息是 A、software and hardware B、software C、hardware D、1
A B C D
31.在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Lord() Show Text1.Text="" Text1.SetFocus End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print"程序设计" End Sub
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print"Visual Basic" End Sub 程序运行后，结果按“A”键，然后单击窗体，则在窗体上显示的内容是 A、Visual Basic B、程序设计 C、A程序设计 D、Visual Basic 程序设计
A B C D
32.编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下（即不按住Shift键和锁定大写键时），运行程序，如果按“Z”键，则程序输出的是_____。 A、Z z B、z Z C、Z Z D、Z Z
A B C D
33.以下程序段实现的功能是_____。 Option Explicit Sub appeS_file1() Dim StringA As String, X As Single StringA="Appends a new number:" X=－85 Open "d:\S_file1.dat" For Append As #1 Print #1, StringA; X Close End Sub A、建立文件并输入字段 B、打开文件并输出数据 C、打开顺序文件并追加记录 D、打开随机文件并写入记录
A B C D
34.在窗体上画一个文本框（其Name属性为Texe1），然后编写如下事件过程： Private Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是____。 A、在文本框Text1中输出55 B、在文本框Text1中输出0 C、出错 D、在文本框Text1中输出不定值
A B C D
35.窗体中代码如下： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim A(5) For i = 1 To 5 A(i) = i * i Next i Print A(i - 1) End Sub
9.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(“请输入一个整数”） b=InputBox(“请输入一个整数”） print a+b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为____。
输入答案，中间不含空格:
10.在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num As Long) As Long Dim k As Long K=1 Num=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数") n=CLng(n) r=fun(n) Print r End sub 程序运行后，单击命令按钮，在输入对话框中输入234，输出结果是____。
11.已知e的计算公式为： e=1+1/1!+1/2!+…+1/n! 以下程序计算自然数e的值，要求精确到10-14（注：-14为10的上标），请填空完成程序。 ____ N=0:TERM=1:T=1 DO ____ T=T/N:TERM=TERM+T LOOP WHILE T>TERM AS DOUBLE ID PRINT TERM END
输入答案，中间不含空格:
12.上一题 第 2 空
输入答案，中间不含空格:
13.从一个二维数组中，找出最大的元素及其所在的行和列。 CLS OPTION BASE 1 DIM A(3,5) PRINT"A矩阵:" M=____ N=5 FOR I=1 TO M FOR J=1 TO N READ A(I,J) NEXT J PRINT NEXT I ROW=0 COL=0 MAX=1E-30 FOR I=1 TO M FOR J=1 TO N IF____THEN MAX=A(I,J) ROW=I COL=J END IF NEXT J ____ PRINT"最大数="；MAX，"最大数所在的行和列="；ROW，COL DATA 1,2,3,4,5,6,7,8,15,9,10,11,12,13,14 END
