11.在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程: Option Base 0 Private Sub Command1_Click() Dim city As Variant city = Array("北京","上海","天津","重庆") Print city(1) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 A、空白 B、错误提示 C、北京 D、上海
16.下面____语句创建了一个FileSystemObject对象。 A、Dim fsoX As Object B、Dim fsoX As New FileSystemObject C、Dim fsoX As FileSystemObject D、Set fsoX=CreateObject
A B C D
17.有一个分段函数,当X<0时,Y=-1;当X=0时,Y=0;当X>0时,Y=1。该分段函数在程序段中可表达为: A、If X<0 Then Y=-1 If X=0 Then Y=0 Else Y=1 B、If X>0 Then Y=1 If X=0 Then Y=0 Else Y=-1 C、If X<0 Then Y=-1 ElseIf X=0 Then Y=0 Else Y=1 D、If X<0 Then Y=-1 ElseIf X=0 Then Y=0 Else Y=1
A B C D
18.窗体的MouseDown事件过程 Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) 有4个参数,关于这此参数,正确的描述是 A、通过Button参数判定当前按下的是哪一个鼠标键 B、Shift参数只能用来确定是否按下Shift C、Shift参数只能用来确定是否按下Alt和Ctrl键 D、参数x,y用来设置鼠标当前位置的坐标
26.以下能正确定义数据类型TelBook的代码是 A、Type TelBook Name As String*10 TelNum As Integer End Type B、Type TelBook Name As String*10 TelNum As Integer End TelBook C、Type TelBook Name String*10 TelNum Integer End Type TelBook D、Type TelBook Name String*10 TelNum Integer End Type
28.下列事件过程实现从键盘输入任意一个实数,用Print方法在窗体上显示其平方和平方根,要求每个数 保留三位小数,数据之间有间隔。 Private Sub Form_Click() Dim a As Single a=Abs(Val(InputBox("请输入一个实数"))) Print Format(a*a,"0.000");____;Format(Sqr(a),"0.000") End Sub A、Spc(4) B、Tab(4) C、"" D、&
A B C D
29.单击命令按钮Command1时利用梯形法求Sinx的定积分,区间为[0,2]。从题后供选择的答案中选出正确答案,填入以下程序 中相应处,构成完整程序。 Private Sub Command1_click( ) A=0 B=2 N=30 S=0 H=(B-A)/N For K=____To N T=(Sin(A+(K-1)*H)+Sin(A+K*H))*H/2 S=S+T Next K Print a; "Area="; S End Sub A、0 B、1 C、N D、A
A B C D
30.在窗体上画一个名称为Command1命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码: Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是 A、10 10 10 B、30 30 30 C、30 30 10 D、10 30 30
31.在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim Str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“b”,则在文本框Text1中显示的内容为____。 A、bbb B、BBB C、BB D、bb
A B C D
32.编写如下事件过程: Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single,Y As Single) If Shift=6 And Button=2 Then Print "Hello" End If End Sub 程序运行后,为了在窗体上输出“Hello”,应在窗体上执行以下____操作。 A、同时按下Shift键和鼠标左按钮 B、同时按下Shift键和鼠标右按钮 C、同时按下Ctrl、Alt键和鼠标左按钮 D、同时按下Ctrl、Alt键和鼠标右按钮
A B C D
33.设在D盘下有一文本文件fm.txt,该文件中存储了一些记录信息,在窗体上画一个命令按钮,然后编写如下代码: Private Type Record ID As Integer Name As String End Type Private Sub Command1_Click() Dim MaxSize,Nextchar,Mychar Open "d:\fm.txt" For Input As #2 Maxsize=LOF(2) For NextChar=Maxsize To 1 Step -1 Seek #2,NextChar MyChar=Input(1,#2) Next Nextchar Print EOF(2) Close #2 End Sub 程序运行后,单击命令按钮,其输出结果为_____。 A、0 B、Null C、True D、False
A B C D
34.单击窗体时输出“斐波那契数列”的前20项。该数列第一项为0,第二项为1,其后每一项的值都是前两项之和。即:0,1,1,2,3,5,8,13,…以下为实现此运算的程序段,试填写以下程序中空白处,构成完整程序。 Private Sub Form_Clicd( ) X1=1 X2=1 N=0 Do While____ Print X1,X2 X1=X1+X2 X2=X1+X2 N=N+1 Loop End Sub A、N<=10 B、N<9 C、N<10 D、N<20
A B C D
35.设有如下程序: Option Base O Prvate Sub Form_Click() Dim a Dim i As Integer a= Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5 -i); Next End Sub 程序运行后,单击窗体,则在窗体上显示的是 A、4 3 2 1 B、5 4 3 2 C、6 5 4 3 D、7 6 5 4
5.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在____处填入适当的内容,将程序补充完整。 Private Sub Form_Load() Command1.Enabled = False End Sub Private Sub Text1._____() Command1.Enabled = True End Sub
输入答案,中间不含空格:
6.在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer,y as Integer) As Integer M= IIf(x>y,x,y) End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a = 100 b = 200 Print M(a,b) End Sub 程序运行后,单击命令按钮,输出结果为______。
输入答案,中间不含空格:
7.为了改变计时器控件的时间间隔,应该修改该控件的____属性。
输入答案,中间不含空格:
8.如果希望使用变量X来表示钱款,应将变量X声明为____类型。
输入答案,中间不含空格:
9.列表框中列表项的数目可通过以下____属性获得。
输入答案,中间不含空格:
10.下面程序用于求三个数中的最大数,试将程序段填写完整。 Private Sub Command1_Click( ) a=Val(InputBox("请输入第一个数")) b=Val(InputBox("请输入第二个数")) ____ Max=a Min=a If ____ Then Max=b If ____ Then Min=b If c>Max Then Max=c If c Print"最大数为";Max Print"最小数为";Min End Sub
5.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在____处填入适当的内容,将程序补充完整。 Private Sub Form_Load() Command1.Enabled = False End Sub Private Sub Text1._____() Command1.Enabled = True End Sub
输入答案,中间不含空格:
6.在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer,y as Integer) As Integer M= IIf(x>y,x,y) End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a = 100 b = 200 Print M(a,b) End Sub 程序运行后,单击命令按钮,输出结果为______。
10.下面程序用于求三个数中的最大数,试将程序段填写完整。 Private Sub Command1_Click( ) a=Val(InputBox("请输入第一个数")) b=Val(InputBox("请输入第二个数")) ____ Max=a Min=a If ____ Then Max=b If ____ Then Min=b If c>Max Then Max=c If c Print"最大数为";Max Print"最小数为";Min End Sub