11.在窗体上有一个文本框,代码窗口中有如下代码,则下述有关该段程序代码所实现的功能的错误的说法是_____。 Private Sub form_load() Open "C:\data.txt" For Output As #3 Text1.Text = "" End Sub Private Sub text1_keypress(keyAscii As Integer) If keyAscii = 13 Then If UCase(Text1.Text) = "END" Then Close #3 End Else Write #3, Text1.Text Text1.Text = "" End If End If End Sub A、在C盘当前目录下建立一个文件 B、打开文件并输入文件的记录 C、打开顺序文件并从文本框中读取文件的记录,若输入End则结束读操作 D、在文本框中输入的记录按回车键存入,然后文本框内容被清除
26.在窗体上有一个文本框控件,名称为为TxtTime;一个计时器控件,名称为Timer1,要求每一秒在文本框中显示一次当前的时间。程序为: Private Sub Timer1_ _____() TxtTime.text=Time End Sub 在下划线上应填入的内容是 A、Enabled B、Visble C、Interval D、Timer
28.在窗体上画一个列表框和一个文本框,然后编写如下两个事件过程: Private Sub Form_Load() List1.AddItem"357" List1.AddItem"245" List1.AddItem"123" List1.AddItem"456" Text1.Text="" End Sub Private Sub List1_DblClick() a=List1.Text Print a+Text1.Text End Sub 程序运行后,在文本框中输入“789”,然后双击列表框中的“456”,则输出结果是____。 A、1245 B、456789 C、789456 D、0
A B C D
29.在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,输出结果是____。 A、7 B、15 C、157 D、538
A B C D
30.一个工程中包含两个名称分别为Form1、Form2的窗体,一个名称为Md1Func的标准模块。假定在Form1、Form2和Md1Func中分别建立了自定义过程,其定义格式为: Form1中定义的过程: Private Sub frmFunction1() …… End Sub Form2中定义的过程: Private Sub frmFunction2() …… End Sub mdlFunc中定义的过程: Public Sub md1Function() …… End Sub 在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是 A、上述三个过程都可以在工程中的任何窗体或模块中被调用 B、frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用 C、上述三个过程都只能在各自被定义的模块中调用 D、只有Md1Function过程能够被工程中各个窗体或模块调用
31.单击命令按钮时,下列程序代码的执行结果为____。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click( ) Dim x As Integer,y As Integer x=23:y=65 Call Procl(x,y) Print x;y End Sub A、3 65 B、23 65 C、3 60 D、0 65
A B C D
32.窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click() Dim M(10), N(10) I = 3 For T = 1 To 5 M(T) = T N(I) = 2 * I + T Next T Print N(I); M(I) End Sub
窗体运行后,单击命令按钮,输入结果为 A、3 11 B、3 15 C、11 3 D、15 3
A B C D
33.在工程中有一个标准模块,其中定义了如下记录类型 Type Books Name As String * 10 TelNum As String * 20 End Type 在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺 序文件Person.txt中写入一个记录。下列能够完成该操作的事件过程是----。 A、Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Output As #1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write #1,B.Name,B.TelNum Close #1 End Sub B、Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For intput As #1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Print #1,B.Name,B.TelNum Close #1 End Sub C、Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Output As #1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write #1,B Close #1 End Sub D、Private Sub Command1_Click() Open "c:\Person.txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1,Name,TelNum Close #1 End Sub
A B C D
34.以下能够正确计算n!的程序是 A、Private Sub Command1_Click() N = 5 : X = 1 Do x = x * i i = i + 1 Loop While i < n Print x End Sub B、Private Sub Command1_Click() N = 5 : x = 1 : i = 1 Do x = x * i i = i + 1 Loop While i < n Print x End Sub C、Private Sub Command1_Click() N = 5 : x = 1 : i = 1 Do x = x * i i = i + 1 Loop While i <= n Print x End Sub D、Private Sub Command1_Click() N = 5 : x = 1 : i = 1 Do x = x * i i = i + 1 Loop While i > n Print x End Sub
A B C D
35.窗体中代码如下: Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) M = 0 For I = 1 To 3 For J = 5 To 1 Step -1 N = N + 1 Next J, I Print N; J; I End Sub 执行后,单击鼠标,输出结果为____。 A、12 0 4 B、15 0 4 C、12 3 1 D、15 3 1
11.设窗体Form1上布置三个按钮控件组,其Name值为cmd,使用按钮控制窗体的颜色:红色、绿色、黄色,其索引依次为1、2、3。单击该按钮菜单用于设置窗体的背景颜色。 Private Sub cmd_____ (Index As Integer) Select Case ____ Case 1 Form1.BackColor=vbRed Case 2 Form1.BackColor=vbGreen Case 3 Form1.BackColor=vbYellow End Select End Sub
输入答案,中间不含空格:
12.上一题
输入答案,中间不含空格:
13.单击一次命令按钮后,下列程序代码的执行结果为____。 Public Sub Proc(a()As Integer) Static I As Integer Do a(I)=a(I)+a(I+1) I=I+1 Loop While I<2 End Sub Private Sub Command1_Click() Dim m As Integer,I As Integer,x(10) As Integer For I=0 To 4: x(I)=I+1: Next I For I=1 To 2: Call Proc(x): Next I For I=0 To 4: Print x(I);: Next I End Sub
输入答案,中间不含空格:
14. 在窗体上画一个名称为 Text1 的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1。程序远行后,如果单击某个单选项,则文本框中的字体将根据所选择的单选按钮切换,如果所示,请t填空。 Private Sub Option1_Click(Index As Integer) Select CAse____ case 0 a="宋体" Case 1 a=“黑体” Case 2 a=“楷体_GB2312” End Select Text1.____=a End Sub