教师博客-梦在心头-随笔分类-Visual Basic 课堂

VB编程竞赛题库三参考答案

木子李 — Thu, 03 Jan 2008 07:58:00 GMT

VB竞赛题库三

一、在你面前有一条长长的阶梯，如果你每步跨2阶，那么最后剩下一阶，如果你每步跨3阶，那么最后剩下2阶，如果每步跨5阶，最后剩4阶，只有当每少跨7阶时，最后才正好走完，一阶不剩。现在，问这条阶梯最少共有多少阶?

答：设这条阶梯最少共有X阶，根据题意，可知X+1是2、3、5的倍数，即X+1是30的倍数，所以X的最后一个数字必须是9，又因为X是7的倍数，所以循环的最低数应该是49，循环的步长至少应该是10，但又要满足是7的倍数，所以步长应该是70，故源程序如下：

Private Sub Command1_Click()

Dim x As Integer

x = 49

If (x + 1) Mod 30 = 0 Then Exit Do

x = x + 70

Loop Until (1)

Label1.Caption = "这条阶梯至少共有" & x & "阶！"

End Sub

二、编程验证：任意一个大于9的整数，减去它的各位上的数字之和所得的差，一定能被9整除。证明中应显示从键盘输入的数，以及差值和商的过程。
（例： 123——1+2+3=6——123-6=117——117/9=13）

答：

源程序：

Private Sub Command1_Click()

Dim sum As Integer, i As Integer

Dim s As String, str As String

s = Trim(Text1.Text)

If Val(s) <= 9 Then

MsgBox "所输入的数小于9，请重新输入!"

Text1 = ""

Text1.SetFocus

Exit Sub

End If

For i = 1 To Len(s)

sum = sum + Mid(s, i, 1)

str = str & Mid(s, i, 1) & "+"

str = Mid(str, 1, Len(str) - 1)

If (Val(s) - sum) Mod 9 = 0 Then

Text2.Text = Val(s) & "——" & str & "=" & sum & "——" & Val(s) & "-" & sum & "=" & Val(s) - sum & "——" & Val(s) - sum & "/9=" & (Val(s) - sum) / 9

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

三、输入一串字符，以“？”结束，统计各字母出现的次数，并按字母出现的多少输出。（先输出字母出现次数多的，次数相同的按字母表顺序输出，不出现的字母不输出。）

答：源程序：

Private Sub Command1_Click()

Dim s As String, a(26) As Integer, i As Integer, j As Integer, n As Integer

s = Trim(Text1.Text)

s = UCase(s)

n = InStr(s, "?")

If n = 0 Then

MsgBox "请输入结束符号？"

Text1.SetFocus

Exit Sub

End If

For i = 0 To n - 2

t = Mid(s, i + 1, 1)

t = Asc(t) - 65

a(t) = a(t) + 1

For j = 0 To 25

l = 0

For i = 1 To 25

If a(i) > a(l) Then l = i

If a(l) <> 0 Then List1.AddItem "字母" & Chr(65 + l) & "出现的次数为：" & a(l)

a(l) = 0

End Sub

Private Sub Command2_Click()

Text1 = ""

List1.Clear

Text1.SetFocus

End Sub

四、编写程序，将14人（分别用A、B、C、……，N表示）随机分配在5排（每排3座）的座位中，分配后空的座位用“EMPTY”表示，并打印出座位分配情况。

答：源程序：

Dim b(15) As String

Private Sub Command1_Click()

Randomize

Dim a(15) As String

Dim i As Integer, j As Integer, num As Integer

For i = 0 To 13

a(i) = Chr(65 + i)

a(14) = "EMPTY"

For i = 0 To 14

b(i) = "0"

For i = 0 To 14

num = Int(15 * Rnd)

While cz(a(num)) = True

num = Int(15 * Rnd)

Wend

b(i) = a(num)

j = 1

For y = 0 To 14

If j Mod 3 = 0 Then

Text1 = Text1 & b(y) & vbCrLf

Else

Text1 = Text1 & b(y) & " "

End If

j = j + 1

End Sub

Private Function cz(x As String) As Boolean

Dim i As Integer

cz = False

For i = 0 To 14

If b(i) = x Then cz = True: Exit For

End Function

Private Sub Command2_Click()

Text1 = ""

End Sub

木子李 2008-01-03 15:58 发表评论

VB编程竞赛题库三

木子李 — Thu, 03 Jan 2008 05:05:00 GMT

四、编写程序，将14人（分别用A、B、C、……，N表示）随机分配在5排（每排3座）的座位中，分配后空的座位用“EMPTY”表示，并打印出座位分配情况。

木子李 2008-01-03 13:05 发表评论

一道递归计算题

木子李 — Thu, 15 Mar 2007 05:55:00 GMT

源程序:
option base 1
private sub command1_click()
dim a
a=array(1,1,1,1)
call sub1(a,4)
for i =1 to 4
      print a(i)
next i
end sub

public sub sub1(x,n)
if n>1 then
     for i=1 to n
        x(n)=x(n)+1
        call sub1(x,n-1)
     next i
end if
end sub

运行结果:
1
25
13
5

分析:
1、程序从按钮的单击事件开始运行,先给动态数组a赋初值{1,1,1,1},然后调用子程序sub1来改变数组a的内容,最后输出改变后的数组值.
2、此题重点在于子程序sub1中包含递归调用，即自己调用自己，所以在计算时要特别小心，一是要注意n的条件，二是要注意循环次数，三是要注意数组值的变化；其实在计算时可以看出来是有规律的。
首先：sub1(x,4) :n=4(n>1)，for循环要执行4次，每次执行时x(4)的值加1，所以x(4)最后的值为1+4*1=5，同时要调用sub1(x,3)4次，每次结果一样，所以只要求出一次的值，再乘4即可。
其次：sub1(x,3):n=3(n>1)，for循环要执行3次，每次执行时x(3)的值加1，所以对于求一次sub1(x,3)结果为在原结果值上加3，而一共要调用4次，所以最后x(3)的值为1+3*4=13；同时要调用sub1(x,2)3次，每次结果一样，也只需要求出一次的值便可以求出最后值；
最后：sub1(x,2):n=2(n>1)，for循环要执行2次，每次执行时x(2)的值加１，所以对于求一次sub1(x,2)结果是在原值上加2，而一共要调用4*3次（想想为什么？），所以x(2)最后的值为1+4*3*2=25；
x(1)=1(因为n=1，不满足条件，所以值保持不变)
所以最后结果为{1，25，13，5}

木子李 2007-03-15 13:55 发表评论

江苏省等级考试二级VB上机试卷2005年（秋）及参考答案（二）

木子李 — Wed, 25 Oct 2006 23:37:00 GMT

[题目9]下面程序的功能是:找出所有各位数字互不相同的四位数,该数本身为素数,且各位数字均为素数.本题界面见图1.

答：

源程序：

Dim a(4) As Integer

Private Sub Command1_Click()

Dim n As Integer

For n = 1000 To 9999

If prime(n) And pf(n) And np(a) Then

List1.AddItem n

End If

Next n

End Sub

Private Function prime(ByVal n As Integer) As Boolean

Dim I As Integer

For I = 2 To Sqr(n)

If n Mod I = 0 Then Exit Function

Next I

prime = True

End Function

Private Function pf(ByVal n As Integer) As Boolean

Dim I As Integer

pf = True

I = I + 1

a(I) = n Mod 10

If a(I) < 2 Or Not prime(a(I)) Then pf = False

n = n \ 10

Loop Until n <= 0

End Function

Private Function np(a() As Integer) As Boolean

Dim I As Integer, j As Integer

np = True

For I = 1 To UBound(a) - 1

For j = I + 1 To UBound(a)

If a(I) = a(j) Then np = False

Next j

Next I

End Function

[题目10]编写程序找出最小公倍数是9828的3个连续的自然数.

[编程要求]

1. 程序参考界面如图2所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见.;

2. 单击”运行”按钮,找出符合条件的3个连续的自然数,按图示格式输出到文本框中;

3.单击”清除”按钮,则将文本框清空,焦点置于”运行”按钮;单击”退出”按钮,结束程序运行;

4. 程序中必须包含一个求最小公倍数的通用过程.

答：

源程序：

Private Function gbs(ByVal m As Integer, n As Integer) As Long

Dim t As Integer, s As Long

s = m * n

t = m Mod n

m = n

n = t

Loop Until (n = 0)

gbs = s / m

End Function

Private Sub Command1_Click()

Dim n As Integer, t1 As Long

n = 1

n = n + 1

t1 = gbs(n, n + 1)

t1 = gbs(t1, n + 2)

Loop Until (t1 = 9828)

Text1 = Text1 & n & "," & n + 1 & "," & n + 2 & "的最小公倍数是：9828"

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Command1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

[题目11]下面程序的功能是:将给定的字符串中的数字字符筛选出来,依次组成若干个两位整数;并求出它们的最大公约数.本题程序界面见图1.

答：

源程序：

Option Explicit

Private Sub Command1_Click()

Dim A() As Integer, I As Integer, Ch As String

Dim j As Integer, G As Integer, Id As Integer

Dim S As String, St As String

S = "36a487b2541224301842e72"

Text1 = S

For I = 1 To Len(S)

If Mid(S, I, 1) <= "9" And Mid(S, I, 1) >= "0" Then

Ch = Ch & Mid(S, I, 1)

End If

If Len(Ch) = 2 Then

Id = Id + 1

ReDim Preserve A(Id)

A(Id) = Ch

Text2 = Text2 & Str(A(Id))

Ch = ""

End If

Next I

G = A(1)

For I = 2 To Id

G = Gcd(G, A(I))

Next I

Text2 = Text2 & vbCrLf & " " & vbCrLf & "以上数据的最大公约数是: " & G

End Sub

Private Function Gcd(ByVal N As Integer, ByVal M As Integer)

Dim R As Integer

R = N Mod M

If R <> 0 Then

Gcd = Gcd(M, R)

Else

Gcd = M

End If

End Function

[题目12]编写程序找出倒数之和等于19/20的四个连续的自然数.

[编程要求]

1.程序参考界面如图2所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;

2.单击”运行”按钮,找出倒数之和等于19/20的四个连续的自然数,并按图示格式显示在多行文本框中;

3.单击”清除”按钮,则将文本框清空;单击”退出”按钮,结束程序运行;

4.程序中必须包含一个求四个连续的自然数倒数之和的通用过程.

答：

源程序：

Private Sub Command1_Click()

Dim i As Long, fem As Long, fez As Long

i = 0

i = i + 1

fem = i

fez = 1

Call dszh((i), fez, fem)

Loop Until (fez = 19 And fem = 20)

Text1 = Text1 & i & "," & i + 1 & "," & i + 2 & "," & i + 3 & "的和为19/20"

End Sub

Private Sub dszh(n As Integer, fz As Long, fm As Long)

Dim t As Long, i As Long

For i = n + 1 To n + 3

fz = fm + fz * i

fm = fm * i

t = gcd(fz, fm)

fm = fm / t

fz = fz / t

Next i

End Sub

Private Function gcd(ByVal x As Long, ByVal y As Long) As Long

Dim r As Integer

r = x Mod y

x = y

y = r

Loop Until (r = 0)

gcd = x

End Function

Private Sub Command2_Click()

Text1.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

[题目13]下面程序的功能是：在140000至160000之间找出满足以下条件的六位数，该数分别乘以3与4得到的两个六位数，也由同样六个数字组成，只是排列次序不同，本题程序界面如图1。

答：

源程序：

Option Explicit

Private Sub Command1_Click()

Dim M(0 To 9) As Integer, N(0 To 9) As Integer, F As Long, P As Long

Dim I As Integer

List1.AddItem " F " & " F*3 " & " F*4 "

For F = 140000 To 160000

Erase M

Call Analyze(F, M)

For I = 3 To 4

Erase N

P = F * I

If Len(CStr(P)) = 6 Then

Call Analyze(P, N)

If Not Compare(M, N) Then Exit For

Else

Exit For

End If

Next I

If I > 4 Then List1.AddItem F & Str(F * 3) & Str(F * 4)

Next F

End Sub

Private Sub Analyze(N As Long, An() As Integer)

Dim S As String, I As Integer, Idx As Integer

S = CStr(N)

For I = 1 To Len(S)

Idx = Mid(S, I, 1)

An(Idx) = An(Idx) + 1

Next I

End Sub

Private Function Compare(a() As Integer, B() As Integer) As Boolean

Dim I As Integer

For I = 0 To 9

If a(I) <> B(I) Then Exit Function

Next I

Compare = True

End Function

[题目14]编写程序找出满足5M+7n=146的两个素数M和N。

[编程要求]

1.程序参考界面如图2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；

2.单击“开始”按钮，求出满足条件的M和N值，并按图示格式输出到文本框中；

3.单击“清除”按钮，则将文本框清空，焦点置于“开始”按钮上；单击“结束”按钮，

结束程序运行；

4. 程序中必须包含一个判断某数是否为素数的通用过程。

答：

源程序：

Private Sub Command1_Click()

Dim I As Integer, M As Integer, N As Integer

Text1 = "5*M+7*N=146" & vbCrLf

For M = 1 To 24

For N = 1 To 17

I = 5 * M + 7 * N

If prime(M) = True Then

If prime(N) = True Then

If I = 146 Then

Text1.Text = Text1.Text & "M=" & M & vbCrLf & "N=" & N & vbCrLf

End If

Next N

Next M

End Sub

Private Function prime(x As Integer) As Boolean

Dim I As Integer

prime = False

For I = 2 To Int(Sqr(x))

If x Mod I = 0 Then Exit Function

Next I

prime = True

End Function

Private Sub Command2_Click()

Text1.Text = ""

Command1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

[题目15]本程序的功能是将无符号二进制数转化为十进制数。本程序界面见图1。

答：

源程序：

Private Sub Command1_Click()

Dim st1 As String, st2 As String, n As Integer

Dim s As String

s = Text1

n = InStr(s, ".")

If n <> 0 Then

st1 = Left(s, n - 1)

st2 = Right(s, Len(s) - n)

Else

st1 = s

End If

If n <> 0 Then

Text2 = cov1(st1) & cov2(st2)

Else

Text2 = cov1(st1)

End If

End Sub

Private Function cov1(st As String) As Integer

Dim i As Integer, k As Integer

For i = Len(st) To 1 Step -1

cov1 = cov1 + Val(Mid(st, i, 1)) * 2 ^ k

k = k + 1

Next i

End Function

Private Function cov2(st As String) As Single

Dim i As Integer, k As Integer

k = -1

For i = 1 To Len(st)

cov2 = cov2 + Val(Mid(st, i, 1)) * 2 ^ k

k = k - 1

Next i

End Function

[题目16]编写程序求1~200之间可以表示为4n+1形式并等于两个平方数之和的所有素数。

[编程要求]

1．程序参考界面如图2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；

2．单击“运行”按钮，求出满足条件的素数，并按图示格式输出到列表框；

3．单击“清除”按钮，则将列表框清空，焦点置于“运行”按钮上；单击“结束”按钮，结束程序运行；

4．程序中必须包含一个将某种数表示成两个平方数之和的通用过程。

答：

源程序：

Private Sub Command1_Click()

Dim i As Integer, a(1 To 2) As Integer

For i = 1 To 200

If prime(i) And (i - 1) Mod 4 = 0 And flag(i, a) = True Then

List1.AddItem i & "=" & a(1) & "^2+" & a(2) & "^2" & "=4*" & (i - 1) / 4 & "+1"

End If

Next i

End Sub

Private Function prime(x As Integer) As Boolean

Dim i As Integer

prime = False

For i = 2 To Sqr(x)

If x Mod i = 0 Then Exit Function

Next i

prime = True

End Function

Private Function flag(x As Integer, a() As Integer) As Boolean

Dim i As Integer, j As Integer

flag = False

For i = 1 To Sqr(x)

For j = 1 To Sqr(x)

If x = i ^ 2 + j ^ 2 Then

flag = True

a(1) = i

a(2) = j

Exit Function

End If

Next j

Next i

End Function

Private Sub Command2_Click()

List1.Clear

Command1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

木子李 2006-10-26 07:37 发表评论

江苏省等级考试二级VB上机试卷2005年（秋）及参考答案（一）

木子李 — Mon, 23 Oct 2006 08:25:00 GMT

【题目1】本程序的功能是：找出2~10000之间可以表示成2²-1形式的素数.本题程序界面见图1.

答：

源程序：

Option Explicit

Private Sub Command1_Click()

Dim Exp As Integer, Idx As Integer

For Idx = 2 To 10000

If Mersenne(Idx, Exp) Then

If Prime(Idx) Then

List1.AddItem Idx & " =" & 2 & "^" & Exp & "-1"

End If

Exp = 0

Next Idx

End Sub

Private Function Mersenne(N As Integer, Exp As Integer) As Boolean

Dim M As Integer, Ex As Long

M = N

Ex = 1

Do While M > Ex

Exp = Exp + 1

Ex = Ex * 2

Loop

If M = Ex - 1 Then

Mersenne = True

End If

End Function

Private Function Prime(N As Integer) As Boolean

Dim K As Integer

For K = 2 To Sqr(N)

If N Mod K = 0 Then Exit Function

Next K

Prime = True

End Function

【题目2】将1～9这9个数字顺序排列围成一圈,从中任意一个数字开始,依次将其分成三段,每段数字连在一起算一个数,得到一个2位数、一个3位数和一个4位数,将这三个数相加,使其和数能被77整除.编写一个能找出这三个数的程序.

【编程要求】

1.程序参考界面如图2所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;

2.单击“运行”按钮,找出符合条件的三个数,并将它们显示在文本框中;

3.单击“清理”按钮,则将文本框清空,并将焦点设置在“运行”按钮上;单击“结束”按钮,结束程序运行;

4.程序中必须包含一个将数字分段,得到一个2位数、一个3位数和一个4位数的通用过程.

答：

源程序：

Private Sub Command1_Click()

Dim s As String, i As Integer, sum As Integer, s1 As Integer, s2 As Integer, s3 As Integer

s = "123456789"

For i = 1 To Len(s)

Call part(s, i, s1, s2, s3)

If (s1 + s2 + s3) Mod 77 = 0 Then

Text1.Text = Text1.Text & "( " & s1 & " + " & s2 & " + " & s3 & " ) mod " & 77 & "=0" & vbCrLf

End If

Next i

End Sub

Private Sub part(ByVal s As String, i As Integer, s1, s2, s3)

s = s & s

s1 = Int(Mid(s, i, 2))

s2 = Int(Mid(s, i + 2, 3))

s3 = Int(Mid(s, i + 5, 4))

End Sub

Private Sub Command2_Click()

End

End Sub

[题目3]下面程序的功能是将给定的十六进制整数转换成二进制整数（删除高位0）。

答：

源程序：

Option Explicit

Private Sub Command1_Click()

Dim H As String, Bin As String, L As Integer, I As Integer

Dim K As Integer, S As String * 1

H = UCase(Trim(Text1))

L = Len(H)

For I = 1 To L

S = Mid(H, I, 1)

If S <= "9" And S >= "0" Then

K = Val(S)

Else

K = Asc(S) - 55

End If

If K < 0 Or K > 15 Then

Bin = "十六进制数据错误"

End If

Call Trans(Bin, K)

Next I

Bin = Right(Bin, Len(Bin) - InStr(Bin, "1") + 1)

Text2 = Bin

End Sub

Private Sub Trans(Bin As String, K As Integer)

Dim S As String, I As Integer, N As Integer

Do While K > 0

S = K Mod 2 & S

K = K \ 2

Loop

S = "0000" & S

Bin = Bin & Right(S, 4)

End Sub

