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

End Function

12．试求出所有满足下述条件的二位数：当它们乘以数字2，3，4，5，6，7，8，9时，其数字之和不变。给定的程序不完整，将程序补充完整。

Private Sub Command1_Click()

Dim m As Integer, sum As Integer

Dim a As Integer, b As Integer, c As Integer For a = 1 To 9

For b = （15） （16） For c = 2 To 9

m = c * (a * 10 + b) sum = 0 Do

sum = sum + m Mod 10 m = m \\ 10 Loop While m > 0

If （17） Then flg = 0: Exit For Next c

If （18） Then Print a; b End If Next b Next a End Sub

13．下列程序的功能是计算圆周率π（计算精度到第n项减1的绝对值小于10-5为止）。请完善下列

程序。

??2?Option Explicit

Private Sub Form_Click()

22?22?222?2?2???

Dim y As Single, t As Single, a As Single y = 2: t = 0 Do

t = Sqr(2 + t) （19）

If Abs(a - 1) < 1E-5 Then （20） y = y * a Loop Print \End Sub

14．统计[1,1000]中包含数字1自然数，并将统计结果值，以及每相间100内具有该特

征的数显示在文本框中，如图3所示。

图3

Private Sub Form_Click() Sum = 0: sum1 = 0 For i = 1 To 1000 （21）

For j = 1 To Len(s)

If Mid(s, j, 1) = \ Sum = Sum + 1 sum1 = sum1 + 1 （22） End If Next j

If i Mod 100 = 0 Then

Text1.Text = Text1.Text + Str(sum1) （23） End If Next i Print

Text2.Text = Sum End Sub

15．窗体上有一个命令按钮，数据文件data.txt的内容如下：

\宿舍\\商店\\教室\\球场\又有运行下列程序：

Type bs

aa As String * 2 bb As String * 4 cc As Integer End Type

Private Sub Command1_Click() Dim xs As bs Dim f1 As Integer f1 = FreeFile

Open \ Do While Not EOF(f1)

Input #f1, xs.aa, xs.bb, xs.cc List1.AddItem xs.bb List1.AddItem xs.aa List1.AddItem xs.cc Loop

Print EOF（f1） Close End Sub

问：在列表框中第一行、第三行、第四行的内容是 （24） 、 （25） 、 （26） 。窗体上打印出的是 （27） 。

16．编写一过程把C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MuhiLine属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，将程序补充完整。

Option Explicit

Private Sub Form_Click()

Dim ch1 As String, fn As Integer Dim Str As String fn = （28）

Open \ Do While Not EOF( （29） ) Line Input #fn, ch1

Str = Str + ch1 + vbCrLf Loop

Text1.Text = （30） End Sub

二级Visual Basic全真模拟试卷三参考答案 一、选择题： 1．D 2．C 3．C 4．B 5．A 6．C 7．B 8．B 9．D 10．C 11．A 12．B 13．C 14．D 15．D 16．B 17．C 18．A

19．C 20．B 21．B 22．A 23．B 24．C 25．C 26．A 27．C 28．A 29．C 30．A

二、填空题： （1）?

（2）工程执行全编译 （3）双精度浮点数 （4）Cbool （5）MultiLine （6）13 （7）14 （8）13

（9）Main:2 2 3 （10）15 （11）78

（12）fun1(x,y)

（13）a

（14）fun1=b

（15）0 To 9

（16）flg=1

（17）a+b<>sum

（18）flg=1

（19）a=2/t

（20）Exit Do

（21）s=CStr(i)

（22）Exit For

（23）sum1=0

（24）2001

（25）87

（26）2002

（27）True

（28）ReDim s(t)

（29）String(2*i+1,\

（30）Print s(i)

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

二级Visual Basic全真模拟试卷四

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

说明：

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

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

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

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