2012江苏省计算机二级VB试题库及答案

Next i c(1) = a(1) m = c(1) a(1) = 0 （23）

Do While k <= 20

If m Mod 2 <> 0 Then n = fun1(b, m) Else

n = fun1(a, m) End If

If n > 0 Then （24） k = k + 1 m = n Else

Print \ End If （25）

If fun2(c(1) + n) Then t = 0

For i = 1 To 20 pic1.Print c(i); t = t + 1

If t Mod 10 = 0 Then pic1.Print Next i End If End Sub

Public Function fun2(n) As Boolean fun2 = True

For i = 2 To Sqr(n)

If n Mod i = 0 Then （26） Exit Function End If Next i End Function

Public Function fun1(x, m) As Integer f = 1 n = 0 i = 10

Do While f * i > 0 If x(i) = 0 Then i = i - 1 Else

n = x(i)

If fun2(m + n) Then x(i) = 0 f = 0 Else

i = i - 1 End If End If Loop

If i > 0 Then fun1 = n Else fun1 = 0

End Function

16．本程序的功能是从给定的纯英文字符串（Text1中的内容）中找出最长的一个按字母顺序排列的子串，并在Text2中显示出来。程序界面参见图5。请完善下列程序。

图5

Option Explicit

Private Sub Command1_Click() Dim st1 As String st1 = Text1

Text2 = （27） End Sub

Private Function max_s(st As String) As String

Dim i As Integer, sta As String, s1 As String, s2 As String Dim tem As String s1 = Mid(st, 1, 1)

For i = 2 To Len(st) - 1 s2 = （28）

If Asc(s2) - Asc(s1) = 1 Then tem = tem & s1 Else

If Len(tem) > 1 And Len(tem) > Len(sta) Then sta = tem （29） End If End If

（30） Next i

If Len(tem) > 1 And Len(tem) > Len(sta) Then max_s = tem Else

max_s = sta End If End Function

二级Visual Basic全真模拟试卷二参考答案 一、选择题： 1．D 2．A 3．C 4．D 5．B 6．B 7．A 8．B 9．A 10．C 11．C 12．C 13．C 14．C 15．C 16．C 17．D 18．D 19．B 20．C 21．A 22．B 23．B 24．A 25．B 26．C 27．A 28．B 29．D 30．A

二、填空题： （1）事件源 （2）-3 （3）Image （4）Binary （5）Value （6）2

（7）十字形图形 （8）4 （9）2 （10）24

（11）39 13 5 （12）273 91 5 （13）1 （14）3 （15）55 （16）11

（17）ReDim s(k) （18）\（19）k=k-1 （20）s=1 （21）(-1)*k （22）fun1=1 （23）k=2 （24）c(k)=n （25）Loop

（26）fun2=False （27）max_s(st) （28）Mid(st,i,1) （29）tem=\（30）s1=s2

江苏省高等学校非计算机专业学生 计算机基础及应用能力等级考试试卷

二级Visual Basic全真模拟试卷三

（本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟）

说明：

1．本试卷满分为60分，分选择题和填空题，试卷不分A、B类型。

2．选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分。

3．填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得1分，不填或填错不得分。

4．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。

第一部分 计算机基础知识

1．下列关于“信息系统”的叙述中错误的是 1 。

A．图书馆是一种以信息收藏和检索为主的系统