设为首页    加入收藏
学历| 高考 中考 考研 自考 成考　 外语| CET6 职称英语 商务英语 公共英语　 资格| 公务员 报关员 银行 证券 司法 导游 教师　 计算机| 等考 软考
工程| 一建 二建 造价师 监理师 咨询师 安全师 结构师 估价师 造价员　 会计| 会计证 中级会计 注会 经济师 税务师　 医学| 卫生资格 医师 药师 [更多]
搜索一下 
站内搜索:
 
热门关键字：考试动态 | 成绩查询 | 考试试题 | 辅导课程 | 复习辅导 |
您当前的位置： 首页 > 计算机等级 > 二级 > Visual Basic > Visual Basic模拟试题

全国计算机等级考试二级VB模拟试题15

来源：计算机等级考试    发布时间：2012-08-29    计算机等级考试视频    评论

答案
26.在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(keyascii as integer)
……
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是
A、单击鼠标
B、双击文本框
C、鼠标滑过文本框
D、按下键盘上的某个键
A       B       C       D      
27.在程序代码中将图片文件pic.jpg装入图片框Picture的语句是____。
A、Picture1.picture="pic,jpg"
B、Picture.image="pic,jpg"
C、Picture1.picture=LoadPicture("pic.jpg")
D、LoadPicture("pic.jpg")
A       B       C       D      
28.如果两个质数的差为2，就称这两个质数为质数对。下列程序代码输出100以内的质数对。
Private Sub Commandl_click( )
Dim i As Integer
P1=Abc(3)
For i=5 To 100 Step 2
p2=Abc(i)
If____Then Print i-2,i
P1=p2
Next I
End Sub
Public Function Abc(m As Integer)As Boolean
Dim i As Integer
Abc=True
For i=2 To Int(Sqr(m))
If m Mod i=0 Then Abc=False:Exit For
Next i
End Function
A、p1=p2
B、p1 And p2
C、p1,p2
D、p1 Or p2
A       B       C       D      
29.单击窗体时,下列程序代码的执行结果为____。
Private Sub Invert(xStr As String, yStr As String)
Dim tempStr As String
Dim I As Integer
I = Len(xStr)
Do While I > 1
tempStr = tempStr + Mid(xStr, I, 1)
I = I - 1
Loop
yStr = tempStr

End Sub


Private Sub Form_Click()
Dim s1 As String, s2 As String
s1 = "abcdef"
Invert s1, s2
Print s2
End Sub
A、abcdef
B、afbecd
C、fedcba
D、defabc
A       B       C       D      
30.阅读程序：
Sub subP(b() As Integer)
For i = 1 To 4
b(i) = 2 * i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
Call subP(a())
For i = 1 To 4
Print a(i)
Next i
End Sub
A、2
4
6
8
B、5
6
7
8
C、16
D、出错
A       B       C       D   

上一页456789下一页

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答