[题目4]编写程序，找出由1，2，3，4四个不同数字组成的4位整数中的素数。

[编程要求]

1程序参考界面如图2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；

2单击“开始”按钮，生成（或筛选出）由1，2，3，4四个数字组成的4位整数，并显示在列表框List1中，在列表框List2中显示其中的素数；

3单击“清理”按钮，则将两个列表框清空；单击“退出”按钮，结束程序运行；

4程序中必须包含一个判断某数是否为素数的通用过程。

答：

源程序：

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, t As Integer, s As String

For i = 1 To 4

For j = 1 To 4

For k = 1 To 4

For t = 1 To 4

If i <> j And i <> k And i <> t And j <> k And j <> t And k <> t Then

s = i & j & k & t

List1.AddItem s

If prime(Int(s)) Then List2.AddItem s

End If

Next t

Next k

Next j

Next i

End Sub

Private Function prime(ByVal x As Integer) As Boolean

Dim i As Integer

prime = True

For i = 2 To Sqr(x)

If x Mod i = 0 Then prime = False: Exit Function

Next i

End Function

Private Sub Command2_Click()

List1.Clear

List2.Clear

End Sub

Private Sub Command3_Click()

End

End Sub

[题目5]下面程序的功能是：从由2，4，5，7四个数字组成的没有重复数字的24个四位数中，找出一个具有倍数关系的四位数对。本题程序界面如图1。

答：

源程序：

Option Explicit

Private Sub Compare(A() As Integer, S As String, Idx As Integer)

Dim I As Integer, J As Integer

For I = 1 To Idx

For J = 1 To Idx

If A(I) Mod A(J) = 0 And J <> I Then

S = A(I) & "是" & A(J) & "的" & A(I) \ A(J) & "倍" & vbCrLf

Text1 = S

Exit Sub

End If

Next J

Next I

End Sub

Private Sub Command1_Click()

Dim N(100) As Integer, I As Integer, S As String, Idx As Integer

Dim J As Integer, Ch As String * 1, K As Integer

For I = 2457 To 7542

S = CStr(I)

For J = 1 To 4

Ch = Mid(S, J, 1)

If Ch <> "2" And Ch <> "4" And Ch <> "5" And Ch <> "7" Then Exit For

K = J

K = K + 1

If Ch = Mid(S, K, 1) Then Exit For

Loop Until K > 4

Next J

If J > 4 Then

Idx = Idx + 1

N(Idx) = I

List1.AddItem I

End If

Next I

Call Compare(N, S, Idx)

End Sub

[题目6]编写程序：生成两个等差数列A={3，10，17，24，31，……，108}与B={3，8，13，18，23，……，108}，再找出两个数列中的相同项。

[编程要求]

1. 程序参考界面如图2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；

2. 单击“运行”按钮，生成这两个数列，分别输出到多行文本框1与多行文本框2中，找出两个数列中的相同项，并输出到文本框3中；

3. 单击“清除”按钮，则将文本框清空，并将焦点置于“运行”按钮上；单击“结束”按钮，结束程序运行；
4. 程序中必须包含一个生成等差数列的通用过程。

答：

源程序：

Option Base 1

Private Sub Command1_Click()

Dim d1() As Integer, d2() As Integer, n1 As Integer, n2 As Integer, i As Integer, j As Integer

Call scdcsl(d1, 3, 7, 108, n1)

Call scdcsl(d2, 3, 5, 108, n2)

For i = 1 To n1

Text1 = Text1 & d1(i) & " "

Next i

For i = 1 To n2

Text2 = Text2 & d2(i) & " "

Next i

i = 1

j = 1

If d1(i) = d2(j) Then

Text3 = Text3 & d1(i) & " "

i = i + 1

j = j + 1

ElseIf d1(i) > d2(j) Then

j = j + 1

Else

i = i + 1

End If

Loop Until (i > n1)

End Sub

Private Sub scdcsl(a() As Integer, x As Integer, d, y , n)

n = n + 1

ReDim Preserve a(n)

a(n) = x

x = x + d

Loop While (x <= y)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Command1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

[题目7]下面程序的功能是，找出1~300之间的三个相临整数N ，N+1和N+2，且每个整数均为两个素数的乘积。本题程序界面如图1。

答：

源程序：

Option Explicit

Private Sub Command1_Click()

Dim p() As Integer, i As Integer, N(3) As Integer

Call Prime(p, 150)

For i = 1 To 300

If Compare(p, i) Then

List1.AddItem i & "," & i + 1 & "," & i + 2

End If

Next i

End Sub

Private Sub Prime(p() As Integer, N As Integer)

Dim i As Integer, k As Integer, idx As Integer

For i = 2 To N

For k = 2 To Sqr(i)

If i Mod k = 0 Then Exit For

Next k

If k > Sqr(i) Then

idx = idx + 1

ReDim Preserve p(idx)

p(idx) = i

End If

Next i

End Sub

Private Function Compare(p() As Integer, ByVal a As Integer) As Boolean

Dim i As Integer, J As Integer, k As Integer, Flg As Boolean

For k = 1 To 3

i = 1

Do While i <= UBound(p)

For J = 1 To UBound(p)

If a = p(i) * p(J) Then Exit Do

Next J

i = i + 1

Loop

If J > UBound(p) Then Exit Function

a = a + 1

Next k

Compare = True

End Function

[题目8]编写程序求给定正整数的所有因子及所有因子的倒数之和。

[编程要求]

1．程序参考界面如图2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；

2．运行程序，在文本框1中输入测试数据，单击“运行”按纽，求出其所有因子及所有因子的倒数和，按图示格式输出到多行文本框2中（结果要进行约分）；

3．单击“清除”按纽，则将两个文本框清空，焦点置于文本框1上；

4．程序中必须包含一个求其正整数所有因子倒数之和的通用过程。

答：

源程序：

Private Sub Command1_Click()

Dim x As Long

x = Int(Trim(Text1.Text))

Text2.Text = x & "的所有因子为："

Call yzsum(x)

End Sub

Private Sub yzsum(ByVal x As Long)

Dim a() As Integer, idx As Integer, fz As Long, s1 As Long, fm As Long, s2 As Long

Dim i As Integer

For i = 1 To x

If x Mod i = 0 Then

idx = idx + 1

ReDim Preserve a(idx)

a(idx) = i

Text2 = Text2 & i & " "

If fm = 0 Then

fm = fm + i

fz = 1

Else

s1 = gcd(fm, i)

s2 = fm * i / s1

fz = fz * s2 / fm + s2 / i

fm = s2

End If

Next i

s1 = gcd(fm, fz)

fz = fz / s1

fm = fm / s1

If fm = 1 Then

Text2 = Text2 & vbCrLf & "所求因子倒数之和为： " & fz

Else

Text2 = Text2 & vbCrLf & "所求因子倒数之和为： " & fz & "/" & fm

End If

End Sub

Private Function gcd(ByVal x As Long, ByVal y As Long) As Long

Dim r As Long

r = x Mod y

x = y

y = r

Loop Until (y = 0)

gcd = x

End Function

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

木子李 2006-10-23 16:25 发表评论

江苏省等级考试二级VB笔试试卷2006年（春）及参考答案

木子李 — Sat, 21 Oct 2006 01:34:00 GMT

第二部分 Visual Basic程序设计

一、选择题

21、窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示____。

A.434 B.45678 C.溢出 D.语法错误

22、如果窗体上有命令按钮“确定”，在代码编辑窗口有与之相对应的OK_Click()事件过程，则命令按钮控件的名称属性和Caption属性分别为____。

A.“OK”和“确定 ”

B.“确定”和“OK”

C.“Command1”和“确定”

D.“Command1”和“OK”

23.下面Sub子过程的各个语句中，正确的是（）
a Private Sub Sub1(A() As string)
b Private Sub Sub1(A(1 to 10) As string*8)
c Private Sub Sub1(S As string)
d Private Sub Sub1(s As string*8)
A abcd B abc C acd D ac
24.执行赋值语句_____后，会触发相应控件的Change事件（控件名均为缺省名）。

A. Dirl.ListIndex =-2 B. Drive1.ListIndex =2
C. List1.ListIndex =3 D. File1.ListIndex =3
25.假设变量BOOL是一个布尔型变量，则下列赋值语句中，正确的是（　　）。

　 A. BOOL ='TRUE'       B. BOOL =.TRUE.
C. BOOL =#TRUE#         D. BOOL = True
26.表达式6.5*5 Mod 28\8的值是（　　　）。　
A. 0 B. 1 C. 2 D. 3
27.以下所列项目不属于窗体事件的是（　　　）。　
　 A. Initialize   B. SetFocus     C. GotFocus    D. LostFocus
28.函数CInt Int Fix都返回整数值，以下能正确地描述它们返回整数值大小关系的是（　　　）。

A. CInt(-4.51)=Int(-4.51)< Fix(-4.51)
B. Int(-4.51)C. CInt(-4.51)< Fix(-4.51)D. Int(-4.51)29.下面有关数组的说法中，错误的是（　　　）　
A.数组必须先定义后使用
B.数组形参可以是定长字符串类型
C.Erase语句的作用是对已定义数组的值重新初始化
D.定义数组时，数组维界值可以不是整数
30.可以把变化长字符串S中的第一个"ABC"子串，替换成“1234"的语句是（　　　）

A. S=Left(s, InStr(S,"ABC"))&"1234" & Right(S,Len(S)-InStr(S,"ABC")-2)
B. Mid(S,InStr(S,"ABC"),3)="1234"
C. Mid(S,InStr(S,"ABC"),4)="1234"
D. S=Left(s, InStr(S,"ABC")-1)&"1234"& Right(S,Len(S)-InStr(S,"ABC")-2)

二填空题

1.执行下面程序，当单击窗体时，显示在窗体上第一行的内容是 200 ，第二行的内容是 10
Private Sub Form_Click()
   Dim I As Integer,Sum As Intger
   For I=0.5 To 8.5 Step2.5
   Sum=Sum+I*10
   Next I
   Print Sum
   print I
End Sub
2.运行下面的程序，当单击窗体时，窗体上显示的内容的第一行是 0:1 ，第三行是 2：3 ，第五行是 4：1 。
Private Sub From_Click()
    Dim s As String, i As Integer,n(9) As Integer
    Dim s1 As String*1,j As Integer
    s=Trim("12345a307291b233")
    For i=1 To Len(s)
       s1=Mid(s,i,1)
       If s1>="0" And s1<="9"Then
         j=Val(s1)
         n(j)=n(j)+1
       End If
    Next i
    For j=0 To 9
     Print j; ":" ;n(j)
    Next j
End Sub
3.执行下面程序，单击命令按钮Command1后，显示在窗体上第一行的内容是 11 ，第二行的内容是 61 ，最后一行的内容是 136

最后一行的内容是（８）
Option Explicit
Dim N As Integer
Private Sub Command1_Click()
    Dim I As Integer, J As Integer
    For I=3 To 1 Step -2
        N=Fun(I,N)
        Print N
    Next I
End Sub
Private Function Fun (A As Integer) As Integer
    Static X As Integer
    Dim Sum As Integer,I As Integer
    X=X+N
    For I =1 To A
        B=B+X+I
        N=N-I\2
        Sum=Sum+B
    Next I
    A=A+1
    Fun=Sum+A
End Function
4.执行下面程序，单击命令按钮Command1后，显示在窗体上第一行的内容是 00 00 02 ，A(2,1)的值是 08 ，A(3,3)的值是 03

Option Base 1
Private Sub Command1_Click()
    Dim A(3,3) As Integer,K As Integer
    Dim I As Integer,j As Integer
    Call SUB1(A)
        For I=1 To 3
            For J= 1 To 3
                Print Right("0"&A(I,J)&" ",3);
            Next J
        Print
     Next I
End Sub
Private Sub SUB1(A() As Integer)
    Dim N As Integer,K As Integer, J As Integer
    N=UBound(A,1)
    For I=1 To N-2
        For J= I To N-I
            A(I,J)=K+1
            A(J,N+1-I)=K+2
            A(N+1-I,N+1-J)=K+3
            A(N+1-J,I)=K+4
            K=K+4
      Next J
    Next I
    If N Mod 2<>0 Then
       A((N+1)/2, (N+1)/2)=K+1
    End If
End Sub
5.执行下面程序，单击命令按钮Command1后，显示在窗体上第一行的内容是 4 ，第二行的内容是 8 ，第三行的内容是１6
Option Explicit
Private Sub Command1_Click()
    Dim N As Integer, M As Integer

N=2

    DO While m<3
      N=N+2
      If Fun(N) Then
         Print N
         M=M+1
      End If
    Loop
End Sub
Private Function Fun(ByVal N As Integer) As Boolean
    If N/2=Int(N/2)Then
      Fun=Fun(N/2)
    Else
      If N=1 Then Fun=True
    End If
End Function
6.在下面程序中，Command1_Click()事件过程的功能是生成一个5x5的矩阵，该矩阵的副对角线（指矩阵左下角到矩阵右上角连线上的元素）上方元素都是偶数，副对角线和它的下方元素都为奇数。Command2_Click()事件过程的功能是，交换以副对角线为界线的上三角和下三角的对应元素。完善程序，实现以上功能。

Option Explicit
Option Base 1
Dim A(5,5) As Integer
Private Sub Command1_Click()　　
     Dim I As Integer,J As Integer , N As Integer
     Randomize
     For I=1 To 5
         For J=1 To 5
             Do
               N=Int(rnd*90)+10
               If J <=5-I And N Mod 2=0 Then
               A(I,J)=N
             ElseIf J >5-I And N Mod 2<> 0 Then
               A(I,J)=N
             End If
         Loop ___until true
         Text1=Text1 & Str(A(I,J))
     Next J
     Text1=Text1 & vbCrLf
   Next I
End Sub
Private Sub Command2_Click()
     Dim I As Integer,L As Integer,T As Integer
     Dim J As Integer,R As Integer
     For I =1 To 5
         For J=1 To 5-I
             T=A(I,J)
             L=6-i
　　　　　　 R=6-j
             A(I,J)=A(L,R)
             A(L,R)=T
         Next J
      Next I
      For I =1 To 5
         For J =1 To 5
             Text2=Text2 & Str(A(I,J))
         Next J
         Text2=Text2 & vbCrLf
      Next I
End Sub

7. 在下面程序中，Command1_Click()事件过程的功能是将26个大写字母A~Z依次写到二进制文件Myfile中，Command2_Click() 事件过程的功能是将文件中的大写字母在原位置——改写成小写字母，完善程序，实现以上功能。

Option Explicit
Dim S As String*1
Private Sub Command1_Click()
     Dim I As Integer
     For I=0 To 25
         S= Chr(Asc("A")+I)
         Put #12, , S
     Next I
End Sub

Private Sub Command2_Click()
     Dim Rc_NO As Integer
     Seek #12, 1
     Do While Not Eof(12)

　　　　 S=input(1,#12)
       S=LCase(S)
　　　　 Rc_NO=Rc_NO+1
       Put #12,Rc_NO, S
     Loop
End Sub
Private Sub From_Load()
     Open"e:\Myfile" For Binary As #12
End Sub
8.下面程序的功能是对密文解密。密文的加密方法是以字符为单位，取其ASCII码，按逆序保存（例如字母"e"的ASCII码是01100101,密文中则为10100110）。解密是加密的逆过程。完善程序，实现以上功能。
Private Sub Command1_Click()
    Dim s As String, st As String, i As Integer,n As Integer
    s=Text1
    Do Until n >=Len(s)
       n=n+1

       If n Mod 8 <> 0 Then
           st=st &Mid(s,n,1)
       Else
           st=st & Mid(s,n,1)
           List1.AddItem st
　　　　　　 st=""
       End If
    Loop
End Sub
Private Sub Command2_Click()
    Dim s As String, st As String, i As Integer
    For i=0 To List1.Listcount
        st=List1.List(i)
        For j=1 To Len(st)
            s=Mid(st,j,1) & s
    Next j
    For j=Len(s) To 1 Step-1
         n= n+2^(j-1)
    Next j
    Text2=Text2 & Chr(n)
     s=" "
    n=0
　 Next i
End Sub

9.下面程序的功能是，找出100以内所有可以表示成3个连续自然数之和的数。完善程序，实现以上功能。
　　
Option Explicit
Private Sub Command1_Click()
     Dim I As Integer, N As Integer
     Dim Js As Integer, S As String
     For I =1 To 100
         If Fun(I,N,Js)Then
            S=Str(I) & "=" & N
            Do while n<=js-1
               N=N+1
               S=S & "+" & N
            Loop
            List1.AddItem S
         End If
     Next I
End Sub
Private Function Fun(L As Integer, M As Integer, Js As Integer) As Boolean
    Dim I As Integer, Sum As Integer, K As Integer
    For I =1 To L
        Sum=0
　      K=0
　　　 Js=i-1
        Do While Sum < L And K < 3
            K=K+1
            Js=Js+1
            Sum=Sum+Js
        Loop
        If　 k=3 And Sum=L then
             M=I
             Fun=True

E xit For

Exit if
Next I
End Function

木子李 2006-10-21 09:34 发表评论

江苏省等级考试二级VB笔试试卷2005年（秋）及参考答案

木子李 — Sat, 21 Oct 2006 01:28:00 GMT

第二部分 VB程序设计

一、选择题

21．以下所列的8个控件中，具有Caption属性的有个。

CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、DirListBox（文件夹列表框）、Image（图像框）、Frame（框架）、Label（标签）、Line（线条）

A．5 B．4 C．3 D．2

22．执行下面语句后，Len函数值最大的是。

Dim IA As Integer, B As Single, S As String *5, Ch As String

IA=32767 : B=23.5 : S=”A” :Ch=”abcd”

A．Len(IA) B．Len(B) C．Len(S) D．Len(Ch)

23．假设变量Lng为长整形变量，下面不能正常执行的语句是。

A ． Lng=16384*2 B．Lng=4*0.5*16384

C．Lng=190^2 D．32768*2

24．数学表达式对应的正确Visual Basic表达式为。

A．-b+Sqr(b*b-4*a*c)/2*a

B．-b+Sqr(b*b-4*a*c)/(2*a)

C．(-b+Sqr(b*b-4*a*c))/(2*a)

D．(-b+Sqr(b*b-4*a*c))/ 2*a

25．设Mys1,Mys2均为字符串型变量，Mys1=”Visual Basic”,Mys2=”b”,则下面关系表达式中结果为的是。

A．Len(Mys1)<>2*InStr(Mys1,”1”)

B．Mod(Mys1,8,1)>Mys2

C．Chr(98)&Right(Mys1,4)=”Basic”

D．InStr(Left(Mys1,6),”a”)+60

26．在窗体模块代码窗口的通用声明处，可以使用语句说明数组的是。

① Public A(10) As Integer ② Dim A(10) As Integer

③ Private A(10)As Integer ④ Static A(10) As Integer

A．①② B．②③ C．③④ D．①④

27．设A=7,B=4,C=6,，则表达式A Mod3+B^3/C\5的值为。

A．1 B．2 C．3 D．出错

28．下列说法中，错误的是。

A．当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭

B．在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁

C．可以用不同的文件号同时打开一个随机文件

D．用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除

29．程序中有两个过程Private Sub Fun1(S As String)和Private Sub Fun2(a() As String 6)，在调用过程中用Dim St(6) As String6定义了一个字符串数组。下面调用语句中正确的是。

① Call Fun1(St(3)) ② Call Fun2(St) ③ Call Fun1(St) ④ Call Fun2(St(6) )

A．①② B．①③ C．②③ D．②④

30．DrawStyle属性用于设置图形方法输出的线型，它受属性的限制。

A．FillStyle B．FillColor C．BorderStyle D．DrawWidth

二、填空题

1．若窗体有列表框，则List1.List(List1.ListIndex)的值等于List1的__Text___属性值。

2．执行下面的程序，当单击Command1时，列表框List1的第2列表项内容是3 ，第4列表项内容是_15_，第5列表项内容是 28 。

Private Sub Command1＿Click（）

Dim I As Integer，j As Integer

For I =1 To 10

j=I+j

List1.AddItem j

Next I

For I =1 To 4

List1.RemoveItem List1.ListCount - I

Next I

End Sub

3．运行下面的程序，当单击Command1时，窗体上显示的第一行内容是DCB，第三行内容是D，第四行内容是3。

Private Sub Command1＿Click（）

Print Text（3）

End Sub

Private Function Text（t As Integer）As Integer

Dim i As Integer

If t＞=1 Then

Call Test（t-1）

For i = 3 To t Step - 1

Print Chr（Asc（“A”）+ i）；

Next i

End if

Test = t

End Function

4．运行下面的程序，当单击窗体时，窗体上显示的第一行内容是10 8，第三行内容是5 2，第四行内容是12 -10。

Dim x As Integer，y As Integer

Private Sub Form＿Click（）

Dim a As Integer，b As Integer

A=5：b=3

Call sub1（a，b）

Print a，b

Print x，y

End sub

Private Sub sub1（ByVal m As Integer，n As Integer）

Dim y As integer

X=m+n：y=m-n

M=fun1（x，y）

N=fun1（y，x）

End sub

Private Function fun1（a As Integer，b As Integer）As Integer

X=a+b：y=a-b

Print x，y

Fun1=x+y

End function

5．执行下面的程序，当单击COMMAND1时，picute1中显示内容的第二行与第四行分别是5 6 7 8与13 14 1516，picture2中显示内容的第一行和第三行分别是4 8 12 16与2 6 10 14。

Private Sub Command1＿Click（）

Dim a（4，4）As Integer，I As Integer，j As Integer

Dim b（4，4）As Integer

For I=1 To 4

S=“”

For j =1to 4

A（I，j）=（（I-1）*4+j）

S=s&Right（“ “& Str（a（I，j）），3）

Next j

Picture1.Print s

Next i

For I=1 To 4

For j=1 To 4

B（5-j，I）=a（I，j）

Next j

Next i

For I=1 to 4

S=“”

For j = 1 To 4

If Len（（CStr（b（I，j）））＜2 Then

S=s&“” & CStr（b（I，j））&“ “

Else

S=s& CStr（b（I，j））&“ “

End if

Next j

Picture2.Print s

Next i

End Sub

6．下面程序的功能时，输入x的值，利用递推法分别求出级数前n项（n=0，1，2，3…）之和。

S=a0+a1+…+an+…

其中，

a ₀=1 a _n=a _n-1 * n=1,2,3……

计算积数，直到第n项的绝对值小于等于0.001时停止，完善程序，实现以上功能。

Option Explicit

Private Sub Command1＿Click（）

Dim x As Single， I As Integer， s As Single

Dim a As Single， a1 As Single

X = Text1

A=1：s = a

List1.AddItem“s（“&“0）=” & Str（s）

I=I+1

____ a1=a*x*(3-2*i)/(2*i)___ ___

S=s+a1

List1.AddItem“s（” &CStr（I）&“）=” & Str（s）

If Abs（a1）〈=0.001 Then

Text2=i

Exit do

Else

A=a1

End if

Loop

End Sub

7．下面程序的功能时，验证任意一个大于5的奇数可表示为3个素数之和。完善程序，实现以上功能。

Option Base 1

Private Sub Command1＿Click（）

Dim P（）As Integer，N As Integer，L As Integer

Dim I As Integer，J As Integer，k As Integer

Dim ch As String

N=InputBox（“输入一个大于5的奇数！”）

Label1.Caption= str(n) & “=”

Call Prime（P，N）

L=Ubound（P）

For I=1 to L

For J=1 to L

For k =1 to L

Ifp(i)+p(j)+p(k)=n then

Ch=CStr（P（I）&“+” &CStr（P（J））&“+” & CStr（P（k））

Text1.text = ch

Exit sub

End if

Next k

Next J

Next I

End sub

Private Sub Prime（A（）As Integer，N As Integer）

Dim I As Integer，Idx As Integer

Dim J As Integer

For I=2 to N

For J = 2 To Sqr（I）

If I Mod J =0 Then Exit For

Next J

If J>Sqi(I) then

__ _idx=idx+1___ _ __

redim preserve A(idx)

a(idx)=I

end if

8．将20个棋子围成一圈，按顺时针方向从1-20给棋子编号，从中取出棋子的规则是：从某编号棋子开始取出第1个棋子，然后按顺时针方向围绕周数棋子，从1数到2取第2个，再从1数到3取第3个，再从1数到4取第4个……直到取完。本程序的功能就是找出依照上述规则取棋子的编号序列，使得最后一个被取棋子的编号为指定的编号。例如：若指定最后取棋子的编号为9，则必须从编号为17的棋子开始取第一个棋子，取棋子的顺序是：17，19，2，6，11，18……。完善程序，实现以上功能。

Option base 1

Private sub command1_click()

Dim a(20) as integer,I as integer,k as integer

Dim n as integer,number as integer,s as string

Number=val(text2)

For k=1 to 20

For I=1 to20

A(i)=1

Next I

S=_left(cstr(k) & “--”,3)

Call sub1(a,k,n,s)

If n=number then

Text1=s

Exit for

End if

Next k

End sub

Private sub sub1(a() as integer,byval idx as integer,n as integer,s as string)

Dim I as integer,js as integer,sum as integer

Dim ub as integer,step as integer

_____ub=ubound(A)__________

js=1:stemp=1

a(idx)=0

do while js<20

step=step+1

____sum=0_______

do while sum

idx=idx+1

if idx>ub then ____idx =idx mod ub___

sum=sum+a(idx)

loop

a(idx)=0

s=s & left(cstr(idx) & “ ”,3)

____js=js+1______

if js mod 10=0 then s=s & vbcrlf

loop

n=idx

end sub

9．C盘根目录下的数据文件data.txt中有两组数据，第一组数据未排序，并以-1表示该组数据结束；第二组数据按从小到大顺序排列。下面程序的功能是，单击“读入数据”按钮，将文件中的两组数据，分别读入到A、B数组中，单击“插入排序”按钮，则把A数组的元素按其大小依次插入到B数组的适当位置，使得B数组中元素仍为从小到大排列。完善程序，实现以上功能。

Dim a() as integer, b() as integer

Private sub command1_click()

Dim I as integer,j as integer,n as integer, s as string

__ open “c:\data.txt” for input as #11__

input #11,n

if n=-1 then exit do

I=I+1

Redim preserve a(i)

A(i)=n

S=s & str(a(i))

Loop

Text1=s

S=””

___Do while not eof(1)__

j=j+1

redim preserve b(j)

input #11,b(j)

s=s & str(b(j))

loop

text2=s

close 11

end sub

private sub command2_click()

dim I as integer, j as integer, s as string

for I=1 to ubound(a)

if a(i) then

call change(a(i),1)

elseif a(i)>b(ubound(b)) then

___redim preserve b(ubound(b)+1)___

b(ubound(b))=a(i)

else

for j=2 to bound(b)

if(a(i)>b(j-1)) and a(i)<=b(j) then call change(a(i),j)

next j

end if

next I

for I=1 to ubound(b)

s=s & str(b(i))

next I

text3=s

end sub

private sub change( n as integer,k as integer)

dim I as integer

redim preserve b(ubound(b)+1)

for I=ubound(b) to k+1 step –1

_____b(I)=b(I-1)_

next I

____b(k)=n__

end sub

木子李 2006-10-21 09:28 发表评论

江苏省等级考试二级VB笔试试卷2005年（春）及参考答案

木子李 — Sat, 21 Oct 2006 01:10:00 GMT

第二部分　 Visual Basic 程序设计

一• 选择题 （用答题卡答题，答案依次填在 21~30 答题号内）

２１．以下关于方法的叙述中，错误的是 ____________ 。

Ａ．方法是构成对象实体的一个部分
Ｂ．方法是一种特殊的过程或函数　
Ｃ．调用方法的一般格式是：对象名称．方法名称［参数］
Ｄ．在调用方法时，对象名称是不可缺少的

２２．创建应用程序的界面时，在窗体上设置了一个命令按钮，运行程序后，命令按钮没有出现在窗体上，可能的原因是 ____________ 。

Ａ．该命令按钮的 Value 属性被设置为 False
Ｂ．该命令按钮的 Enabled 属性被设置为 False
Ｃ．该命令按钮的 Visible 属性被设置为 False
Ｄ．该命令按钮的 Default 属性被设置为 True

２３．若需要在同一窗口内安排两组相互独立的单选按钮（ OptionButton ），可使用 ____________ 控件将它们分隔开。

　　　① TexBox 　　　　　② Picture 　　　③ Image 　　　　④ Frame

　　　Ａ． ①② 　　Ｂ． ②③ 　Ｃ． ②④ 　　Ｄ． ③④

２４．单击滚动条两端的箭头时，滚动条 Value 属性值的改变量由 ____________ 属性值决定。

Ａ． LargeChange 　Ｂ． Max 　　Ｃ． SmallChange 　Ｄ． Min

２５．设变量 D 为 Date 型、 A 为 Integer 型、 S 为 String 型、 L 为 Long 型，下面赋值语句中不能执行的是 ____________ 。

Ａ． D=#12:30:00 PM# Ｂ． A=”3277e 1” Ｃ． S=Now Ｄ． L=”4276D 3”

２６．下面表达式中， ____________ 的值是整型（ Interger 或 Long ）。

　　① 36+4/2 　　　② 123+Fix(6.61) 　　　　　　③ 57+5.5\2.5 　　　　　④ 356 & 21　　　　 ⑤ “374”+258 　　　　　　　　⑥ 4.5 Mod 1.5

Ａ．　 ①②④⑥ 　Ｂ． ③④⑤⑥ 　Ｃ． ②④⑤⑥　　Ｄ． ③⑥

２７．在 Select Case X 结构中，描述判断条件 3 ≦ X ≦ 7 的测试项应该写成 ____________ 。

　　　Ａ． Case 3 ≦ X ≦ 7 　　　　　　　　　Ｂ． Case 3 ≦ X ， X ≦ 7 　
　　　Ｃ． Case Is ≦ 7 ， Is ≧ 3　　　　　Ｄ． Case 3 To 7

２８．下面关于过程参数的说法，错误的是 ____________ 。

Ａ．过程的形参不可以是定长字符串类型的变量
Ｂ．形参是定长字符串的数组，则对应的实参必须是定长字符串型数组，且长度相同
Ｃ．若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合
Ｄ．按值传递参数，形参和实参的类型可以不同，只要相容即可

２９．下面有关文件管理控件的说法，正确的是 ____________ 。

Ａ． ChDir 语句的作用是指明新的缺省工作目录，同时也改变目录列表框的 Path 属性
Ｂ．改变文件列表框的 FileName 属性值，仅改变列表框中显示的文件名，不会引发其它事件
Ｃ．改变驱动器列表框的 ListIndex 属性值，会改变 Drive 属性值并触发 Change 事件
Ｄ．单击目录列表框中某一项，会触发 Change 事件

３０．以下有关 Line 划线方法的说明，错误的是 ____________ 。

Ａ． Line 方法既可用于单个划线，也可用于连续划线
Ｂ． Line 方法中的 Step 选项用于指定由 CurrentX 、 CurrentY 属性决定的图形坐标位置
Ｃ． Line 方法划线的宽度由 DrawWidth 属性决定
Ｄ．当使用 F 选项时， Line 方法可用于绘制矩形

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）

１．执行下面的程序，单击窗体，则在窗体上显示的是 ____-1________ 。
　　Option Explicit
　　Private Sub Form_Click()
　　　　Dim a As Integer, b As Integer, c As Integer
　　　　b = 6: c = 6.5
　　　　a = b = c
　　　　Print a
　　End Sub

２．执行下面的程序，单击按钮 Command1 ，在窗体上显示的第一行是 ____0.6________ ，第二行是 ____1.8________ ，第三行是 _____5.4_______ 。
　　Option Explicit
　　 Private Sub Command1_Click()
　　　　　Dim x As Single, i As Integer
　　　　　x = 1.2
　　　　　For i = 1 To 3
　　　　　　　x = x * i
　　　　　　　Print fun1(x)
　　　　　Next i
　　End Sub
　　Private Function fun1(x As Single) As Single
　　　　Static y As Single
　　　　y = y + x
　　　　fun1 = y / 2
　　End Function

３．执行下面的程序后，单击按钮 Command1 ，则 N 的值是 ____10________ ， A 的值是 _____27_______ ， B 的值是 _____9_______ 。
　　Option Explicit
　　Dim n As Integer
　　Private Sub Command1_Click()
　　　　Dim a As Integer, b As Integer
　　　　a = 2: b = 3
　　　　For n = 1 To 6
　　　　　　If n Mod 2 = 0 Then
　　　　　　　　b = fun(n, a) + a
　　　　　　Else
　　　　　　　　a = fun(b, n) + b
　　　　　　End If
　　　　Next n
　　　　Print n, a, b
　　End Sub
　　Private　Function fun(x As Integer, y As Integer) As Integer
　　　　　x = y - 1 + n
　　　　　y = x + y - n
　　　　　fun = x + y
　　End Function

４．执行下面的程序，单击按钮 Command1 ，窗体上显示的结果中 I 的值是 ____11________ ， J 的值是 ____2________ ， K 的值是 _____43_______ 。
　　Option Explicit　
　　Private Sub Command1_Click()
　　　　Dim i As Integer, j As Integer
　　　　Dim k As Integer
　　　　i = 1: j = 2
　　　　k = fun(i, fun(i, j)) + i + j
　　　　Print "i="; i; "j="; j; "k="; k
　　End Sub
　　Function fun(a As Integer, ByVal b As Integer) As Integer
　　　　a = a + b
　　　　b = a + b
　　　　fun = a + b
　　End Function

５．执行下面的程序，单击按钮 Command1 ， A （ 1 ， 1 ）的值是 _____7_______ ， A （ 1 ， 4 ）的值是 _____1_______ ， A （ 4 ， 1 ）的值是 ____16________ ， A （ 4 ， 4 ）的值是 _____10_______ 。
　　Option Base 1
　　Private Sub Command1_Click()
　　　　Dim a() As Integer, i As Integer, j As Integer
　　　　Dim k As Integer, n As Integer
　　　　n = 4
　　　　ReDim a(n, n)
　　　　i = 1: j = n: a(i, j) = 1
　　　　For k = 2 To n * n
　　　　　　If 　i + 1 > n Then
　　　　　　　　i = n - j + 2: j = 1
　　　　　　ElseIf　 i + 1 <= n And j + 1 > n Then
　　　　　　　　　　j = j - i: i = 1
　　　　　　Else
　　　　　　　　　　i = i + 1: j = j + 1
　　　　　　End If
　　　　　　a(i, j) = k
　　　　Next k
　　　　For i = 1 To n
　　　　　　For j = 1 To n
　　　　　　　　Print a(i, j);
　　　　　　Next j
　　　　　　Print
　　　　Next i
　　End Sub

　　Option Explicit
　　Private Sub Form_Click()
　　　　Dim y As Single, t As Single, a As Single
　　　　y = 2: t = 0
　　　　Do
　　　　　　 t = Sqr(2 + t)
　　　　　　a = 2 / t
　　　　　　If Abs(a - 1) < 10 ^ (-5) Then Exit Do
　　　　　　y = y * a
　　　　Loop
　　　　Print "pi="; y
　　End Sub

７．本程序的功能是从给定的纯英文字符串中找出最长的一个按字母顺序排列的子串。程序界面参见图 1 。
　　

Option Explicit
Private Sub Command1_Click()
　　 Dim st As String
　　 st = Text1
　　 Text2 = max_st(st)
End Sub
Private　Function max_st(st As String) As String
　　Dim i As Integer, sta As String
　　Dim p As String
　　p = Mid(st, 1, 1)
　　For i = 1 To Len(st) - 1
　　　If Asc(Mid(st, i + 1, 1)) - Asc(Mid(st, i, 1)) = 1 Then
　　　　　 p = p & Mid(st, i + 1, 1)
　　　Else
　　　　　If Len(p) > 1 And Len(p) > Len(sta) Then
　　　　　sta = 　p　　　　

　　　　　 End If
　　　　　 p = Mid(st, i + 1, 1)
　　　End If
　　Next i
　　If Len(p) > 1 And Len(p) > Len(sta) Then
　　　　　 max_st = p
　　Else
　　　　　max_st = sta
　　End If
End Function

８．下面程序的功能是找出由两个不同的数字组成的回文平方数。程序界面参见图 2 。
　　 Option Explicit
　　Private Sub Command1_Click()
　　　　Dim a(0 To 9) As Integer, i As Long, flg As Boolean
　　　　Dim l As Long, j As Integer, sum As Integer

　　　　For i = 10 To 1000
　　　　　　l = i * i
　　　　　　 Erase a
　　　　　　Call sub1((l), a, flg)
　　　　　　If flg Then
　　　　　　　For j = 0 To 9
　　　　　　　　　sum = sum + a(j)
　　　　　　　Next j
　　　　　　　If sum = 2 Then
　　　　　　　　 List1.AddItem CStr(i) & "^2=" & Str(l)
　　　　　　　End If
　　　　　　End If
　　　　　　sum = 0
　　　　Next i

　　 End Sub
　　Private Sub sub1(x As Long, a() As Integer, bl As Boolean)
　　　　Dim n As Integer, idx As Integer, i As Integer
　　　　bl = False
　　　　n = Len(CStr(x))
　　　　For i = 1 To n / 2
　　　　　　If Mid(CStr(x), i, 1) <> Mid(CStr(x), n - i + 1, 1) Then
　　　　　　　　Exit Sub
　　　　　　End If
　　　　Next i
　　　　bl = True
　　　　For i = 1 To n
　　　　　　idx = x Mod 10
　　　　　　 a(idx) = 1　　
　　　　　　x = (x \ 10)
　　　　Next i
　　End Sub

９．下面程序的功能是随机生成 10 个不同的两位数，从中找出所有互质数对。若两个数除了 1 以外没有其他公约数，这两个数就是互质数。其中函数 Rec 是一个递归函数。程序界面参见图 3 。
　　Option Explicit
　　Private Sub Command1_Click()
　　　　Dim a(10) As Integer, i As Integer, j As Integer
　　　　Dim n As Integer, k As Integer
　　　　Randomize
　　　　a(1) = Int(90 * Rnd) + 10
　　　　Text1 = a(1)
　　　　　k = 1
　　　　Do 　　While k < 10
　　　　　　n = Int(90 * Rnd) + 10
　　　　　　If 　　InStr　　 (Text1, CStr(n)) = 0 Then
　　　　　　　　Text1 = Text1 & Str(n)
　　　　　　　　k = k + 1
　　　　　　　　a(k) = n
　　　　　　End If
　　　　Loop
　　　　For i = 1 To 9
　　　　　　For j = i + 1 To 10
　　　　　　　　If Not rec(a(i), a(j), 2) Then
　　　　　　　　　　List1.AddItem Str(a(i)) & Str(a(j))
　　　　　　　　End If
　　　　　　Next j
　　　　Next i
　　End Sub
　　Private　Function rec(n As Integer, m As Integer, k As Integer) As Boolean

　　　If k > n Then
　　　　 rec = False
　　　Else
　　　　　If n Mod k = 0 And m Mod k = 0 Then
　　　　　　rec = True
　　　　　　 Exit Function
　　　　　Else
　　　　　　 rec = rec(n, m, k + 1)
　　　　　End If
　　　End If
　　End Function

木子李 2006-10-21 09:10 发表评论

江苏省等级考试二级VB笔试试卷2004年（春）及参考答案

木子李 — Sat, 21 Oct 2006 00:54:00 GMT

第二部分 Visual Basic 程序设计

一、选择题（用答题卡答题，答案依次填在21-30答题号内）

21．在VB中，下列关于控件的属性或方法中，搭配错误的有（21）个。
　　1）Timer1.Interval 　　　2)List1.Cls 　　　　　3) Text1.Print
　　4)List1.RemoveTtem 　　　5)Vscroll1.Value　　 6)Picture1.Print
　　A. 0　　　　 B . 1 　　　　 C. 2 　　　　　　　 D. 3

22.下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是（22）。
　 A.List1.ListCount 　　B.Text1.Index　　 C. Dir1.Path　 D.Label1.Visible

23.下面（23）语句，可以将列表框List1中的当前选定的列表项的值替换成”ABC”.
A.List1.AddItem”ABC’,List1.ListIndex　　　　　　 B.List.Text=”ABC”
C.List1.List(List.ListIndex)=”ABC” 　　　　　　　 D.前三项均可

24．函数CInt(-3.5),Int(-3.5),Fix(-3.5)的值分别是（24）。
　 A.-3 ,-4 , -3 　　　 B.-4 , -4 ,-3　　　 C.-3 , -4 , -4 　　　　D.-4, -3 , -3

25.设整形变量a、b 的当前取值分别为200与20，以下赋值与句中不能正确执行的是（25）。
　 A. Text1=a/b*a 　　　　　　　　　　　 B. Text1 = a*a/b
　　C. Text1 = “200”*a/b 　　　　　D. Text1 = A & b & a

26.对正实数X 的第四位小数四舍五入的VB表达式是（26）。
　 A．0.001*Int(x+0.005)　　　　　　 B.0.001*(1000*x+0.5)
　C.0.001*Int(1000*x+5) 　　　　　　 D.0.001*Int(1000*(x+0.0005))

27.下列有关数组的说法中,不正确的是（27）。
　 A.在窗体模块中不可以定义全局数组
　　 B. 可以使用Erase语句释放所有数组所占据的存储空间
　　C. 语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维德整形数组
　　D. 形参数组的类型可以是定长字符串类型

28．根据控件有下列（28）属性，就能判断该控件是否可以和数据控件绑定。
　 1) RecordSource 　　2)DataSource 　　3)DataField 　　　4)DatabaseName
　 A. 1) 3) 　　　 B. 2) 3) 　　　　 C. 3) 4) 　　　　　D. 1) 4)

29.窗体上放置有名为Drive1与Dir1的驱动器列表框与文件夹列表框，需要在选定驱动器列表框中的列表项时，文件夹列表框中的内容随之改变，正确的语句及语句的位置是（29）。
　　 A.Dir1.Path = Drive1.Path ‘位于Drive1_Change()过程
　　　B. Dir1.Path = Drive1.Path ‘位于Dir1_Change()过程
　　　C. Dir1.Path = Drive1.Drive ‘位于Drive1_Change()过程
　　　D. Dir1.Path = Drive1.Drive ‘位于Dir1_Change()过程

30.执行下面的程序段，结果是（30）。
　　X = Width/2:Y = Height/2
　　Picture1.Line(X,Y)-(X,Y -2000)
　　Picture1.Line(X,Y + 2000)-(X,Y)
　　Picture1.Line – (X – 2000,Y)
　　A. 在图片框中画形如┫的交叉直线
　　　B. 在图片框中画形如┣的交叉直线
　　　C. 在图片框中画形如┳的交叉直线
　　　D. 在图片框中画形如┻的交叉直线

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）

1．执行Command1_Click实践过程后，显示在窗体上的第一行内容是 CUPMOT ，第二行内容是 COPMUT ，第三行内容是 COMPUT 。
Private Sub Command1_Click()
Dim i As Integer, s As String, k As Integer

s = "TUPMOC": k = Len(s)
For i = 1 To k / 2

Mid(s, i, k - 2 * (i–1)) = Mid(s, k + 1 - i, 1) & Mid(s, i + 1, k - 2 * i) & Mid(s, i, 1)
Print s
Next i
End Sub

2．运行下面的程序，当单击窗体时，窗体上第一行内容是 10 6 ，第三行内容是 5 4 ，第四行内容是 10 -6 。
　Dim x As Integer, y As Integer
　Private Sub Form_Click()
　Dim A As Integer, B As Integer
　　A = 5: B = 3
　　Call Sub1(A, B)
　　Print A, B
　　Print x, y
　End Sub
　
　 Private Sub Sub1(ByVal M As Integer, N As Integer)
　　Dim x As Integer, y As Integer
　　　x = M + N: y = M - N
　　　M = fun1(x, y)
　　　N = fun1(y, x)
　End Sub
　Private Function fun1(A As Integer, B As Integer) As Integer
　　　x = A + B: y = A - B
　　　Print x, y
　　　fun1 = x + y
　End Function

3.执行Command1_Click事件过程时，共输出四行数据，其中第三行输出结果为 2 　 13 。
　Private Sub Command1_Click()
　　dunno 3
　End Sub
　Public Function dunno(M As Integer) As Integer
　Dim value As Integer
　　　If M = 0 Then
　　　　　value = 3
　　　Else
　　　　　value = dunno(M - 1) + 5
　　　End If
　　　　　dunno = value
　　　　　Print M, value
　End Function　

4．执行下面程序，单击命令按钮 Command1 后，窗体上显示的第一行内容是 16 6 10 ，第二行内容是 40 12 28 , 最后一行内容是 56 ．
　　Private Sub Command1_Click()
　　Dim A As Integer, B As Integer, K As Integer
　　　　A = 2: B = 4
　　　　K = Fun((A), B) + Fun(A, B)
　　　　Print K
　　End Sub
　　Private Function Fun(N As Integer, M As Integer) As Integer
　　Static K As Integer
　　　　　N = N + M
　　　　　K = K + N
　　　　　M = M + K
　　　　　Fun = N + M
　　Print Fun; N; M
　　End Function

5．执行下面程序，单击命令按钮Command1 后，A(1,3)值是 19 ，A(2,2)值是 15 ，A(3,2)值是 14 。
　 Private Sub Command1_Click()
　　Dim I As Integer, J As Integer, K As Integer
　　Dim A(1 To 3, 1 To 3) As Integer, N As Integer
　　　　N = 3
　　　　For I = 1 To 3
　　　　For J = 1 To 3
　　　　K = K + 1
　　　　A(I, J) = K + 10
　　Print A(I, J); "*"
　　Next J
　　 Next I
　　Call Sub1(A, N)

　　 End Sub
　　Private Sub Sub1(A() As Integer, N As Integer)
　　Dim I As Integer, J As Integer, T As Integer, K As Integer
　　　　K = N + 1
　　　　For I = Int(N / 2) To 1 Step -1
　　　　For J = N–I To I Step -1
　　　　T = A(K–J, I)
　　　　A(K–J, I) = A(I, J)
　　　　A(I, J) = A(J, K - 1)
　　　　A(J, K - 1) = A(K–I, N + 1 - J)
　　　　A(K - I, N + 1 - J) = T

　　 Next J
　　Next I
　　End Sub

6．下面程序是求出所有的幸运数显示在列表框中，并将幸运数的个数显示到文本框中。凡前两位数字之和等于后两位数字之和的思维书称为幸运数。
　　 Private Sub Command1_Click()
　　Dim i As Integer, N As Integer, n1 As Integer, n2 As Integer
　　　　For i = 1000 To 9999
　　　　　　 n1 = i \ 100
　　　　　　n2 = i Mod 100
　　　　If sum(n1) = sum(n2) Then
　　　　　 N = N + 1
　　　　　List1.AddItem CStr(i)
　　　　End If
　　　　Next i
　　　　　Text1 = N
　　　　End Sub
　　　Private Function sum(s As Integer) As Integer
　　　Dim p As Integer, Q As Integer
　　　　　p = s \ 10
　　　　　 Q = s Mod 10
　　　　　sum = p + Q
　　　End Function
7. 若一个等比数列的首项为2，公比为3，其第n项到第m 项之和为720。下面是求出符合上述要求的n 和m 的程序。
　Private Sub Command1_Click()
　　Dim Num() As Integer, Q As Integer, A As Integer
　　Dim i As Integer, N As Integer, M As Integer
　　Const k As Integer = 720
　　ReDim Num(1)
　　　　A = 2: Q = 3
　　　　Num(1) = A
　　　　i = 1
　　Do
　　　　A = A * Q
　　　　i = i + 1
　　　 ReDim Preserve Num(i)
　　　Num(i) = A
　　Loop Until Num(i) >= 720
　　Call Sum1(Num, N, M, k)
　　Label1 = "第" + Str(N) & "项~第" & Str(M) & " 项的和是720"
　　End Sub
　Private Sub Sum1(Num() As Integer, N As Integer, M As Integer, ByVal k As Integer)
　Dim Ub As Integer, s As Integer, i As Integer, Idx As Integer
　　 Ub = UBound(Num)
　　For i = 1 To Ub
　　　s = 0
　　　N = i
　　　 Idx = i
　　Do Until s >= k
　　　s = s + Num(Idx)
　　　Idx = Idx + 1
　　Loop
　　　If s = k Then
　　　M = Idx–1
　　Exit For
　　End If
　　Next i
　　End Sub

8. 以下是一个加密程序，其中r1与r2是两个密钥表，分别对应字母a~z及空格。加密方法是从原文的字符串中取一个字符，再根据该字符在原文中的排位次序是奇数还是偶数，分别从r1或r2密钥表中查出相应的替代字符。如原文为“meet me at sunset”，其首字符为m，排位为1，则使用密钥表r1，由于在字母表中m为第13个字符，而r1中对应字符为t，故将m替换成t。其余类推。原文中如包含大写字母，则应先全部转换为小写字母。
　　　Const r1 As String * 27 = "qazwsxedcrfvtgbyhnujm ikolp"
　　　Const r2 As String * 27 = "poi uytrewqasdfghjklmnbvcxz"
　　　Private Sub Command1_Click()
　　　Dim I As Integer, code As String, s As String * 1
　　　Dim N As Integer, decode As String
　　　　　　　code = Text1.Text
　　　For I = 1 To Len(code)
　　　　　　　s = Mid(code, I, 1)
　　　If s <> " " Then　　　　
　　　　　 N = Asc(s) - 96
　　　If I Mod 2 <> 0 Then
　　　　　decode = decode & Mid(r1, N, 1)
　　　Else
　　　　　 decode = decode & Mid(r2, N, 1)
　　　End If
　　　Else
　　　If I Mod 2 <> 0 Then
　　　　　decode = decode & Mid(r1, 27, 1)
　　　Else
　　　　　decode = decode & Mid(r2, 27, 1)
　　　End If
　　　End If
　　　　　Next I
　　　　　Text2 = decode
　　　End Sub

9. 下面程序的功能是通过键盘输入一个正整数 N ，找出所有分母为N ，找出所有分母为 N ，且数值介于 1/3 和1/4 之间的最简分数（即分子、分母除1外无公因子）。
　　 Private Sub Command1_Click()
　　　Dim i As Integer, J As Integer
　　　Dim N As Integer, Flag As Boolean
　　　　　N = Val(InputBox("输入分母 N ：", , 11))
　　　　For i = 1 To N - 1
　　　　　Flag = False
　　　　　Call Sub1(i, N, Flag)
　　　　If Flag Then
　　　　　　Print CStr(i); "/"; CStr(N)
　　　　End If
　　Next i
　　End Sub
　　Private Sub Sub1(k As Integer, N As Integer, F As Boolean)
　　Dim i As Integer
　　　If k / N > 1 / 4 And k / N < 1 / 3 Then
　　　　　For i = 2 To k
　　　If N Mod i = 0 And k Mod i = 0 Then
　　　Exit Sub
　　　End If
　　　　Next i
　　　F = True
　　　End If
　　　End Sub

木子李 2006-10-21 08:54 发表评论

江苏省等级考试二级VB笔试试卷2003年（秋）及参考答案

木子李 — Sun, 15 Oct 2006 02:59:00 GMT

第二部分　Visual Basic 程序设计
　　　　

一、选择题（用答题卡答题，答案依次填在２１－３０答题号内）

２１ .无法响应Click事件的控件是＿（２１）＿．
Ａ．Label 　　　　Ｂ．Timer 　　Ｃ．TextBox　　　Ｄ．DriveListBox

２２ .在窗体上放置了DrivelistBox、 DirListBox和 FileListBox等三个控件，下面＿（２２）＿语句一定不会改变相应控件的Path或Drive属性。
Ａ．Drivel.ListIndex=2 　　　　　　　　Ｂ．Dir1ListIndex=-2
Ｃ．File1.FileName="a:\*.*" 　　　　　　Ｄ．File1.Path=Drive1.Drive

２３ .对于某对象的SetFocus和GotFocus描述正确的是＿（２３）＿。
Ａ．SetFocus是方法，GotFocus事件　　　Ｂ． SetFocus是事件，GotFocus是事件
Ｃ．SetFocus是方法，GotFocus是方法　　Ｄ．SetFocus是事件，GotFocus是方法

２４.设a为Integer型变量，s为Single变量，把３．７５赋值给s后，再执行下列某一语句，则在文本框中显示的结果与执行语句a＝s:Text1=a的结果相同的有＿（２４）＿。

（１） a=Int(s):Text1=a 　　　　　　　　　　　　　(2) a=Fix(s):Text1=a
(3)a=CInt(s):Text1=a 　　　　　　　　　　　　　　(4) a=Format(s,“#####”):Text1=a
　　Ａ．１　　　　　　　　　Ｂ．２　　　　　　Ｃ．３　　　　　　Ｄ．４

２５ .下列语句运行时系统给出错误提示的是＿（２５）＿。
Ａ．Print-32000-769 　　　　　　　　　Ｂ．Print"IE2"+8
Ｃ．Print"AB"&128　　　　　　　　　　Ｄ．Print3=2=4

２６ .描述Ｘ、Ｙ中只有一个小于Ｚ的逻辑表达式是＿（２６）＿。
Ａ．XＢ．X
Ｃ．X 　　　　　　　　　　　　Ｄ． X

２７ .以下有关控件数组的说法中错误的是＿（２７）＿。
Ａ．控件数组由一组具有共同名称和相同类型的控件组成
Ｂ．控件数组中的每一个控件共享同样的事件过程
Ｃ．控件数组中的每个元素的下标由控件的Index属性指定
Ｄ．同一控件数组中的元素只能有相同的属性设置值

２８ .下列说法＿（２８）＿是不正确的。
Ａ．当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭
Ｂ．在关闭文件或程序结束之前，可以不用Unlock语句对已琐定的记录解琐
Ｃ．可以用不同的文件打开同一个随机文件
Ｄ．用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除

２９ .VB的数据控件（Data）不能通过Connect属性对数据库＿（２９）＿直接访问。
Ａ．Microsoft Access 　　　　　　　　　　Ｂ．FoxPro
Ｃ．dBASE 　　　　　　　　　　　　　　　　Ｄ．Microsoft SQL Server　　

３０ .以下有关过程的说法中错误的是＿（３０）＿。
Ａ.在Sub或Function过程中不能再定义其他Sub或Function过程
Ｂ.在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方式结合
Ｃ.递归过程既可以是递归Function过程，也可以是递归Sub过程
Ｄ.在调用过程时，形参为数组的参数对应的实参只能是数组

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）

１.在程序运行时，将保存在Ｃ盘Pic文件夹中的名为Fishing.bmp的图片加载到图片框Picture1中的语句为 picture1.picture = load picture("c:\pic\Fishing.bmp")。
２.执行下面的Command1_Click事件过程后，Text1中显示的内容是 VISUAL ，Text2中显示的内容是 2003.10.11 。
Private Sub Command1_Click()
Dim S As String,I As Integer
Const Ch As String="0123456789."
S="2L0A03U.1SI0V.1I"
For I=1 To Len(S)
　　If InStr(Ch,Mid(S,I,1))=0 Then
　　　　Text1=Mid(S,I,1)&Text1
　　Else
　　　　Text2=Text2 & Mid(S,I,1)
　　End If
Next I
End Sub

３.执行下面程序，单击Command1按钮后，窗体上的第一行内容是 27 3 ，第二行内容是 18 0 ，最后一行内容是 Lcm = 27 。
Private Sub Command1_Click()
Dim N As Integer,M As Integer,Lcm As Integer
N = 9
M = 27
Lcm=Recursion(N,M)
Print "Lcm=";Lcm
End Sub
Private Function Recursion(A As Integer,B As Integer)As Integer
Static k As Integer
k=k+1
If A Mod B = 0 Then
　Recursion = A

Else
　Recursion = Recursion(A+A/k,B)
End If
　Print A,k
　k=0
End Function

４.执行下面程序，当单击Command1后，列表框中显示的第一行是 3 ，第二行是 7 ，第三行是 23 。
Private Sub Command1_Click()
　　Dim x As Integer,k As Integer
　　x = 483
　　k = 2
　　Do Until x<=1
　　　　If x Mod k = 0 Then
　　　　　　x = x\k
　　　　　　List1.AddItem Str(k)
　　　　Else
　　　　　　k=k+1
　　　　End If
　　Loop
End Sub

５.执行下面程序，单击命令按钮Command1后，窗体上显示的第一行内容是 10 4 6 ，第二行内容是 56 28 28 ，最后一行内容是 k=66
Private Sub Command1_Click()
Dim A As Integer,K As Integer
A = 2
K=Fun((A),A)+ Fun(A,A)
Print"K=";K
End Sub
Private Function Fun(X As Integer,Y As Integer)As Integer
Static K As Integer
K = K+X+y
X = X+Y
Y=Y+K
Fun = X+Y
Print Fun;X;Y
End Function

６．执行下面程序，窗体上显示的第二行是 4 5 6 ，单击命令按钮Cmd1,则窗体上显示的第四行是 1 6 7 ，第五行是 8 5 2 ，第六行是 3 4 9 。
Option Explicit
Opton Base 1
Private a(3,3)As Integer
Private Sub Form_Activate()
Dim i As Integer,j As Integer,k As Integer
k = 1
For j=1 To 3
　　For i=1 To 3
　　　a(i,j)=k
　　　k=k+1
　　　Print a(i,j);

Next i

Print
Next j
End Sub
Private Sub Cmd1_Click()
Dim b(4) As Integer,i As Integer,k As Integer,t As Integer
For i=2 To 4
　　b(i)=i-1
Next i
b(1)=2
For i=1 To 2
　　t=a(b(1),b(4))
　　a(b(1),b(4))=a(b(2),b(1))
　　a(b(2),b(1))=a(b(3),b(2))
　　a(b(3),b(2))=a(b(4),b(3))
　　a(b(4),b(3))=t
Next i
For i=1 To 3
　For k =1 To 3
　　　Print a(i,k);
　Next k
　Print
Next i
End Sub

７．本程序的功能是求下面数列前n项之和：

S(x,n)=x/2+2!*x^3/2*4+3!*x^5/2*4*6+.....+n!*x^2n-1/2*4*6...2n
Option Explicit
Private Sub Command1_Click()
Dim x As Single,s As Single
Dim n As Integer,i As Integer
x=InputBox("输入Ｘ："，＂求数列和＂，１)
n=InputBox("输入Ｎ："，＂求数列和＂，１)
For i=1 To n
　s=s+fun(x,i)
Next i
Label1.Caption= "s("& x &","& n &")="
Text1=s
End Sub
Private Function fun(x As Single,n As Integer)As Single
　Dim p As Single;i As Integer
p=1
For i=1 To n
　　 p=p*n/(2*n)
　　fun=x^(2*n-1)*p
End Function

8．下面程序的功能是统计文件中英文字母（不区分大小写）出现的个数。
Option Base 1
Private Sub Command1_Click()
Dim alpha(26) As Integer,n As Integer
Dim i As Integer,s As String
Open "c:\kav2003\readme.txt" For Input As #11
Do While Not EOF(11)
　　s= Input(1,11)
　　　s=UCase(s)
　　　If s>="A" And s<="Z" Then
　　　　n= Asc(s)-64
　　　　alpha(n)=alpha(n)+1
　　　End If
Loop
For i=1 To 26
　　If alpha(i)<>0 Then
　　　List1.AddItem Chr(i+64)&":"&CStr(alpha(i))
　　End If
Next i
Close
End Sub

９．下面程序的功能是依次将给定字符串Ａ中的字符逐个插入到字符串Ｂ中，插入的位置是字符串Ｂ中第一个与其相同的字符之后（不区分大小写），若Ｂ中无相同字符，则依次插入到Ｂ的末尾。

Private Sub Command1_Click()
Dim st1 As String,st2 As String
st1 = Text1.Text:st2 =Text2.Text
Call inst(st1,st2)
Text3 = st2
End Sub
Private Sub inst(s1 As String,s2 As String)
Dim i As Integer,p As String,n As Integer,n1 As Integer
For i = 1 To Len(s1)
　　p = Mid(s1,i,1)
　　If p>="A" And p<="Z" Then
　　 n = InStr(s2,p)
　　 n1=instr(s2,chr(Asc(p)+32))
　　 Call ins(s2,p,n,n1)
　　ElseIf p>="a" And p<="z" Then
　　　　n=instr(s2,chr(Asc(p)-32))
　　　　n1 = InStr(s2,p)
　　　　call ins(s2,p,n,n1)
　　Else
　　　　MsgBox"字符串Ａ中含有非字母字符！"，vbOKOnly,"合并字符串"
　　　　　Exit Sub
　　　End If
Next i
End Sub
Private Sub ins(s As String,p As String,n As Integer,k As Integer)
If n<>0 And k = 0 Or n<>0 And k<>0 And n>k Then
　　s = Left(s,n)&p& Right(s,Len(s)-n)
ElseIfn=0 and k<>0 or n<>0 and k<>0 and n　　s = Left(s,k)&p& Right(s,Len(s)-k)
Else
　　s　= s&p
End If
End Sub

１０．下面是一个采用拉锯式排序法对数组元素按升序进行排序的程序，所谓“拉锯式排序法”是这一遍把最小的元素从下到上送到最上的位置，下一遍则是从上到下把最大的元素送到最下的位置。

Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer,i As Integer
For i = 1 To 10
　　a(i) = Int(Rnd * 10)+1
　　Text1 = Text1 & Str(a(i))
Next i
Call shaker_sort(a)
For i = 1 To 10
　　Text2 = Text2 & Str(a(i))
Next i
End Sub
Private Sub Shaker_sort(k() As Integer)
Dim i As Integer,c As Integer,d As Integer
Dim t As Integer
c = 1
d = 10
Do
　For　i=d To c+1 Step-1
　　If k(i=1)>k(i) Then
　　　t = k(i-1):k(i-1) = k(i):k(i) = t
　　　End If
　　Next i
　　c=c+1
　　For i = c+1 To d
　　　　If k(i-1)>k(i)Then
　　　　　t = k(i-1):k(i-1) = k(i):k(i) = t
　　　　End If
　　Next i
　　d = d-1
Loop While　d>c
End Sub

木子李 2006-10-15 10:59 发表评论

江苏省等级考试二级VB笔试试卷2003年（春）及参考答案

木子李 — Sun, 15 Oct 2006 02:42:00 GMT

第二部分 VB程序设计

一.填空题

21.在VB中可以作为容器的是      B        。
A.Form、TextBox、PictureBox      B.Form、PictureBox、Frame
C.Form、TextBoX、Label          D.PictureBox、TextBox、ListBox

22.VB中除窗体能显示图片外，下面列出的控件中可以显示图片的控件有 C 。
1.PictureBox 2.Image 3.TextBox 4.CommandButton 5.OptionButton 6.Label
A.1、2、3、4、 B.1、2、5、6、 C.1、2、4、5 D.1、2、4、6、

23.针对语句If I=1 Then J=1，下列说法正确的是 C 。
A.I=1和J=1均为赋值语句
B.I=1和J=1均为关系表达式
C.I=1为关系表达式，J=1为赋值语句
D.I=1为赋值语句，J=1为关系表达式

24.在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是 C 。
A.s=2*a+1 B.s="237"&".11":a=s C.s=2*a>3 D.a=2:s=16400*a

25.下面所列四组数据中，全部是正确的VB常数是 A 。
A.32768,1.34D2,"ABCDE",&O1767
B.3276,123.56,1.2E-2,#True#
C.&HABCE,02-03-2002,False,D-3
D.ABCDE,#02-02-2002#,E-2

26.下面有关数组处理的叙述中，不正确的是 D 。
1、在过程中用ReDim语句定义的动态数组，其下标的上下界可为赋了值的变量。
2、在过程中，可以使用Dim、Private和Static语句定义数组。
3、用ReDim语句重新定义动态数组时，不得改变该数组的数据类型。
4、可用Public语句在窗体模块的通用说明处定义一个全局数组。
A.1、2、3、4、 B.1、3、4、 C.1、2、3、 D.2、4 、

27.第一次显示某窗体时，将引发一系列事件，正确的事件是       B      。
A.Load - Initialize - Activate     B.Initialize - Load - Activate
C.Load - Activate- Initialize      D.Initialize - Activate - Load

28.定义两个过程Private Sub1(St() As String)和Private Sub2(Ch() As String*6)，在调用过程中用Dim S(3) As String*6,A(3) As String定义了两个字符串数组。下面调用语句中正确的有       D       。
1、Call Sub1(S)   2、Call Sub(A)   3、Call Sub2(A)   4、Call Sub2(S)
A.1、2    B.1、3    C.2、3    D.2、4

29.运行下面程序，单击命令按钮Command1,则立即窗口上显示的结果是 A 。

Private Sub Command1_Click()

Dim A As Integer,B As Boolean,C As Integer,D As Integer

A=20/3 : B=True : C=B : D=A+C

Debug. Print A, D, A=A + C

End Sub
A. 7 6 False B. 6.6 5.6 False
C. 7 6 A=6 D. 7 8 A=8

30.以下控件中，不能作为数据绑定控件的是 C 。
A. Label(标签) B. TextBox(文本框)
C. OptionButton(单选按钮) D.ListBox(列表框)

二、填空题 （请将答案填写在答题纸的相应答题号内，每个答案只占一行）

1 、正确表示命题“ A 是一个带小数的正数，且 B 是一个带小数的负数”的逻辑表达式是 Csng(A)>0 And Csng(B)<0 或者 A>O And A<>Int(A) And B<0 And B<>Int(B) 。

2 、运行下面的程序，当单击窗体时，文本框 Text1 中的内容是 AFT ，文本框 Text2 中的内容是 AatF 。

Private Sub Form_Click()

Dim St As String

Dim St1 As String, St2 As String

St = "ASFRSDCFRSKX"

Call Change_String(St, St1, St2)

Text1.Text = St1

Text2.Text = St2

End Sub

Private Sub Change_String(S As String, St1 As String, St2 As String)

Dim tem As String, i As Integer

For i = 1 To Len(S)

tem = Mid(S, i, 1)

If tem = "S" Then

St1 = St1

St2 = St2 & "at"

ElseIf tem = "R" Then

St1 = St1 & "T"

Exit For

Else

St1 = St1 & tem

St2 = St2 & tem

End If

Next i

End Sub

3 、执行下面程序，单击命令按钮 Command1 ，则在窗体上显示的第一行是 5 ，第二行是 45 ，第三行是 54 。

Private Sub Command1_Click( )

Dim s_data As Integer, d_data As String, k As Integer, p As String

s_data = 29

Do Until s_data <= 5

p = s_data Mod 5

d_data = d_data & p

s_data = s_data \ 5

Loop

d_data = d_data & s_data

Print s_data

Print d_data

p = ""

For k = Len(d_data) To 1 Step -1

p = p & Mid(d_data, k, 1)

Next k

Print p

End Sub

4 、执行下面程序，从键盘输入 3 ，程序运行结束后， A( 1, 1) 的值是 17 ， A( 2, 2) 的值是 15 ； A( 2, 3) 的值是 12 。

Private Sub Form_Click()

Dim I As Integer, J As Integer, K As Integer

Dim A() As Integer, N As Integer

N = InputBox(" 输入 N")

ReDim A(N, N)

For I = 1 To N

For J = 1 To N

K = K + 1

A(I, J) = K + 10

Next J

Next I

Call Sub1(A, N)

End Sub

Private Sub Sub1(A() As Integer, N As Integer)

Dim I As Integer, J As Integer

Dim T As Integer, K As Integer

K = N + 1

For I = 1 To Int(N / 2)

For J = I To N - I

T = A(I, J)

A(I, J) = A(K - J, I)

A(K - J, I) = A(K - I, K - J)

A(K – I, N + 1 - J) = A(J, K - I)

A(J, K - I) = T

Next J

Next I

End Sub

5 、执行下面程序，单击命令按钮 Command1 ，则在窗体上第一行显示是 0 1 2 3 4 ，第二行显示是 4 5 6 7 8 ，第三行显示是 8 。

Private Sub Command1_Click()

Output_Count 4

Output_Count 8

Output_Count 4

End Sub

Private Sub Output_Count(UpperLimit As Integer)

Static LowerLimit As Integer

Do While LowerLimit < UpperLimit

Print LowerLimit;

LowerLimit = LowerLimit + 1

Loop

Print LowerLimit

End Sub

6 、运行下面程序，单击命令按钮 Command1 ，则在窗体上显示的第一行内容是 VLAUSI ，第二行内容是 VILAUS ，文本框 Text1 中显示的内容是 VISUAL 。

Private Sub Command1_Click()

Dim S As String

S = "LAUSIV"

Text1.Text = Display(S, Len(S))

End Sub

Private Function Display(S As String, L As Integer) As String

If L > 1 Then Display = Display(S, L - 1)

S = Left(S, L - 1) & Right(S, 1) & Mid(S, L, Len(S) - L)

Display = S

Print Display

End Function

7 、由键盘输入一个正整数，找出大于或等于该数的第一个素数。

Private Sub Form_Click()

Dim p As Integer , x As Integer, flag As Boolean

flag = False

x = InputBox(" 请输入一个正整数 ")

Do While Not flag

p = 2: flag= True

Do While flag And (p <= (x / 2))

If x Mod p = 0 Then

flag = False

Else

p = p + 1

End If

Loop

If Not flag Then x = x + 1

Loop

Print x

End Sub

8 、下面的程序可从一个由字母与数字相混的字符串中选出数字串，并把数字串构成的数写入一个名为 List1 的列表框中（图 1 是程序执行的画面）。

Option Explicit

Private Sub Cmd1_Click()

Dim s As String, k As Integer, c() As String

Dim p As String, i As Integer

s = Text1.Text

k = 1

For i = 1 To Len(s)

If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then

p= p & Mid(s, i, 1)

ElseIf Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" And i <> 1 Then

If p <> "" Then

ReDim Preserve c(k)

c(k) = p

k = k + 1

p = ""

End If

Next i

ReDim Preserve c(k)

c(k) = p

For i = 1 To k

List1.AddItem c(i)

Next i

End Sub

9 、给定一个十进制正整数，找出小于它并与其互质的所有正整数（所谓互质数是指最大公约数为 1 的两个正整数，图 2 是程序执行画面）。

Option Explicit

Private Function gcd( ByVal m As Integer, ByVal n As Integer ) As Integer

Dim r As Integer

r = m Mod n

If r = 0 Then

gcd = n

Else

m = n: n = r

gcd = gcd(m, n)

End If

End Function

Private Sub Command1_Click()

Dim n As Integer, p As Integer

n = Val(Text1)

For p = n - 1 To 2 Step -1

If gcd(n, p) = 1 Then List1.AddItem p

Next p

End Sub 　

10.用σ（m)表示数m的所有因子（包括1和m在内）之和。如果m

Option Explicit

Private Sub Command1_Click()
Dim N As Integer, I As Integer, j As Integer
Dim Flg As Boolean, M As Integer
For N = 40 To 2000
    Flg = False
    Call Garcia(N, M, Flg)
    If Flg Then

Text1.Text = Text1.Text & "(" & M & "," & N & ")" & Chr(13) & Chr(10)
End If
Next N
End Sub

Private Sub Garcia(N As Integer, M As Integer, Bool As Boolean)
Dim G1 As Integer, G2 As Integer, K As Integer
G1 = Factor(N)
For K = 4 To N - 1
     G2 = Factor(K)
     If G1 = G2 And G2 = N + K + 1 Then
         Bool = True
         M = K
         Exit For
     End If
Next K
End Sub

Private Function Factor(N As Integer) As Long
Dim I As Integer
For I = 1 To N
     If N Mod I = 0 Then
       Factor = Factor + I
     End If
Next I
End Function

木子李 2006-10-15 10:42 发表评论

江苏省等级考试二级VB笔试试卷2002年（秋）及参考答案

木子李 — Sun, 15 Oct 2006 02:36:00 GMT

VB程序设计部分

一、选择题

21、在程序中将变量Inta、B1、St、D 分别定义为Integer 类型、Boolean类型、String类型和Date 类型，下列赋值语句中，正确的是 ___ 。

A. Inta="333"+"22" B. D=#10/05/01#

C. St=5+"abc" D. B1=#True#

22、以下使用方法的语句中，正确的是 ___ 。

A. List1.Clear B. Form1.Clear

C. Combo1.Cls D. Picture1.Clear

23、以下所列的7个控件中，具有Caption 属性的有 ____ 个。

