第 1 页:单选题 |
第 5 页:操作题 |
第 7 页:参考答案 |
21.下列说法中正确的是( )。
A.当焦点在某个控件上时,按下一个字母键,就会执行该控件的KeyPress事件过程
B.因为窗体不接受焦点,所以窗体不存在自己的KeyPress事件过程
C.若按下的键相同,KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同
D.在KeyPress事件过程中,KeyAscii参数可以省略
22.语句Dim a(-3 To 4,3 To 6)As Integer定义的数组元素个数是( )。
A.18
B.28
C.21
D.32
23.在窗体上画一个命令按钮,其名称为Command1,然后编写下列代码:
Option Base l
Private Sub Command1 Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
程序运行后,单击命令按钮,其输出结果是( )。
A.4321
B.1234
C.34
D.12
24.假定通过复制、粘贴操作建立了一个命令按钮数组Command1,下列说法中错误自是( )。
A.数组中每个命令按钮的名称(Name属性)均为Command1
B.若未做修改,数组中每个命令按钮的大小都一样
C.数组中各个命令按钮使用同一个Click事件过程
D.数组中每个命令按钮的Index属性值都相同
25.在窗体上画一个命令按钮,名称为Command1,然后编写下列代码:
Option Base 0
Private Sub Command1 Click()
Dim A1(4)As Integer,A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox(”请输入一个整数”)
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
A.0
B.1
C.2
D.3
26.下列关于函数过程的叙述中,正确的是( )。
A.函数过程形参的类型与函数返回值的类型没有关系
B.在函数过程中,过程的返回值可以有多个
C.当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递
D.如果不指明函数过程参数的类型,则该参数没有数据类型
27.在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写下列程序:
Private Sub rune(L AS Labe1)
L.Caption="1234"
End Sub
Private Sub Form Load()
Labe11.Caption="ABCDE"
Labe12.Caption=10
End Sub
Private Sub Command1Click()
a=Va1(Label2.Caption)
Call func(Label1)
Label2.Caption a
End Sub
程序运行后,单击命令按钮,则在两个标签中显示的内容分别为( )。
A.ABCD和10 B.1234和100
C.ABCD和100 D.1234和10
28.在窗体上画一个命令按钮(名称为Command1),并编写下列代码:
Function Fun1(ByVa1 a As Integer,b As Integer)As Integer
Dim t As Integer
t=a-b
b=t+a
Fun1=t+b
End Function
Private Sub Command1Click()
Dim X As Integer
x=10
Print Fun1(Vun1(X,(Fun1(x,x-1))),x-1)
End Sub
程序运行后,单击命令按钮,输出结果是( )。
A.10
B.0
C.11
D.21
29.下列关于过程及过程参数的描述中,错误的是( )。
A.过程的参数可以是控件名称
B.调用过程时使用的实参的个数应与过程形参的个数相同
C.只有函数过程能够将过程中处理的信息返回到调用程序中
D.窗体可以作为过程的参数
30.设有下列通用过程:
Public Function Fun(xStr As String)As String
Dim tStr As String,strL As Integer
tStr=""
strL=Len(xStr)
i=strL/2
DO While i<=StrL
tStr=tStr&Mid(xStr,i+1,1)
i=i+1
Loop
Fun=tStr&tStr
End Function
在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程:
Private Sub Commandl Click()
Dim S1 As String
S1="ABCDEF"
Text1.Text=LCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,文本框中显示的是( )。
A.ABCDEF
B.abedef
C.defdef
D.defabc
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |