27.如果在C盘当前文件夹下已存在名为StuData.dat的顺序文件,那么执行语句Open"StuData. dat" For Append As #1之后将____。 A、删除文件中原有内容 B、保留文件中原有内容,可在文件尾添加新内容 C、保留文件中原有内容,在文件头开始添加新内容? D、以上均不对
A B C D
28.设已经在菜单编辑器中设计了窗体的快捷菜单,其顶级菜单为a1,且取消其“可见”属性。运行时,以下____事件 过程可以使快捷菜单的菜单项响应鼠标左键单击和右键单击。 A、Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_ X As Single,Y As Single) If Button=2 Then PopupMenu al,2 End Sub B、Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_ X As Single,Y As Single) PopupMenu a1,0 End Sub C、Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_ X As Single,Y AS Single) PopupMenu al End Sub D、Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_ X As Single,Y As Single) If (Button=vbLeftButton)Or(Button=vbRightButton)Then PopupMenu al End Sub
A B C D
29.以下程序用于在带垂直滚动条的文本框Text1中输出2到100之间的全部素数。 Private Sub Command1_Click( ) Text1.Text="" For N=2 To 100 K=_____ I=2 Flag=0 Do While I<=K And Flag=0 If N Mod I=0 Then Flag=1 Else I=I+1 Loop If Flag=0 then Text1.Text=Text1.Text & Str(N) & Chr(13) & Chr(10) End If Next N End Sub A、Int(Sqr(N)) B、Sqr() C、Int(N) D、N
A B C D
30.设有如下通用过程: Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x;y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 A、10 5 B、20 5 C、20 40 D、10 40
31.设有两个窗体,第一个窗体中有两个命令按钮,第一个命令按钮用来控制显示第二个窗体,第二个命令按钮用来结束程序运行(两个按钮名称分别为Command1和Command2)。则以下选项中,对这两个命令按钮编写的事件过程正确的是_____。 A、Private Sub Command1_Click() Form2.Show End Sub Private Sub Command2_Click() End End Sub B、Private Sub Command1_Click() Show End Sub Private Sub Command2_Click() End End Sub C、Private Sub Command1_Click() Show End Sub Private Sub Command2_Click() End End Sub D、Private Sub Command1_Click() Show.Form2 End Sub Private Sub Command2_Click() End End Sub
A B C D
32.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程: Private Sub Command1_Click() n=Val(Text1.Text) If n\2=n/2 Then f=f1(n) Else f=f2(n) End If Print f;n End Sub
Public Function f1(ByRef x) x=x*x f1=x+x End Function
Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是 A、72 36 B、108 36 C、72 6 D、108 6
A B C D
33.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c=1234 c1=Trim(Str(c)) For i=1 To 4 Print ____ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: 1 12 123 1234 则在下划线处应填入的内容为 A、Right(c1,i) B、Left(c1,i) C、Mid(c1,i,1) D、Mid(c1,i,i)
A B C D
34.窗体中新建立一个命令按钮(COMMAND1),其事件代码如下:
Private Sub Command1_Click() Dim a(4) As Integer, b(4) As Integer For K = 0 To 2 a(K + 1) = Val(InputBox("请输入数据")) b(3 - K) = a(K + 1) Next K Print b(K) End Sub
窗体运行后,单击命令按钮,依次输入1、3、5,执行结果为___。 A、0 B、1 C、3 D、5
A B C D
35.在窗体上画一个命令按钮,名称为Command1。然后编写如下程序: Private Sub Command1_Click() for I=1 To 4 For J=0 To I Print Chr$(65+I); Next J Print Next I End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容为是 A、BB CCC DDDD EEEEE B、A BB CCC DDDD C、B CC DDD EEEE D、AA BBB CCCC DDDDD
7.执行以下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
11.有如下事件过程: Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ x As Single,y As Single) IF Button=2 Then PopupMenu popformat END IF END Sub 如果运行程序时,按下鼠标右键,程序则____。
输入答案,中间不含空格:
12.窗体上有一个命令按钮和一个文本框,命令按钮事件代码如下: Private Sub Command1_Click() X = 1 y = 1 Text1.Text = "" For I = 1 To 3 F = X + y X = y y = F Text1.Text = Text1.Text + Str(y) Next I End Sub
该程序运行后,文本框的内容是____。
输入答案,中间不含空格:
13.在窗体中添加两个命令按钮,其名称(Name属性)分别为Command1和Command2,窗体加载时要求Command1不可用,Command2可用;单击Command2后,Command1可用。请在____处将程序补充完整。 Private Sub Command2_Click() ____ End Sub Privat Sub Form_Load() ____ End Sub