PictureBox(图片框)、Frame(框架)、OptionButton(单选按钮）、ListBox(列表框)、TextBox(文本框)、Form(窗体)、DriveListBox(驱动器列表框)

A. 3 B. 4 C. 2 D.5

24、以下有关对象属性的说法中错误的是 ___ 。

A. 所有的对象都具有 Name（名称）属性

B. 只能在执行时设置或改变的属性为执行时属性

C. 对象的某些属性只能在设计时设定，不能使用代码改变

D. Enabled属性值设为False 的控件对象在窗体上将不可见

25、在窗体的通用声明处有语句 Dim A() As Single ，以下在某事件过程中重定义此数组的一组正确语句是： ___ 。

A. ReDim A(3,3)

ReDim A(4,4) As Integer

B. ReDim A(3,3)

ReDim Preserve A(4,4)

C. ReDim A(3)

ReDim A(3,3) As Integer

D. ReDim A(3,3)

ReDim Preserve A(3,4)

26、在窗体Form1 中用“Public Sub Fun (x As Integer ,y As Single)”定义过程 Fun ，在窗体 Form2 中定义了变量i 为Integer ， j 为Single ，若要在 Form2的某事件过程中调用 Form1中的Fun 过程，则下列语句中，正确的语句有 ____ 个。

(1) Call Fun(i,j)

(2) Call Form1.Fun(i,j)

(3) Form1.Fun(i),j

(4) Form1.Fun i+1,(j)

A.1 B.2 C.3 （2、3、4对） D.4

27、在文本框Text1中输入数字12，Text2中输入数字34，执行一下语句，只有 ____ 可使文本框Text3中显示46。

A. Text3.Text=Text1.Text&Text2.Text

B. Text3.Text=Val(Text1.Text)+Val(Text2.Text)

C. Text3.Text=Text1.Text+Text2.Text

D. Text3.Text=Val(Text1.Text)& Val(Text2.Text)

28、在窗体模块的通用声明处有如下语句，会产生错误的语句是 ___。

(1) Const A As Integer=25

(2) Public St As String*8

(3) Redim B(3) As Integer

(4) Dim Const X As Integer=10

A. (1)(2) B.(1)(3) C.(1)(2)(3) D.(2)(3)(4)

29、下列定义Sub 过程的语句中，正确的语句是 _____ 。

(1) Private Sub Test(St As String * 8)

(2) Private Sub Test(Sarray() As String * 5)

(3) Private Sub Test(Sarray() As String)

(4) Private Sub Test(St As String)

A. (1)(2) B.(1)(4) C.(2)(3)(4) D.(1)(2)(3)(4)

30、VB中利用Circle 方法不可以画 _____ 。

A.园 B.直线 C.弧 D.椭圆

二、填空题

1、将任意一个两位正整数 N 的个位数与十位数对换得到新数的 VB 表达式是 (n mod 10)*10+n\10 或 n=val(mid(trim(str(n)),2,1)+mid(trim(str(n)),1,1))
。

2、执行下面的程序，单击窗体，则在窗体上显示的第一行是 1 2 3 ，第二行是 4 5 .
Private Sub Form_Click()
Dim a(3, 3) As Integer, i As Integer, j As Integer
For i = 1 To 3
   For j = 1 To 3
      a(i, j) = (i - 1) * 2 + j
   Next j
Next i
For j = 1 To 3
   For i = j To 3
      Print a(j, i);
   Next i
   Print
Next j
End Sub

3、执行下面程序，单击命令按钮 Command1，则窗体上显示的第一行是 C ，第二行是 CW ，第三行是 8 。
Private Sub Command1_Click()
Dim s As String, t As String
Dim K As Integer, m As Integer
s = "BASICY"
K = 1: m = K
For K = 1 To Len(s) Step m + 1
   t = t & Chr(Asc(Mid(s, m, 1)) + K)
   K = K + 1
   If Mid(s, K, 1) = "Y" Then Exit For
   m = m + K
   Print t
Next K
Print m
End Sub

4、执行下面程序，单击窗体，在立即窗口上显示的第二行是 4 14 80 ，第三行 22 10 80 。 Option Explicit
Dim A As Integer
Private Sub Form_Click()
Dim B As Integer
Dim D As Integer
A = 1: B = 2
D = fun(A, fun(A, B))
Debug.Print A, B, D
End Sub
Private Function fun(K As Integer, N As Integer) As Integer
Debug.Print K, N,
K = N + A + K
N = K + A + N
fun = K + N
Debug.Print fun
End Function

5、执行下面程序，如果不选中复选框 Check1,单击命令按钮 Command1 ,则在文本框Text1 中显示的变量a 的值为 12 、b的值为 3 、r的值为 3 ；如果选中复选框Check1 ，单击命令按钮Command1 ，则文本框Text1 中显示为 GCD(27,12)=3 （图1为本程序设计界面）。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, r As Integer
a = 27: b = 12
If Check1.Value = 0 Then
   r = gcd(a, b)
   Text1 = "GCD(" & CStr(a) & "," & CStr(b) & ")=" & CStr(r)
ElseIf Check1.Value = 1 Then
   r = gcd((a), (b))
   Text1 = "GCD(" & CStr(a) & "," & CStr(b) & ")=" & CStr(r)
End If
End Sub
Private Function gcd(x As Integer, y As Integer) As Integer
Dim r As Integer
r = x Mod y
Do While r <> 0
   x = y: y = r
   r = x Mod y
Loop
gcd = y
End Function

6、运行下面的程序，单击命令按钮 Command1 ,则在文本框Text1中的内容是 K = 4 ，A(4) 的值是 8 ，A(5) 的值是 6 。

Option Explicit
Private Sub Command1_Click()
Dim A(8) As Integer, I As Integer, K As Integer
A(1) = 1: A(2) = 4: A(3) = 6: A(4) = 4
A(5) = 6: A(6) = 8: A(7) = 6: A(8) = 1
Call Stat(A, K)
Text1 = "K = " & Str(K)

End Sub
Private Sub Stat(A() As Integer, N As Integer)
Dim Idx As Integer, Count As Integer, P As Integer
Dim T As Integer
Count = UBound(A)
Do
   Idx = Idx + 1
   P = Idx + 1
   Do While P <= Count
      If A(Idx) = A(P) Then
         A(P) = A(Count)
         Count = Count - 1
      Else
         P = P + 1
      End If
   Loop
   N = Count
Loop While Idx <> Count

End Sub

7、下面程序的功能是将以“12；3；15”形式输入的字符串分解为数字12、3、15，分别赋给3个数组元素，并对其进行简单运算（图2为本程序执行画面）。

Private Sub Command1_Click()
Dim a(3) As Integer, i As Integer, n As Integer
Dim s As String
s = Text1.Text
For i = 1 To 2
   n=InStr(s, ";")
   a(i) = Left(s, n - 1)
   s= Mid(s,n+1,Len(s) - N)_
Next i
A(i) = val(s)
Text2.Text = a(1) * a(2) + a(3)

End Sub

本题更为简单的算法是：

Dim s() As String
s = Split(Text1, ";")
Text2.Text = Val(s(0)) * Val(s(1)) + Val(s(2))

8、本程序是找零巧数。所谓零巧数是具有下述特征的四位正整数：其百位数为0，如果去掉0，得到一个三位正整数，而该正整数乘以9，等于原数。例如2025=225*9，所以2025是零巧数（如图3所示）。

Private Function change(s As String) As String
Dim p As String, i As Integer
For i = 1 To Len(s)
   If i <> 2 Then
      p = p & Mid(s, i, 1)
   End If
Next i
change = p

End Function
Private Sub Command1_Click() Dim i As Integer, s As String
For i = 1000 To 9999
   s = CStr(i)
   If Mid(s, 2, 1) = "0" Then
      If Val(change(s)) * 9 = i Then
      List1.AddItem (s + "=" + change(s) + "*9")
      End If
   End If
Next i

End Sub

9、本程序是把给定的二进制整数转换为八进制整数。

Private Sub Command1_Click()
Dim a As String, b As String, c As String
Dim L As Integer, m As Integer, n As Integer
a = InputBox("请输入一个二进制数", "输入框")
L = 3 - Len(a) Mod 3
a = String(L, "0") & a
n = Len(a)
For m = 1 To n / 3
b = Mid(a, 3 * m - 2, 3)
c = c & zh(b)
Next m
Text1.Text = c

End Sub
Private Function zh(ByVal s As String) As String
Dim i As Integer, n As Integer, p As Integer
p = 1
For i = 2 To 0 Step -1
n = n + Val(Mid(s, p, 1)) * 2 ^ i
p = p + 1
Next i
zh = Str(n)

End Function

10、找出由两个不同数字组成的平方数，并将结果按图4中的格式显示在列表框 List1中。

Option Explicit
Private Sub Command1_Click()
Dim I As Long, N As Long
For I = 11 To 300
   N = I * I
   If Verify(N) Then
   List1.AddItem (CStr(N) + "=" + CStr(I) + "*" + CStr(I))
   End If
Next I

End Sub
Private Function Verify( ByVal N As Long ) As Boolean
Dim A(0 To 9) As Integer, I As Integer, Js As Integer
Do While N <> 0
   A(N Mod 10) = 1
   N = N \ 10
Loop
For I = 0 To 9
   Js = Js + A(I)
Next I
If Js = 2 Then Verify = True

End Function

木子李 2006-10-15 10:36 发表评论

江苏省等级考试二级VB笔试试卷2002年（春）及参考答案

木子李 — Sun, 15 Oct 2006 02:22:00 GMT

第二部分 Visual Basic 程序设计

一、选择题 （用答题卡答题，答案依次填在21-30答题号内）

21. 下面有关对象属性的叙述中，不正确的是___21___。

A. 一个对象的属性可分位为外观、行为等若干类。

B. 相同属性可能具有不同的数据类型。

C. 一个对象的所有属性都可在属性窗口的列表中进行设置。

D. 属性窗口中的属性列表可以按字母序也可按类别排列。

22. 代数式对应的VB表达式是__22___。

A. (12*x+5*y-Sqr(Abs(d^3-m^2)))/Exp(-x)/Sin(x)

B. (12*x+5*y-Sqr(Abs(d^3-m^2)))/Exp(-x)*Sin(x)

C. (12*x+5*y-Sqr(Abs(d^3-m^2))/Exp(-x)/Sin(x)

D. (12*x+5*y-Sqr(Abs(d^3-m^2)))/e^(-x)/Sin(x)

23. 对于“X>Y>Z”，正确的VB逻辑表达式是___23___。

A. X>Y AND Y>Z	B. X>Y>Z
C. X>Y OR Y>Z	D. X>Y AND >Z

24. 设有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，变量c的值为12。以下的__24___语句可以使文本框内显示的内容为：5+7=12。

A. text1.text=a+b=c	B. text1.text="a+b=c"
C. text1.text=a & "+" & b & "=" & c	D. text1.text="a"&"+"&"b"&"="&"c"

25. 用语句Private Sub Convert(Y As Integer) 定义的Sub过程时，以下不是按值传递的语句是___25___。

A. Call Convert((X))	B. Call Convert(X*1)
C. Convert(X)	D. Convert X

26. 程序的不同过程之间，不能通过___26___进行数据传递。

① 用全局变量	② 窗体或模块级变量
③ 将形参与实参结合	④ 静态变量

A. ①②④

B. ①②③

C. ②④

D. ④

27. 下列关于数组的叙述中，错误的是___27___。

A. 在过程中可以用DIM语句对形参数组进行说明

B. 数组是同类变量的一个有序的集合

C. 数组元素可以是控件

C. 数组在使用之前，必须先用数组说明语句进行说明

28. 从存有数据的C:\test\test.txt文件添加数据，正确的文件打开命令是___28___。

A. Open "C:\test\test.txt" For Append As #512

B. Open "C:\test\test.txt" For Append As #511

C. Open "C:\test\test.txt" For Output As #512

D. Open "C:\test\test.txt" For Output As #511

29. 下面___29___情况不会进入中断状态。

A. 在程序运行中，按Ctrl+C键

B. 程序运行中，发生了运行错误

C. 用户在程序中设置了断点，当程序运行到断点时

D. 采用单步调试方式，每运行一个可执行代码行后

30. 下面___30___方法，可以将列表框List1中的所有项删除掉。

A. List1.Text=""

B. AddItem

C. RemoveItem

D. Clear

31. 某过程的说明语句中，正确的数组说明语句是___31___。

Const N As Integer=4

Dim L As Integer

① Dim X(L) As Integer

② Dim A(K) As Integer

Const K As Integer=3

③ Dim B(N) As Integer

④ Dim Y(2000 to 2008) As Integer

A. ①②④

B. ①③④

C. ③④

D. ②③

32. 在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句,单击该窗体,其中___32___一定可以将Hello显示在当前窗体上。

A. Form1.Print "Hello"	B. Me.Print "Hello"
C. Debug.Print "Hello"	D. Form2.Print "Hello"

33. 执行以下语句后,a的值为___33___。

Dim a As Integer

a=1

Do Until a=100

a=a+2

Loop

A. 99

B. 100

C. 溢出

D. 101

34. 以下语句中,不能正确执行的是___34___

A. If Option1.Value Then	B. If Option1.Value=True Then
C. Ckeck1.Value=0	D. Ckeck1.Value=True

35. 以下有关数据控件的叙述中,错误的是___35___。

A. 利用数据控件可对已连接的数据库记录进行显示和修改

B. 利用数据控件只能访问Access数据库

C. 通过设置DatabaseName属性,可以与指定的Access数据库连接

D. 利用数据控件可增加或删除已连接的数据库中的记录

二、填空题 （请把答案填写在答题纸的相应答题号内，每个答题只占一行）

1. 执行下面的程序，单击窗体后在窗体上显示的内容是___ 14 ___；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是___ 10 ___。

Option Explicit

Private Sub Form_Click()

Dim Sum As integer,i As Integer

For i=7 To 4 Step -1

Select Case i

Case 4,7

Sum=Sum+i 'A语句

Case 3,5

Sum=Sum+2 'B语句

Case Else

Sum=Sum+1

End Select

Next i

Print "Sum=";Sum

End Sub

2. 执行下面的程序，单击命令按钮Command1后，文本框Text1中的内容是__ _c：\Program Files\DevStudio\VB ___，文本框Text2中的内容是___ VB5.exe ___（函数InStr（Start，String1，String2）中Start参数表示每次搜索的起点）。

OPtion Explicit

Private Sub Command1_Click()

Dim Path As String，Serach As String

Dim Fp As String，Fn As String

Path=“c：\Program Files\DevStudio\VB\VB5.exe”

Call Search_Path（Path，Fp，Fn）

text1.text=FP

text2.text=Fn

End Sub

Private Sub Search_Path(P As String,Fp As String，Fn As String)

Dim Ns As Long,Ct As Long

Ns=0

Ct=Ns

Ns=InStr(Ct+1,P,"\")

Loop Until Ns=0

Fp=Left(P,Ct-1)

Fn=Right(P,Len(P)-Ct)

End Sub

3. 执行下面的程序，当单击窗体时，窗体上显示内容的第一行是1 3 2___，第二行是1__12___2_。

Private Sub P1(x As Integer,ByVal y As Integer)

Static Z As Integer

x=x+z: y=x-z: z=10-y

End Sub

Private Sub Form_Click()

Dim a As Integer,b As Integer,z As Integer

a=1:b=3:z=2

call P1(a,b)

print a,b,z

call P1(b,a)

print a,b,z

End Sub

4. 执行下面的程序，图片框第一行内容是 CBA ，图片框第一行内容是 ABC 。

Option Explicit

Private Sub Command1_Click()

Dim S As String

S="ABC"

Back S

Picture1.Print

Picture1.Print S

End Sub

Private Sub Back(St As String)

If Len(St)>1 Then

Back(Right(St,Len(St)-1))

End if

Picture1.Print Left(St,1);

End Sub

木子李 2006-10-15 10:22 发表评论

江苏省等级考试二级VB笔试试卷2001年（秋）及参考答案

木子李 — Sat, 14 Oct 2006 07:28:00 GMT

第二部分 Visual Basic 程序设计

（2001 年秋季）

一、选择题 （用答题卡答题，答案依次填在21-30答题号内）

21. 窗口上有多个控件，在 Form_Activate() 事件过程添加___21___语句，就可确保每次运行程序时，都将光标定位在文本框Text上。

A. Text1.Text=""	B. Text1.SetFocus
C. Form1.SetFocus	D. Text1.Visible=True

22. 在程序中分别将变量Inta、Bl、St、D定义为整型、布尔形、字符串型和日期型，下列赋值语句在执行时会出错的是___22___。

A.Inta=4.6

B.Bl=#True#

C.St=5&123.5

D.D=#10/05/01#

23.代数表达式对应的Visual Basic表达式是__23___。

A. Sqr((x+log(x))/(a+b))+exp(-2*t)+cos((x+y)/2)

B. Sqr(x+log(x))/(a+b)+exp(-2*t)+cos((x+y)/2)

C. Sqr((x+ln(x))/(a+b))+exp(-2t)+cos((x+y)/2)

D. Sqr((x+log(x))/(a+b))+exp(-2*t)+cos(x+y/2)

24. 以下有关变量作用域的说法中，正确的是___24___。

A. 只有在标准模块中用Public语句说明的变量才是全局变量

B. 在过程中不能使用Public语句说明全局变量

C. 在标准模块的通用声明处可用Private语句说明模块级变量

D.在窗体的通用声明处可用Private语句说明窗体级变量

25. 语句Print "5*20"输出的结果是___25___。

A. "5*20"

B. 出现错误信息

C. 5*20

D. 100

26. 下列不正确的变量名是___26___。

A. Form

B. Command

C. Text

D. Arry@

27. 若磁盘文件C:\Data1.dat不存在，下列打开文件语句中，会产生错误的是___27___。

A. Open "C:\Data1.dat" For Output As #1

B. Open "C:\Data1.dat" For Input As #2

C. Open "C:\Data1.dat" For Append As #3

D. Open "C:\Data1.dat" For Binary As #4

28. 改变目录列表框(DirListBox)控件的Path属性的途径可以有___28___。

①单击目录列表框某一项

②程序代码中改变目录列表框的Path属性值

③双击目录列表框某一项

④ 在程序中用ChDir命令设置当前工作目录

A. ①②

B. ②③

C. ②③④

D. ①②③④

29. 以下有关数组的说明中，错误的是___29___。

A. 根据数组说明的方式，可将数组分为动态数组和静态数组

B. 在过程中，不能用Private语句定义数组

C. 利用ReDim语句重新定维时，不得改变已经定义说明过的数组的数据类型

D. 数组重新定维后，原有的数组元素内容将不予保留

30. 窗体的Name属性为Frm1,在窗体模块通用声明处和过程Sub1中分别用Public K As Integer, Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用___30___。

A. Frm1.K

B. Form.K

C. Form1.K

D. K

31. 名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是___31___。

A. Private Sub sort(A() As Integer)

B. Private Sub sort(A(10) As Integer)

C. Private Sub sort(ByVal A() As Integer)

D. Private Sub sort(A(,) As Integer)

32. 可以在___32___中，使用语句Public PubStr As String*20定义一个定长字符串。

A. 窗体模块

B. 标准模块

C. 类模块

D. 三者均可

33. 以下有关由多个窗体和标准模块组成的应用程序设计方法的叙述中，错误的是___33___。

A. 在缺省情况下，设计时的第一个窗体被指定为启动窗体

B. 通过人为设置，可指定任一窗体为启动窗体

C. 通过人为设置，可指定标准模块中的Main()过程为启动过程

D. 通过人为设置，可指定窗体模块中的Main()过程为启动过程

34. 在过程中由语句For I=N1 To N2 Step N3，在该循环体内有下列四条语句，其中___34___会影响循环执行的次数。

①N1=N1+I	②N2=N2+N3
③ I=I+N3	④N3=2*N3

A. ①②

B.①②③

C. ③

D. ①②③④

35. 在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码：

Private Sub Form_Click()

Dim K As Integer

Dim entry As String, item As String

entry="EDCBA"

For k=Len(entry) To 1 Step -1

item=LCase(Mid(entry,k,1))&k

List1.AddItem item

Next k

End Sub

运行此程序，单击窗体后在窗体的列表框中显示的第四个列表项内容是___35___。

A. b4

B. b2

C. d4

D. d2

二、填空题 （请把答案填写在答题纸的相应答题号内，每个答题只占一行）

1. 执行下面的程序，在窗体上显示的输出结果的第一行是___ this is a book. ___，第二行结果是___ This Is A Book. ___。

Option Explicit

Private Sub Form_Click()

Dim s As String,i As Integer,flag As Boolean

s="THIS IS A BOOK."

s=LCase(s)

Print s

flag=True

For i=1 To Len(s)

If Mid(s,i,1)="" Then

flag=True

ElseIf flag Then

s=Left(s,i-1)&UCase(Mid(s,i,1))&Right(s,len(s)-i)

flag=False

End If

Next i

Print s

End Sub

2. 执行下面的程序，在窗体上显示的输出结果的第二行是 _4 9 13_ _，第三行结果是__ 19.5 __。

OPtion Explicit

Dim a As Integer,b As Integer

Private Sub Form_Click()

Dim c As Integer

a=1

b=3

c=5

Print fun(c)

Print a,b,c

Print fun(c)

End Sub

Private Function fun(x As Integer)As Single

fun=a+b+x/2

a=a+b

b=a+x

x=b+a

End Function

3. 执行下面的程序，第一行输出结果是_ _18_ __，第二行输出结果是__ _30_ __。

Option Explicit

Private Sub Form_Click()

Dim M As Integer,N As Integer

M=1:N=2

Print M+N+Fun1(M,N)

M=2:N=1

Print Fun1(M,N)+Fun1(M,N)

End Sub

Private Function Fun1(X As Integer,Y As Integer)

X=X+Y

Y=X+3

Fun1=X+Y

End Function

4. 执行下面程序，在窗体上显示的输出结果的第二行是___ 4 5 6 ___，第五行是__ _9 8 7__ _，第六行是___ 6 5 4 ___。

Option Explicit

Private Sub Form_Click()

Dim a(3,3) As Integer, iAs Integer

Dim j As Integer,k As Inteher

For i=1 To 3

For j=1 To 3

a(i,j)=(i-1)*3+j

Print a(i,j);

Next j

next i

k=(i-1)*3

For i=1 To 3

For j=1 To 3

a(i,j)=k

k=k-1

Print a(i,j);

Next j

Next i

End Sub

5. 执行下面的程序，在窗体上显示的第一行输出结果是__ _1 3 5 7 9 __，第三行输出结果是___ 4 _ __, FOrm_Click()事件过程中的第二个For--Next循环共执行了___ 2 _ __次。

Option Explicit

Option Base 1

Private Sub Form_Click()

Dim a(5) As Integer,i As Integer,j As Integer

For i=1 To 5

a(i)=2*i-1

Print a(i)

Next i

For j=1 To I-2

Call sub1(a(j),j)

Print j

Next j

End Sub

Public Sub Sub1(x As Integer,p As Integer)

If x-p<=2 Then

p=p+1

Else

p=p+2

End If

End Sub

6.下面程序的功能是统计随机产生的十个两位正整数中偶数于奇数的个数，并求出偶数与奇数各自的总和。

Option Explicit

Private Sub Form_Click()

Dim x As Integer， s1 As Integer，s2 As Integer

Dim n1 As Integer， n2 As Integer，i As Integer

Randomize

For i=1 To 10

x=Int(Rnd*90)+10

Print x

If _ _x mod 2=0_ __Then

n2=n2+1

s2=s2+x

Else

__ _n1=n1+1 ___

s1=s1+x

End If

Next i

Print "奇数个数=";n1,"偶数个数=";n2

end

7. 下面程序功能为：单击命令按纽Command1，找出100以内的所有约数之和为一个完全平方数的正整数，并按图中所示的格式将结果显示在图形框Picture1中。

Option Explicit

Private Sub Command1_Click()

Dim i As Integer，j As Integer

Dim F() As Integer，sum As Integer

For i=3 To 100

___ sum=0 ___

If Fac(i,F,sum) Then

Picture1.Print i; ":";

FOr j=1 To UBound(F)-1

Picture1.Print F(J); "+";

Next J

Picture1.Print F(J); "="; sum; "="; Sqr(sum); "^2"

End If

Next i

End Sub

Private Function Fac(ByVal K As Integer，A() As Integer，sum As Integer) As Boolean

Dim N As Integer，J As Integer

For N=1 To K

If___ k mod n=0 ___Then

J=J+1

__ _ReDim Preserve A(J) ___

A(J)=N

sum=sum+N

End If

Next N

If sum=__ _Int(Sqr(sum))^2 __Then Fac=True

End Function

8. C盘根目录下文件Data4.txt的内容是：2，4，6，8，10，1，3，5，7，9。下面程序的功能是将文件后半部分的奇数分别按序插入到前半部分的适当位置，得到的新数列是：1 2 3 4 5 6 7 8 9 10。（实现方法：第一次调整后的数列是：1 2 6 8 10 3 5 7 9第二次调整后的数列是：1 2 3 4 6 8 10 5 7 9）。

Option Explict

Private Sub Form_Click()

Dim A(10) As Integer,i As Integer,J As Integer

Open "c:\Data4.txt" For Input As #12

Do ___ while not Eof(12) __

J=J+1

Input #12,A(J)

Loop

Call Insert(A)

For i=1 To 10

Print A(i)

Next i

Close #12

End Sub

Private Sub Insert(A() As Integer)

Dim i As Integer,Putp As Integer,J As Integer

Dim Getp As Integer,N As Integer,Tem As Integer

N=UBound(A)/2

Putp=1

Getp=N+1

For i=1 To N

Tem=A(Getp)

For J=Getp To Putp +1 Step -1

__ A(J)=A(J-1) __

Next J

A(Putp)=Tem

Getp=Getp+1

Putp=__ _Putp+2_ _

Next i

End Sub

9.下面程序的功能是从键盘上输入一个不超过4位的十进制正整数，先把该十进数的每一位数字转换位一个4位二进制数，再把得到的二进制数依次合并成为一个16位的二进制数。例如输入十进制数359，会得到二进制数0000001101011001。

Private Sub Form_Click()

Dim num As Integer,s As Integer,M As Integer

Dim i As Integer,j As Integer,n As Integer

num=InputBox("输入一个长度不超过4位的十进制正整数："，，1)

__ _M=num_ _

Do While num>0

j=j+1

n=num Mod 10

s=cover(n)&s

___ num=num\10 _ _

Loop

For i=1 To 4-j

s="0000"&s

Next i

Text1.Text="十进制数"&CStr(M)&"的转换结果是："&s

End Sub

Private Function cover(ByVal n As Integer)As String

Dim i As Integer,s As String,k As Integer

Do Until n<1

__ _k=n Mod 2_ _

s=CStr(k)&s

n=n\2

Loop

If Len(s)<4 Then

s="0000"&S

cover=_ _right(s,4)__

Else

cover=s

End If

End Function

木子李 2006-10-14 15:28 发表评论

江苏省等级考试二级VB笔试试卷2001年（春）及参考答案

木子李 — Sat, 14 Oct 2006 07:10:00 GMT

第二部分 Visual Basic 程序设计

一、选择题 （用答题卡答题，答案依次填在21-30答题号内）

21. 在 Visual Basic 中最基本的对象是___21___，它是应用程序的基石，也是其他控件的容器。

A. 文本框

B. 命令按纽

C. 窗体

D. 标签

22. 应用程序窗体的名称属性为Frm1，窗体上有一个命令按纽，其名称属性为Cmd1，窗体和命令按纽的Click 事件过程名分别为___22___。

A.Form_Click() Command1_Click()	B. Frm1_Click() Command1_Click()
C. Form_Click() Cmd1_Click()	D. Frm1_Click() Cmd1_Click()

23. 多窗体程序由多个窗体组成。在缺省情况下，VB在执行应用程序时，总是把___23___指定为启动窗口。

A. 不包含任何控件的窗口	B. 设计时的第一个窗体
C. 命名为 Frm1 的窗体	D. 包含控件最多的窗体

24. 使用___24___方法可将新的列表项添加到列表框中。

A. Print

B. Additem

C. Clear

D. RemoveItem

25. 若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用___25___关键字在该过程中定义局部变量。

A. Dim

B. Private

C. Public

D. Static

26. 下列表达式中，值为True的是___26___。

A. Ucase("ABCD">="abcd")	B. 14/2\3<10 Mod 4
C. Mid("ABCD",2,2)>Left("ABCD",2)	D. Not(Spr(4)-3>=-2)

27. 下列___27___说法是不正确的。

A. 当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭

B. 在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁

C. 可以用不同的文件号同时打开一个随机文件

D. 用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除

28. 代数表达式，对应Visual Basic 表达式是___28___。

A. Sqr((x+Log(x))/(a+b))+Exp(-2*t)+Sin((x+y)/2)

B. Sqr(x+Log(x)/(a+b))+Exp(-2*t)+Sin((x+y)/2)

C. Sqr((x+Ln(x))/(a+b))+Exp(-2*t)+Sin((x+y)/2)

D. Sqr((x+Log(x))/(a+b))+Exp(-2*t)+Sin(x+y/2)

29. 在程序中可以通过复选框和单选按纽的___29___属性值来判断它们的当前状态。

A. Caption

B. Value

C. Checked

D. Selected

30. 在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入___30___符号，那么在运行程序时按Alt键和该字母键就可以打开该命令菜单。

A. 下划线

B. &

C. $

D. @

31. 在一个多窗口程序中，可以在标准模块或某个窗体模块的通用声明处，分别用___31___语句定义一个在所有窗体模块都可以引用的变量IntA。

A. Private IntA As Integer, Public IntA As Integer

B. Public IntA As Integer , Private IntA As Intege

C. Public IntA As Integer , Public IntA As Intege

D. Private IntA As Integer, Private IntA As Integer

32. 在应用程序中用"Private Function Fun( X As Integer,Y As Integer)"定义了函数Fun.调用函数Fun的过程中的变量I,J均定义为Integer型，能正确引用函数Fun的是___32___。

①Fun(I,J)	②Call Fun(I,3.65)
③Fun(3.14,234)	④Fun("245","231.5")

A. ①③

B. ②③④

C. ①②③

D. ①②③④

33. 若在应用程序的标准模块、窗体模块和过程Sub1的说明部分，分别用"Public G As Intege"、"Private G As Intege"和"Dim G As Intege"语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句“G=3596”，则该语句给在___33___说明部分定义的变量G赋值。

A. 标准模块	B. 过程 Sub1
C. 窗体模块	D. 标准模块、窗体模块和过程 Sub1

34. 有程序代码：Text1.Text="Visual Basic"

其中的Text1、Text和"Visual Basic"分别代表___34___。

A. 对象、值、属性	B. 对象、方法、属性
C. 对象、属性、值	D. 属性、对象、值

35. 执行下面的程序，单击窗体后在窗体上显示的结果是___35___。

Private Sub Form_Click()

Dim Str1 As String, Str2 As String

Dim Str3 As String, I As String

Str1="e"

For I=1 To 2

Str2=UCase(Str1)

Str1=Str2&Str1

Str3=Str3&Str1

Str1=Chr(Asc(Str1)+I)

Next I

Print Str3

End Sub

A. EeFF

B. eEFF

C. EEFF

D. eeFF

二、填空题 （请把答案填写在答题纸的相应答题号内，每个答题只占一行）

1. 根据题中给出的窗体，填写下表中的相关内容，"X"表示对象无该属性

对象	名称 (Name)	标题（ Caption ）	口令字符（ Passwordchar ）
窗体	Form1	( 验证口令 )	X
标签	Label1	( 请输入口令 )	X
文本框	Text1	X	( * )
命令按纽	Command1	验证	X

2. 执行下面的程序，第一行输出结果是___( 3 ) ___，第二行输出结果是___（ -18 ） ___。

OPtion Explicit

Private Sub Form_Click()

Dim M As Integer,N As Integer,K As Integer

N=-3

For M=6 To 1 Step N

M=M+1

N=N-M

K=K+1

Next M

Print K

Print N

End Sub

3. 执行下面的程序，第一行输出结果是___( 6 26 ) ___，第三行输出结果是___（ -2 98 ） ___。

Private Sub Form_Click()

Dim N As Integer, I As Integer

N=2

For I=9 To 1 Step -1

Call Sub2(I,N)

Print I,N

Next I

End Sub

Private Sub Sub2(X As Integer,Y As Integer)

Static N As Integer

Dim I As Integer

For I=3 To 1 Step -1

N=N+X

X=X-1

End Sub

4. 执行下面程序后，A（1，3）的值是___( 1 ) ___，A（2，2）的值是___( 5 ) ___，A（3，1）的值是___( 9 ) ___。

Option Explicit

Private Sub Form_Click()

Dim A(3,3) As Integer, I As Integer

Dim J As Integer, K As Inteher,N As Integer

N=9

For K=5 To 1 Step -1

If K>=3 Then

For I=1 To 6-K

A(K-3+I,I)=N

N=N-1

Next I

Else

For I=1 To K

A(K-I+1,3-I+1)=N

N=N-1

Next I

End If

Next K

For K=1 To 3

For I =1 To 3

Print A(K,I);

Next I

Next K

End Sub

5. 执行下面的程序，第一行输出结果是___( 23 ) ___，第二行输出结果是___（ 47 ） ___。

Option Explicit

Private Sub Form_Click()

Dim A As Integer

A=2

Call Sub1(A)

End Sub

Private Sub Sub1(X As Integer)

X=X*2+1

If X<10 Then

Call Sub1(A)

End If

X=X*2+1

Print X

End Sub

6. 本程序用于验证任何一个大于6的偶数均可表示为两个素数之和。例如，14=3+11、14=7+7。待验证的偶数从文本框TxtInput输入，所有满足上述条件的素数对都显示在窗体上。

Option Explicit

Private Sub Form_Click()

Dim N As Integer， I As Integer，J As Integer

N=___( Val(TxtInput)或Val(TxtInput.Text) ) ___

For I=3 To N-2 Step 2

If ___( Prime(I) ) ___Then

If N-I>=I And Prime(N-1) Then

Print N;"="; I;"+"; N-1

End If

Next I

End Sub

Private Function Prime(N As Integer)As Boolean

Dim I As Integer， J As Integer，Flg As Boolean

Prime=False

For I=2 To Sqr(N)

If N MOD I =0 Then ___( Exit For 或 End Function ) ___

Next I

If ___( I>Sqr(N) ) ___Then Prime=True

End Function

7. 下面程序是把给定的16进制正整数转换为10进制数。

提示：一个16进制正整数转换为10进制数的方法是直接用下面的幂级数展开运算而得。

（ a _n a _n-1 … a ₁ ） ₁₆ =a _n *16 ^n-1 +a _n-1 *16 ^n-2 + … +a ₁ *16 ⁰

Option Explicit

Private Sub Form_Click()

Dim St As Integer， Dem As Long

St=InputBox("输入一个十六进制数")

Dem=Convert(St)

Print St; ">="; Dem

End Sub

Private Function Convert(S As String)As Long

Dim N As Integer， I As Integer，Substring As String*1

Dim P As long， K As Long，Asc1 As Integer

N=___( Len(s) ) ___

P=16^N

For I=1 To N

P=p/16

Substring=___( Mid(S,I,1) ) ___

Select Case Substring

Case "0" To "9"

K=K+P*Val(Substring)

Case___( "A" To "F"或 Else ) ___

Asc1=Asc(Substring)-Asc("A")+10

___( K=K+P*Asc1 ) ___

End Select

Next I

___( Convert= K) ___

End Function

8. 下面程序得功能是将无序数组中相同得数只保留一个，其余得删除，并输出经过删除后的数组元素，删除相同数是通过将该数组元素后面的元素在数组内依次前移替换前一个元素的值实现的。数组各元素的值从文件data.txt中读取。

Option Explict

Option Base 1

Private Sub Form_Click()

Dim I As Integer,J As Integer,K As Integer

Dim A()As Integer,T As Integer,M As Integer

Open "c:\my documents\2000test\data.txt" For Input As #1

Do While___( Not Eof(1) ) __

I=I+1

Redim Preserve A(I)

Input #1,A(I)

Loop

M=1:T=___( I 或 Ubound(A) ) __

Do While M

I=M+1

Do While I<=T

If A(I)=A(M)Then

For J=1 To ___( T-1 ) __

A(J)=A(J+1)

Next J

T=T-1

Else

I=___( I+1 ) __

End If

Loop

M=M+1

Loop

Redim Preserve A(T)

For I=1 To T

Print A(I);

Next I

End Sub

木子李 2006-10-14 15:10 发表评论

江苏省等级考试二级VB笔试试卷2000年（秋）及参考答案

木子李 — Sat, 14 Oct 2006 06:59:00 GMT

第二部分 Visual Basic 程序设计

一、选择题 （用答题卡答题，答案依次填在21-30答题号内）

21. 能被对象所识别的动作与对象可执行的活动分别称为对象的___21___。

A. 方法、事件

B. 事件、方法

C. 事件、属性

D. 过程、方法

22. 在过程中可以用___22___语句定义变量。

A. Dim、Private

B. Dim、Static

C. Dim、Public

D. Dim、Static、Private

23.用窗体的__23___属性来设置窗体的标题。

A. Style

B. Text

C. Captain

D. Name

24. 若在应用程序中用“Private Sub Sub1(X As Integer, Y As Single)”定义了子程序Sub1，调用程序中的变量I,J均为Integer型，则正确调用子程序Sub1的Call语句是___24___。

①Call Sub1(I,J)	②Call Sub1(3.1415,I)
③ Call Sub1(3.14,234)	④Call Sub1("245","231.5")

A. ①③

B. ③④

C. ①②③

D. 无

25. 下面表达式的值为真的是___25___。

A. Mid("Visual Basic",1,12)=Right("Programming Language Visual Basic",12)

B. "ABCRG">"abcde"

C. Int(134.69)>=Cint(134.69)

D. 78.9/32.77<=97.5/43.97 And -45.4>-4.98

26. 以下有关对象属性的说法中正确的是___26___。

A. 对象所有的属性都罗列在属性窗口列表中

B. 不同对象不可能有同名属性

C. 不同对象的同名属性取值一定相同

D. 对象的某些属性既可以在实行窗口中设置，也可以通过程序代码设置或改变

27. 代数表达式对应的Visual Basic表达式式___27___。

A. Log(Abs((Exp(3.14159)+Sin(x)^3)/(x+y)))

B. Ln(Abs((Exp(3.14159)+Sin(x)^3)/(x+y)))

C. Log(Abs(Exp(3.14159)+Sin(x)^3)/(x+y))

D. Log│Abs(Exp(3.14159)+Sin(x)^3)/（x+y)│

28. 下面能够正确打开文件的一组语句是___28___。

A. Open "data1" For Output As #5 , Open "data1" For Input As #5

B. Open "data1" For Output As #5 , Open "data1" For Input As #6

C. Open "data1" For Input As #5 , Open "data1" For Input As #6

D. Open "data1" For Input As #5 , Open "data1" For Random As #6

29. 若在一个应用程序窗体上，依次创建了CommandButton、TextBox、Label等控件，则运行该程序显示窗体时，___29___会首先获得焦点。

A. 窗体

B. CommandButton

C. Label

D.TextBox

30. 在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有___30___个。

① Public A(5) As Integer	② Public N As Integer
③ Public St As String*10	④ Public b() As Integer

A. 2

B. 3

C. 4

D. 1

31. 单选按纽（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的___31___中安排适当的单选按纽，即可实现。

A. 框架控件（Frame）或图象控件（Image）

B. 组合框（ComboBox）或图象控件（Image）

C. 组合框（ComboBox）或图片框（PictureBox）

D. 框架控件（Frame）或图片框（PictureBox）

32. 下面的语句或方法，错误的有___32___。（其中m和n都为Integer型变量）

① Dim Array(m,n) As Integer	② n=32764+6
③ Print A=A+B;A+B	④ ChDriver"C:"

A. 1

B. 2

C. 3

D. 4

33. 下面说法不正确的是___33___。

A. VB允许将一个数字字符串赋值给一个数值型的变量

B. VB允许使用未经说明的变量，其类型都是Variant类型

C. Cls只清除运行时在窗体或图形框中显示的文本或图形

D. 事件过程既可建在窗体模块中，也可建在标准模块中

34. 运行程序产生死循环时，按___34___键可以终止程序运行。

A. Ctrl+C	B. Ctrl+Z
C. Ctrl+Break	D. 单击“停止运行”按纽

35. 执行下面的程序，单击窗体后在窗体上显示的结果是___35___。

Private Sub Form_Click()

Dim Str1 As String, Str2 As String,I As Integer

Str1="ab"

For I=Len(Str1) To 1 Step -1

item=LCase(Mid(entry,k,1))&k

Str1=Str1&Chr(Asc(Mid(Str1,I,1))+I)

Next I

Print Str1

End Sub

A. abce

B. abcd

C. abdb

D. abfd

二、填空题 （请把答案填写在答题纸的相应答题号内，每个答题只占一行）

1. 根据下图写出InputBox函数中的参数

InputBox（___( "请输入半径" ) ___，___（ "输入对话框" ） ___，___（ 10 ） ___）

2. 执行下面的程序，第一行输出结果是___( 11 ) ___，第二行输出结果是___（ -20 ） ___。

OPtion Explicit

Private Sub Form_Click()

Dim I As Integer,J As Integer

J=10

For I=1 To J

I=I+1

J=J-I

Next I

Print I

Print J

End Sub

3. 执行下面的程序，第一行输出结果是___( 4 8 ) ___，第三行输出结果是___（ 12 86 ） ___。

Private Sub Form_Click()

Dim A As Integer, I As Integer

A=2

For I=1 To 9

Call Sub1(I,A)

Print I,A

Next I

End Sub

Private Sub Sub1(X As Integer,Y As Integer)

Static N As Integer

Dim I As Integer

For I=3 To 1 Step -1

N=N+X

X=X+1

NEXT I

Y=Y+N

End Sub

4. 执行下面程序后，A（1，3）的值是___( 4 ) ___，A（2，2）的值是___( 5 ) ___，A（3，1）的值是___( 6 ) ___。

Option Explicit

Private Sub Form_Click()

Dim A(3,3) As Integer, I As Integer

Dim J As Integer, K As Integer,N As Integer

For K=1 To 5

If K<=3 Then

For I=1 To K

N=N+1

A(I,K-I+1)=N

Next I

Else

For I=1 To 6-K

N=N+1

A(K-3+I,4-I)=N

Next I

End If

Next K

For K=1 To 3

For I =1 To 3

Print A(K,I);

Next I

Next K

End Sub

5. 执行下面的程序，第一行输出结果是___( 3 5 ) ___，第二行输出结果是___（ 8 16 ） ___。

Option Explicit

Private Sub Form_Click()

Dim I As Integer,J As Integer

I=1:j=2

Call Test(I,J)

Print I,J

Call Test(I,J)

Print I,J

End Sub

Private Sub Test(M As Integer,N As Integer)

Static Sta As Integer

M=M+N

N=N+M+Sta

Sta=Sta+M

End Sub

6. 下面程序的功能是统计当前盘当前文件夹中的顺序文件dta.txt中共有多少个英文单词，约定连续出现的英文字母定义为一个单词。

Option Explicit

Private Sub Form_Click()

Dim Char() As String, St As String,Tem As String

Dim Idx As Integer，Js As Long,Flen As long

Dim F As Boolean,W As String*1

___( Open "data.txt" For Input As #10 ) ___

Flen=Lof(10)

St=Input(Flen,#10)

Js=1

Do While Js<=Flen

W=Mid(St,Js,1)

If ( W>="A" And W<="Z" Or W>="a" And W<="z" ) Then

Tem=Tem+W

F=True

Elseif F=True Then

Idx=Idx+1

ReDim Preserve Char(Idx)

Char(Idx)=Tem

Tem=___( "" ) ___

F=False

End If

___( js=js+1 ) ___

Loop

Print "共有";Idx;"个单词"

For Js=1 To Idx

Print Char(Js)

Next Js

End Sub

7. 下面程序的功能是当循环次数一定时，统计生成互不相同的1——100之间的随机整数的个数。

Option Explicit

Option Base 1

Private Sub Form_Click()

Dim Data() As Integer， I As Integer，Idx As Integer

Dim N As Integer， Temp As Integer，Flg As Boolean

N=InputBox("输入循环次数")

ReDim Data(1)

Idx=1

Data(1)=Int(100*Rnd(1))+1

For I=1 To N

Temp=Int(100*Rnd(1))+1

_( Flg=False ) ___

Call COmpare(Data,Temp,Flg)

If Flg=True Then

Idx=Idx+1

( ReDim PreServe Data(Idx) ) ___

Data(Idx)=Temp

End If

Next I

Print "生成"；Idx;"个不相同的整数"

For I=1 To Idx

Print Data(I)

If I Mod 10=0 Then Print

Next I

End Sub

Private Sub Compare(Arry() As Integer,K As Integer,Logic As Boolean)

Dim Ub As Integer， I As Integer

( Ub=UBound(arry) ) ___

For I=1 To Ub

If Arry(I)=K Then

___( Exit Sub ) ___

End If

Next I

Logic=True

End Sub

8. 下面程序的功能是验证回文数猜想。任取一自然数，将其倒过来，并将这两个数相加，然后把这个和数倒过来，与原来的和数相加……重复这个过程有限次，必将得到一个回文数。

所谓回文数指左右数字完全对称的自然数，例如，121，12321，898，111均是回文数。根据猜想，假如取一自然数68——68+86=154——154+451=605——605+506=1111，经过三步运算就得到回文数1111。

Option Explicit

Private Sub Form_Click()

Dim S As Long,D As Long,Sum As Long

Dim Flg As Boolean

S=InputBox("输入一个正整数")

D=Fun(S)

Sum =S+D

Print Sum;"=";S;"+";D

Call Comp(Sum,Flg)

S=___( Sum ) ___

Loop Until Flg

Print Sum;"是回文数"

End Sub

Private Function Fun(N As Long)As Long

Dim Char As String,J As Long

Dim I As Integer,Slen As Integer

Char=Ltrim(Str(N))

___( Slen=Len(Char) ) ___

J=1

For I=1 To Slen

Fun=Fun+Val(Mid(Char,I,1))*J

___( J=J*10或J=10^i ) ___

Next I

End Function

Private Sub Comp(N As Long,F As Boolean)

Dim Ch As String,S As Integer,I As Integer

S=Len(Ltrim(Str(N)))

F=False

Ch=Ltrim(Str(N))

For I=1 To___( S ) ___

If Mid(Ch,I,1)<>Mid(CH,S+1-I,1)Then Exit Sub

Next I

___( F=True ) ___

End Sub

木子李 2006-10-14 14:59 发表评论

江苏省等级考试二级VB笔试试卷2000年（春）及参考答案

木子李 — Sat, 14 Oct 2006 06:33:00 GMT

第二部分 Visual Basic 程序设计

一、选择题 （用答题卡答题，答案依次填在21-30答题号内）

21. Visual Basic 是用予开发___21___环境下的应用程序的工具。

A. DOS

B. Windows

C. DOS和Windows

D. UNIX

22. Visual Basic 程序设计时常用的Print、Cls属于___22___。

A. 属性

B. 对象

C. 方法

D. 事件

23.一个可执行的 Visual Basic 的应用程序至少要包括一个__23___。

A. 标准模块

B. 类模块

C. 窗体模块

D. 辅助模块

24. 在Visual Basic 中最基本的对象是___24___，它是应用程序的基石。

A. 标签

B. 窗体

C. 文本框

D. 命令按纽

25. 数学表达式对应的Visual Basic 算术表达式是___25___。

A. Ln(E^(xy)+Abs(Tan(z))+Cosx^3)

B. Log(Exp^(xy)+Abs(Tan(z))+Cosx^3)

C. Ln(Exp^(x*y)+Abs(Atn(z))+Cosx^3)

D. Log(E^(x*y)+Abs(Atn(z))+Cosx^3)

26. 执行语句“Print Format(5459.478,"##,##0.00")”正确的输出结果是___26___。

A. 5459.48

B. 5，459.48

C. 5，459.478

D. 5，459.47

27. 下列语句中的___27___语句可以用来正确地声明一个动态数组。

A. Private A(n) As Integer	B. Dim A() As Integer
C. Dim A(,) As Integer	D. Dim A(1 To n)

28. 如果要在两个菜单命令项之间机加一条分隔线，可在标题文本框中键入___28___。

A. -

B. +

C. &

D. #

29. 假定变量Logic类型是Boolean，下面赋值语句___29___是正确的。

A. Logic="True"	B. Logic=.True.
C. Logic=#True#	D. Logic=3<4

30. 在 Visual Basic 中文件访问的类型有___30___。

A. 顺序、随机、二进制	B. 顺序、随机、字符
C. 顺序、十六进制、随机	D. 顺序、记录、字符

二、填空题 （请把答案填写在答题纸的相应答题号内，每个答题只占一行）

1. 执行下面程序，第一行输出的结果是___( 6 ) ___，第二行输出的结果是___（ 55 ） ___。

Private Sub Form_Click()

Dim a As Integer,b As Integer

a=1:b=0

Do While a<=5

b=b+a*a

a=a+1

Loop

Print a

Print b

End Sub

2. 执行下面的程序，第二行输出结果是___( BAABC ) ___，第三行输出结果是___（ CBAABC ） ___。

Private Sub Form_Click()

Dim ch As String,i As Integer

ch="ABC"

For I=1 To 3

ch=Mid(ch,2*i-1,1)+Left(ch,Len(ch))
Print ch

Next i

End Sub

3. 执行下面的程序，第一行输出结果是___( 11 12 13 ) ___，第二行输出结果是___（ 21 22 23 ） ___(UBound函数返回指定数组维的维上界)。

Private Sub Form_Click()

Dim i As Integer, j As Integer

Dim m As Integer, n As Integer

Dim a() As Integer

Call Arry(a)

n=UBound(a,1):m=UBound(a,2)

For I=1 To m

    For j=1 To n

          Print A(i,j);
    Next j

    Print

Next I

End Sub

Private Sub Arry(b() As Integer)

Dim I As Integer,j As Integer,k As Integer

ReDim b(3,3)

For i=1 To 3

For j=1 To 3

b(i,j)=i*10+j

Next j

Next i

End Sub

4. 执行下面程序后，输出的第一行结果是___( 0 0 ) ___，第二行结果是___( 0 0 ) ___。

Private Sub Form_Click()

Dim a As Integer, b As Integer

a=1

b=2

Call Proc1(a,b)

Print a,b

End Sub

Private Sub Proc1(c As Integer,d As Integer)

Dim a As Integer,b As Integer

c=a+b

d=a-b

Print c,d

End Sub

若将Sub语句改为：

Private Sub Proc1(ByVal c As Integer,ByVal d As Integer)

那么执行候的第一行结果是___( 0 0 ) ，第二行结果是( 1 2 ) 。

5. 执行下面的程序，结果是___( 12(2)=1100 ) ___，若将A语句替换为x=64,B句替换为r=8,则结果是___（ 64(8)=100 ） ___。

Dim n As Integer,k As Integer,x As Integer,r As Integer

Dim a(8) As Integer

Private Sub Conv(d As Integer,r,i)

i=0

Do While d<>0

i=i+1

a(i)=d Mod r:d=d\r

Loop

End Sub

Private Sub Form_Click()

x=12 'A语句

r=2 'B语句

Print Str(x);"(";Str(r);")=";

If x=0 Then

Print 0

Else

Call Conv(x,r,n)

For k=n To 1 Step -1

Print a(k);

Next k

End If

End Sub

6. 根据下面图形界面（图2）和程序，填写对象的相关属性和程序中的相关语句，“X”表示对象无该属性。

对象	名称（ Name ）	标题 (Caption)
窗体	Frm1	()13
标签	Labl1	(14)
文本框	Text1	X
命令按纽	(15)	(16)

Private Sub CmdEnd_Click()

___( UnLoad me 或 End ) ___

End Sub

Private Sub Form_Click

Dim x As Integer， y As Integer，sum As Integer

x=1:y=2

Call Addition(___( x,y,sum ) ___)

Text1.Text=sum

End Sub

Private Sub Addition(n As Integer,m As Integer,sum As Integer)

sum=n+m

End Sub

7. 下面程序是找出两个正整数a和b，使得a

Option Explicit

Dim a As Integer,b As Integer,n As Integer,c As Integer

Private Function Gcd(ByVal A As Integer,ByVal b As Integer)As Integer

c=a Mod b:a=b:b=c

Loop ___( Until c=0或While c<>0 ) ___

Gcd=a

End Function

Private Sub Form_Click()

n=0

For a=1 to 49

b=___( 99-a ) ___

c=Gcd(a,b)

If c Mod 3=0 Then

___( n=n+1 ) ___

Print a,b,c

End If

Next a

Print n

End Sub

8. 本程序的功能是统计输入字符串中字母、数字和其他字符的个数。其中的vbCrLf为Visual Basic回车符与换行符。

对象	名称（ Name ）	标题 (Caption)	正文（ Text ）
文本框 1	TxtInput	X	空
文本框 2	TxtOutput	X	空
命令按纽 1	Cmdsta	统计	X
命令按纽 2	CmdExit	结束	X

Private Sub CmdExit_Click()

UnLoad Me

End Sub

Private Sub CmdSta_Click()

Dim i As Integer,n1 As Integer,n2 As Integer,n3 As Integer

Dim s As String

For i=1 To Len(TxtInput.Text)

       Select Case___( Mid(TxtInput.Text,i,1) )

          Case "A" To "Z","a" To "z"

             n1=n1+1
             Case ___( "0" To "9" ) ___
          n2=n2+1
             ___( Case Else ) ___
          n3=n3+1
       End Select
Next i

s="字母个数："&Str(n1)&vbCrLf

s=s&"数字个数:"&Str(n2)&vbCrLf

s=s&"其他字符个数："&Str(n3)
___( TxtOutput.Text=s ) ___

End Sub

图3的窗体上，文本框对象txtInput的MultiLine属性取值是( True ) 。

9. 本程序的功能是在二维数组中查找鞍点元素，即该元素在所在行中为最大，且在所在列中为最小。在一个数组中可能存在，也可能不存在这样的元素。数组各元素的值从文件data.txt中读取。

Private Sub Form_Click()

Dim a(3,3) As Integer,i As Integer,j As Integer

Dim maxvr As Integer,col As Integer,flg As Integer

Open "data.txt" For Input As #1

For i=1 To 3

For j=1 To 3

Input #1,a(i,j)

Print a(i,j);

Next j

Next i

For i=1 To 3

maxvr=___( a(i,1) ) ___

col=1

For j=2 To 3

If maxvr

maxvr=( a(i,j) )

col=j

End If

Next j

For j=1 To 3

If maxvr>a(j,col) Then( Exit For )

Next j

If j>3 Then

Print "a(";i;",";col;")=";a(i,col)

flg=1

End If

If___( flg=0 ) ___Then Print "鞍点元素不存在"

Next i

End Sub

木子李 2006-10-14 14:33 发表评论

江苏省等级考试二级VB笔试试卷1999年（秋）及参考答案

木子李 — Sat, 14 Oct 2006 06:28:00 GMT

1999 年（秋） 二级 VB 笔试答案

第二部分 Visual Basic 程序设计

一、选择题 （用答题卡答题，答案依次填在21-30答题号内）

21. Visual Basic 是一种面向___21___的程序设计语言。

A.过程

B.用户

C.方法

D.对象

22. 一只白色的足球被踢进球门，则白色、足球、踢、进球门是___22___。

A. 属性、对象、方法、事件	B. 属性、对象、事件、方法
C.对象、属性、方法、事件	D.对象、属性、事件、方法

23. 如果在窗体上有命令按纽OK，在代码编辑窗口有与之对应的CmdOK_Click()事件，则命令按纽控件的名称属性和Captin属性分别为___23___。

A.OK、Cmd

B. Cmd、OK

C. CmdOK、OK

D. OK、CmdOK

24. 窗体Form1的名称属性是frm,它的Load事件过程名是___24___。

A. Form_Load

B. Form1_Load

C. frm_Load

D. Me_Load

25. 在语句Public Sub Sort(i As Integer)中的 i 是一个按___25___传递的参数。

A. 地址

B. 值

C. 变量

D. 常量

26. x+y小于10且x-y大于0的逻辑表达式是___26___。

A. x+y<10 or x-y>0	B. (x+y<10):(x-y)>0
C. x+y<10 And x-y>0	D. x+y<10.And.x-y>0

27. 在Form_Click事件中执行如下语句的正确结果是___27___。

Print Format(1236.54,"+ ##,##0.0%")

A. 123456

B. +123,654.0%

C. +123,6.54%

D. +123,654

28. 代数表达式，对应Visual Basi c 表达式是___28___。

A. E^(x+y)+|x+y|^1/2/2π+1

B. Exp(x+y)+Sqr(Abs(x+y))/2*3.14159+1

C. (Exp(x+y)+Sqr(Abs(x+y)))/(2*3.14159+1)

D.( Exp(x+y)+Sqr(Abs(x+y)))/2*π+1

29. 要对顺序文件进行写操作，下列打开文件语句中正确的是___29___。

A. Open "file1.txt" For Output As #1

B. Open "file1.txt" For Input As #1

C. Open "file1.txt" For Random As #1

D. Open "file1.txt" For Binary As #1

30. 有变量定义语句Dim a,a As Integer，变量 a 的类型和初值是___30___。

A. Integer,0

B. Variant,空值

C. String,""

D. Long,0.0

二、填空题 （请把答案填写在答题纸的相应答题号内，每个答题只占一行）

1. 运行下面的程序，单击窗体后在窗体上显示的第一行结果是___（ 15 ） ___；第二行结果是___（ 13 ） __；第三行结果是___（ 17 ） _。

Private Sub Form_click()

Dim i As Integer, s as Integer

For i=1 To 10

s=s+i

If s>10 Then

Print s

s=0

End If

Next i

End Sub

2. 运行下面的程序，单击窗体后在窗体上显示的内容是___（ 10 220 ） ___；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是___（ 10 120 ） ___。

Private Sub Form_Click()

Dim a As Integer,b As Integer

a=0: b=0

Do While a<=8

a=a+2 'A语句

b=b+a*a 'B语句

Loop

Print a,b

End Sub

3.运行下面的程序，单击窗体后在窗体上显示的第一行结果是___（ 3 ） ___；第二行结果是___（ 2 ） _.

Private Function Digit(n As Integer,k As Integer) As Integer

digit=0

Do While k>0

Digit=n Mod 10

n=n\10

k=k-1

Loop

End Function

Private Sub Form_Click()

Print Digit(1234,2)

Print Digit(1234,3)

End Sub

4.运行下面的程序，单击窗体后在窗体上显示的第一行结果是___（ Aa ） ___；第三行结果是___（ AaBbCe ） _.

Private Sub Form_Click()

Dim mst As String,mst1 As String,mst2 As String

Dim i As Integer

mst1="CeBbAa"

For i=Len(mst1) to 1 Step -2

mst2=Mid(mst1,i-1,2)

mst=mst & mst2

Print mst

Next i

End Sub

5. 运行下面的程序，单击窗体后在窗体上显示的第一行结果是___（ 1 ） ___；第三行结果是___（ 3 3 3 ） _.

Private Sub Test(x As Integer)

Dim i As Integer

If x<>0 Then

Call Test(x-1)

For i=1 To x

Print x;

Next i

End If

End Sub

Private Sub Form_Click()

Test 3

End Sub

6. 运行下面的程序，单击窗体后在窗体上显示的第二行结果是___（ x2=0 y2=1 ） ___；第四行结果是___（ x4=1 y4=3 ） _.

Dim y As Integer

Private Sub Form_Click()

Dim x As Integer

x=1:y=1

Print "x1=";x, "y1=";y

Test

Print "x4=";x, "y4=";y

End Sub

Private Sub Test()

Dim x As Integer

Print "x2=";x, "y2=";y

x=2:y=3

Print "x3=";x, "y3=";y

End Sub

7. 图1是应用程序的窗体，要求用户选中复选框 ChkBold 后，文本框 TxtDisplay 中的文字以粗体显示，选中复选框 ChkItalic 后,文本框 TxtDisplay 中的文字以斜体显示，单击关闭按纽 CmdClose结束应用持续运行。

Private Sub ChkBold_Click()

If___（ ChkBold.Value=1 ） _Then

TxtDisplay.FontBold=True

Else

TxtDisplay.FontBold=___（ False ） _

End If

End Sub

Private Sub ChkItalic_Click()

If___（ ChkItalic=0 ） _Then

TxtDisplay.FontItalic=False

Else

TxtDisplay.FontItalic=True

End If

End Sub

Private Sub CmdClose_Click()

___（ Unload ） _Me

End Sub

8. 验证下列命题：设n是一个s1是n的各位数字之和，s2是2n的各位数字之和。若s1=s2,则n是9的倍数。根据图2和程序填写对象的相关属性，"X"代表该对象无属性。

对象	名称（ Name ）	标题（ Caption ）	正文（ Text ）
窗体	Frm1	()18	X
标签	LblInput	()19	X
文本框	TxtInput	X	空
判断按纽	(20)	验证	X
退出按纽	CmdExit	退出	X

Private Sub CmdVerify_Click()

Dim n As Integer,s1 As Integer,sa As Integer

n=Val__（ TxtInput _)

s1=Sm(n)

s2=Sm(2*n)

If ___（ s1=s2 and n Mod 9=0 ） ___Then

MsgBox "该命题成立"

Else

MsgBox "该命题不成立"

End If

TxtInput.Text=""

TxtInput.SetFocus

End Sub

Private Sub CmdExit_Click()

Unload Me

End Sub

Private Function Sm(___（ ByVal n As Integer ） ___) As Integer

Dim sm1 as integer

sm1=0

Do While n<>0

sm1=sm1+n Mod 10

___（ n=n\10 ） ___

Loop

Sm=sm1

End Function

9. 本程序从键盘读入n个整数 X ₁ ,X₂,…,X_n,若这些整数满足如下条件之一：

(1) X ₁ 2<…n;

(2) X ₁ 2<…j且 X_j>X_j+1>X_j+2>…>X_n,其中 1

(3) X ₁ >X₂>…>X_n.

则输出“符合条件！”，否则，输出“不符合条件！”。

Private Sub Form_Click()
Dim a() As Integer

Dim i As Integer, j As Integer, n As Integer

n=InputBox("输入数据个数")

___（ ReDim a(n) ） ___

For i=1 To n

a(i) = InputBox("输入数据")

Next i

For i=1 To n-1

If a(i) >a(i+1)Then Exit For

Next i

For j=i To n-1

If ___（ a(j) ） ___Then Exit For

Next j

If ___（ j=n ） __Then

Print "符合条件！"

Else

Print "不符合条件！"

End If

End Sub

10. 在C盘根目录下有一数据文件（cj.dat），内容如下：

9901 ，	56 ，	78
9902 ，	97 ，	89
9903 ，	67 ，	75
9904 ，	78 ，	76
9905 ，	100 ，	90

第一列数据表示学号，第二列数据表示数学成绩，第三列数据表示语文成绩，要求根据学号计算学生的总分，并按总分从高到低次序在窗体上输出。现有程序如下：

Dim a(5,4) As Integer

Private Sub Form_Click()

Dim i As Integer, j As Integer

Open "c:\cj.dat" For Input As #1

For i=1 To 5

For j=1 To 3

（ InPut #1, a(i,j) ） __

Next j

（ a(i,4) ） __=a(i,2) +a(i,3)

Next i

Sort

For i=1 To 5

For j=1 To 4

Print a(i,j),

Next j

Next i

Close #1

End Sub

Private Sub Sort()

Dim i As Integer, j As Integer, k As Integer, temp As Integer

For i=1 To 4

For j=i+1 To 5

If a(i,4)

For k=1 To ___（ 4 ） __

temp=a(i,k)

a(i,k)=a(j,k)

a(j,k)=temp

Next k

End If

Next j

Next i

End Sub

木子李 2006-10-14 14:28 发表评论