第 1 页:选择题 |
第 5 页:操作题 |
第 8 页:参考答案 |
31.目录列表框的Path属性的作用是( )。
A.显示当前驱动器或指定驱动器上的某目录下的文件名
B.显示当前驱动器或指定驱动器上的目录结构
C.显示根目录下的文件名
D.显示该路径下的文件
32.以下叙述中错误的是( )。
A.在KeyPress事件过程中不能识别键盘的按下与释放
B.在KeyPress事件过程中不能识别回车键
C.在KeyDown和KeyUp事件过程中,将键盘输入的“A”和“a”视作相同的字母
D.在KeyDown和KeyUp事件过程中,从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符
33.以下关于文件的叙述中,错误的是( )。
A.顺序文件中的记录一个接一个地顺序存放
B.随机文件中记录长度是随机的
C.执行打开文件的命令后,自动生成一个文件指针
D.LOF函数返回给文件分配的字节数
34.窗体上有1个名称为List1的列表框,其中已经输入了若干个项目,如图所示;还有
2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有下列事件过程。
Private Sub Command1_Click()
Dim str As String,S As String.k As Integer
s=Text1
str =""
For k=Listl.ListCount-1 To 0 Step-1
If InStr(List1.List(k),s)>0 Then
str=str & List1.List(k)&""
End If
Next k
If str=""Then
Text2="没有匹配的项目"
Else
Text2=str
End If
End Sub
程序运行时,在Text1中输入"京",单击命令按钮,则在Text2中显示的内容是( )。
A.京
B.北京南京
C.南京北京
D.没有匹配的项目
35.以下关于KeyPress事件过程中参数KeyAscii的叙述正确的是( )。
A.KeyAscii参数是所按键的ASCII码
B.KeyAscii参数的数据类型为字符串
C.KeyAscli参数可以省略
D.KeyAscii参数是所按键上标注的字符
36.在窗体上画1个名称为Command1的命令按钮,然后编写下列程序:
Private Sub Command1_Click()
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As string
stlen=Len(st)
temp=""
For k=1 To stlen/2
temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)
Next k
fun=temp
End Function
程序运行时,单击命令按钮,则在窗体上显示的是( )。
A.ABCDEFG
B.AGBFCE
C.GFEDCBA
D.AGBFCED
37.在窗体E先后画2个图片框,名称分别为Picture1和banana,banana中添加了香蕉
图片,如图1所示,且将banana.DragMode属性设置为1。要求程序运行时,可以用鼠标把banana拖拽到Picture1中,如图2所示。能实现此功能的事件过程是( )。
A.Private 3ub Form—DragDrop(Source As Control,X As Single,Y As Single)
banana.Move Picture1.Left+X,Picture1.Top+Y
End Sub
B.Private Sub banana_DragDrop(Source As Control,X As Single,Y As Single)
Source.Move Picture1.Left+X,Picture 1.Top+Y
End Sub
C.Private Sub Picturei_DragDrop(Source As Control,X As Single,Y As Single)
Source.Move Picture1.Left+X,Picture1.Top+Y
End Sub
D.Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single)
banana.Move banana.Left+X,banana.Top +Y
End Sub
38.在窗体上面1个名称为Command1的命令按钮,然后编写下列事件过程
Option Base 1
Private Sub,Command1 Click()
Dim a(5,5)ks Integer
For i=1 To j
For j=1 To 5
a(i,j)=(i+j)*5\10
Next j
Next i
S=0
For i=1 To j
s=s+a(i,i)
Next i
Print s
End Sub
程序运行后,单击命令按钮,输出结果是( )。
A.15
B.13
C.11
D.9
39.在窗体上从仨到右有Text1、Text2两个文本框,如图所示,要求程序运行时,在Text1 中输入1个分数后按回车键,则判断分数的合法性,若分数为0~100中的1个数,则光标移到Text2中;否则光标不动,并弹出对话框显示“分数错”。下列程序中正确的是( )。
A. Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii==13 Then
’回车符的ASCIl码是13
a=Val(Text1)
If a>=0 Or a<=100 Then
Text2.SetFocus
Else
Text1.SetFocus:MsgBox("分数错")
End If
End If
End Sub
B. Private Sub Textl—KeyPress(KeyAscii As Integer)
If KeyAseii=13 Then
’回车符的ASCIl码是13
a=Val(Text1)
If a>=0 And a<=100 Then
Textl.SetFocus
Else
Text2.SetFocus:MsgBox("分数错")
End If
End If
End Sub
C.Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
’回车符的ASCII码是13
a=Val(Text1)
If a<0 And a>100 Then
Text2.SetFocus
Else
Text1.SetFocus:MsgBox("分数错")
End If
End If
End Sub
D.Private Sub Text1_KeyPress(KeyAscii As Integer)
If KevAscii=13 Then
’回车符的ASCII码是13
a=Val(Textl)
If a>=0 Aad a<=100 Then
Text2.SetFocus
Else
Text1.SetFocus:MsgBox("分数错")
End If
End If
End Sub
40.在窗体上画2个命令按钮,名称分别为Command1、Command2,然后编写下列事件过程。
Const n=5.m=4
Dim a(m,n)
Private Sub+Command1 Click()
k=1
For i=1 To m
For j=1 To n
a(i,j)=k
k=k+1
Next j
Next i
End Sub
Private Sub Command2 Click()
summ=0
For i=1 To m
For j=1 To n
If i=1 Or i=m Then
summ=summ+a(i,j)
Else
If j=1 Or j=n Then
summ=summ+a(i,j)
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1_Click()的作用是在二维数组a中存放1个m行n列的矩阵;过程Command2 Click()的作用是( )。
A.计算矩阵外围一圈元素的累加和
B.计算矩阵除外围一圈以外的所有元素的累加和
C.计算矩阵第1列和最后一列元素的累加和
D.计算矩阵第1行和最后一行元素的累加和
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |