浙江省高等学校计算机等级考试真题(附二级VB程序设计考试大纲)

2008年春浙江省高等学校

计算机等级考试试卷(二级Visual Basic)

说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；

⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；

⑶考试时间为90分钟;

试题1（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。

例如：输入123显示321，输入-567显示-765。

【程序】

(1)

Private Sub Form_Load()

(2)

End Sub

Private Sub Command1_Click()

Text1.Text = "": n = InputBox("n=")

End Sub

Private Sub Command2_Click()

If n < 0 Then n = -n: Text1.Text = "-"

While n <> 0

Text1.Text = (3)

(4)

Wend

End Sub

【供选择的答案】

(1) A、Dim n As Byte B、Dim n As Integer

C、Dim n As String

D、Public n As Byte

(2) A、Text1.Locked = True B、Text1.Locked = False

C、Text1.Visible = True

D、Text1.Visible = False

(3) A、n/10 & Text1.Text B、n Mod 10 & Text1.Text

C、Text1.Text & n/10

D、Text1.Text & n Mod 10

(4) A、n = n \ 10 B、n = n / 10

C、n = n Mod 10

D、n = n - 10

试题2（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

运行时，可以在图片框控件p1用红色绘制下列坐标线并加上数字显示。

Private Sub Form_Activate()

P1.Height = P1.Width

P1.FontSize = 10

(5) (-10, 110)-(110, -10)

(6)

P1.Line (-5, 0)-(100, 0)

P1.Line (0, -5)-(0, 100)

For i = (7)

P1.Line (i, 0)-(i, 2)

P1.Line (0, i)-(2, i)

Next i

For i = 1 To 9

P1.CurrentX = i * 10 - 2

P1.CurrentY = -2

(8)

Next i

End Sub

【供选择的答案】

(5) A、P1.Draw B、P1.Line C、P1.Print D、P1.Scale

(6) A、P1.ForeColor = RGB(255,0,0) B、P1.FillColor = RGB(255,0,0)

C、P1.FillColor = VbRed

D、P1.ForeColor = Red

(7) A、1 To 9 Step 1 B、10 To 90 C、10 To 90 Step 10 D、2 To 9

(8) A、PSet i B、P1.Print i C、P1.Pset i D、Print i

试题3（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

单击“读文件”按钮将文本文件读入并逐行在列表框控件List1中显示；然后单击“分解”按钮将List1每行中的英文字母、其他字符分别显示在List2、List3各行中。

运行结果如下图所示。

【程序】

Private Sub Command1_Click() '读文件

Dim s As String

Open "e:\xxx.txt" For (9) As #1

While Not EOF(1)

Line Input #1, s : List1.AddItem s

Wend

Close #1

End Sub

Private Sub Command2_Click() '分解

Dim i As Integer, n As Integer, s1 As String, s2 As String

For i = 1 To (10)

n = Len(List1.List(i - 1))

ReDim a(n) As String * 1

For j = 1 To n

a(j) = (11)

Next j

s1 = "": s2 = ""

For j = 1 To n

If (12) Then s1=s1+a(j) Else s2=s2+a(j)

Next j

List2.AddItem s1

List3.AddItem s2

Next i

End Sub

【供选择的答案】

(9) A、Read B、Append C、Input D、Output

(10) A、List1.Count B、ListCount C、ListCount-1 D、List1.ListCount

(11) A、Mid(List1.List(i-1),j,1) B、Middle(List1.List(i-1),j,1)

C、Mid(List1.List(i-1),j)

D、Middle(List1(i-1),j,1)

(12) A、a(j)>='a' And a(j)<='z' Or a(j)>='A' And a(j)<='Z'

B、a(j)>="a" And a(j)<="z" Or a(j)>="A" And a(j)<="Z"

C、"a"<=a(j)<="z" Or "A"<=a(j)<="Z"

D、(a(j)>='a' And a(j)<='z') Or (a(j)>='A' And a(j)<='Z')

试题4（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

Private Sub Text1_KeyPress(K As Integer)

If K < Asc("0") Or K > Asc("9") Then

K = 0

Else

Label1.Caption = Chr(K) + Label1.Caption

End If

End Sub

【供选择的答案】

(13) Text1获得输入焦点后，依次按数字键1、3、5，Label1显示：

A、135

B、531

C、9

D、5

(14) Text1获得输入焦点后，依次按数字键2、7、9，Label1显示：

A、972

B、279

C、297

D、18

(15) Text1获得输入焦点后，依次按 -、2、3、5键，Label1显示：

A、-532

B、-235

C、532

D、235

(16) Text1获得输入焦点后，依次按 1、2、a、5键，Label1显示：

A、空白

B、12a5

C、5a21

D、521

试题5（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

Private Sub Form_Load()

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Static k As Byte

Form1.CurrentX=0: Form1.CurrentY=0 '窗体的所有其他属性均取缺省值

Form1.Cls

If k = 0 Then k = 1 Else k = 0

If k=0 Then Form1.ForeColor = RGB(0, 255, 0) Else _

Form1.ForeColor = RGB(0, 0, 255)

Print Time

End Sub

【供选择的答案】

(17) 激活Timer1后，每间隔1秒显示一次系统时间，方式是：

A、蓝、绿色交替显示

B、蓝色显示

C、绿色显示

D、红色显示

(18) 系统时间的显示位置，是在：

A、窗体右上角

B、窗体左上角

C、窗体右下角

D、窗体左下角

(19) 如果将Timer过程中的语句“Static k As Byte”改为“Dim k As Byte”，激活Timer1

后，窗体系统时间显示上的颜色为：

A、蓝、绿色交替

B、蓝色

C、绿色

D、红色

(20) 如果要同时显示系统日期、时间，对Timer过程中Print语句之输出列表不可取的是：

A、Date,Time

B、Date;Time

C、Date-Time

D、Date + Time

试题6（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

Private Sub f(b() As Integer, ByRef m As Integer)

Dim i As Integer, j As Integer, k As Integer

i = 1

Do While i <= m

For j = 1 To m

If b(i) Mod b(j) = 0 And i <> j Then

For k = i To m - 1: b(k) = b(k + 1): Next k

Exit For

End If

Next j

If j > m Then i = i + 1 Else m = m - 1

Loop

End Sub

Private Sub Command1_Click()

Dim a(6) As Integer, i As Integer, n As Integer

n = 6

For i = 1 To 6: a(i) = InputBox("a(" & i & ")="): Next i

Call f(a, n)

For i = 1 To n: Print a(i); : Next i

End Sub

(21) 单击Command1输入7、8、5、4、9、3后，相应的显示结果为：

A、8 9 3

B、8 9 3 3 3 3

C、7 5 4 3 3 3

D、7 5 4 3

(22) 如果将过程f首句中的“ByRef”改为“Byval”，输入数据同(21)，显示结果为：

A、8 9 3

B、8 9 3 3 3 3

C、7 5 4 3 3 3

D、7 5 4 3

(23) 单击Command1输入4、12、27、8、-6、3后，相应的显示结果为：

A、4 3 3 3 3 3

B、4 3

C、12 27 8 -6

D、12 27 8

(24) 如果将过程f首句中的“ByRef”改为“Byval”，输入数据同(23)，显示结果为：

A、4 3 3 3 3 3

B、4 3

C、12 27 8 -6

D、12 27 8

试题7(28分)

编程，按Command1可输入有10个实数的数组，调用函数f求他们的平均值V，然后输出其中与V之差的绝对值为最小的那个数组元素。

请将答卷上函数过程f（包括形参列表）、事件过程Command1补充完整。

2007年秋浙江省高等学校

计算机等级考试试卷(二级Visual Basic)

说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；

⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；

⑶考试时间为90分钟;

试题1（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】单击Command1后计算a?x2＋b?x＋c的值并显示，界面设计以及运行时的显示分别如下图左、图右所示。要求在文本框中不可输入英文字母。

【程序】

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single, x As Single, y As Single a = Text1(0).Text: b = Text1(1).Text

c = Text1(2).Text: x = Text1(3).Text

y = a * x * x + b * x + c

Label3.Caption = y

End Sub

Private Sub Text1_ (1) (Index As Integer, (2) )

Select Case (3)

Case "A" To "Z"

K = 0

Case (4)

K = 0

End Select

End Sub

【供选择的答案】

(1) A、keyPress B、change C、keydown D、keyup

(2) A、keyAscii As Integer B、Value C、Text() D、k As Integer

(3) A、Chr(KeyAscii) B、Chr(K) C、Asc(K) D、Asc(KeyAscii)

(4) A、a To z B、'a' To 'z' C、"a" To "z" D、'a'...'z'

试题2（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

过程f的功能是：返回Single类型数组n个元素的平均值，查找数组中最大值、最小值并通过相应的实参返回到调用处。该过程可以被其他模块中的过程所调用。

(5) f(a() As Single, n As Integer, (6) ) As Single

Dim i As Integer

max = a(1): min=a(1)

For i = 2 To n

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

If a(i)

(7)

Next i

(8)

【供选择的答案】

(5) A、Function B、Sub C、Private Sub D、Private Function

(6) A、max As Single,min As Single B、max As Integer,min As Integer

C、Byval max As Single

D、Byval max As Single,Byval min As Single

(7) A、f=f+a(i) B、f=f+a(i)/n C、f=a(i) D、f=a(i)/n

(8) A、find = max B、End Sub C、find = min D、End Function

试题3（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

单击Command1后读入文件中所有数据(多于10个)，将其中较大的5个数、较小的5个数以及其他数分别在列表框控件List1、List3、List2中显示。

【程序】

Private Sub Command1_Click()

Dim n As Integer, x As Single, i As Integer,j As Integer,k As Integer Open "e:\score.txt" For Input As #1

Do While (9) '统计文件中的数据个数n

Input #1, x : n = n + 1

Loop

(10) As Single

Close #1: Open "e:\score.txt" For Input As #1 '重新打开文件

For i = 1 To n

Input #1,a(i)

Next i

Close #1

For i = 1 To n-1

k = i

For j = i+1 To n

If (11) Then k=j

Next j

x = a(i): a(i) = a(k): a(k) = t

If i <= 5 Then

List1.AddItem a(i)

Else If (12) Then

List3.AddItem a(i)

Else

List21.AddItem a(i)

End If

Next i

End Sub

【供选择的答案】

(9) A、Not Eof(1) B、Eof(1) C、Eof(1) = True D、Read

(10) A、Dim a(n) B、Redim a(n) C、Redim a() D、static a(n)

(11) A、a(i)>a(k) B、a(i)a(k) D、a(j)

(12) A、i>=n-5 B、i>n-5 C、n>5 D、i

试题4（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

Dim m As Integer

Private Sub Command1_Click()

Dim a As Integer, i As Integer, f As Integer

a = InputBox("a=")

f = 1: i = 2

While i <= a / 2

If a Mod i = 0 Then f = f + i

i = i + 1

m = m + 1

Wend

Form1.Cls: Print f

End Sub

【供选择的答案】

(13) 运行时第1次单击Command1输入7后，窗体上的显示结果为：

A、1

B、3

C、5

D、7

(14) 运行时第2次单击Command1输入8后，窗体上的显示结果为：

A、2

B、7

C、8

D、6

(15) 运行时第3次单击Command1输入9后，窗体上的显示结果为：

A、3

B、5

C、7

D、4

(16) 运行时3次单击Command1、并依次输入7、8、9后，变量m的当前值为：

A、6

B、7

C、8

D、3

试题5（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

Private Function f(a As Integer, b As Integer) As Integer

Dim r As Integer, t As Integer

f = a

Do While f Mod b <> 0

f = f + a

Loop

End Function

Private Sub Command1_Click()

Static k As Integer

Dim m As Integer, n As Integer

m = InputBox("m=")

n = InputBox("n=")

k = k + 1

Form1.Cls

Print f(m, n)

End Sub

【供选择的答案】

(17) 运行时第1次单击Command1输入4、6后，窗体上的显示结果为：

A、4

B、24

C、8

D、12

(18) 运行时第2次单击Command1输入15、10后，窗体上的显示结果为：

A、150

B、20

C、30

D、2

(19) 运行时第3次单击Command1输入4、10后，窗体上的显示结果为：

A、10

B、20

C、40

D、80

(20) 第4次单击Command1后，该事件过程中变量k的当前值为：

A、4

B、3

C、0

D、2

试题6（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。界面设计以及运行时HScroll1.Value值为90时的显示分别如下图左、图右所示。

【程序】

Private Sub Form_Load()

Picture1.Width = Picture1.Height

Picture1.Scale (-10, 10)-(10, -10)

Picture1.BorderStyle = 0

HScroll1.SmallChange = 2: https://www.doczj.com/doc/d517177167.html,rgeChange = 10 End Sub

Private Sub HScroll1_Change() Dim t As Single Picture1.Cls

t = HScroll1.Value * 3.14159 / 180 Label1.Caption = HScroll1.Value Picture1.Circle (0, 0), 10, vbRed

Picture1.Line (0, 0)-(9 * Cos(t), 9 * Sin(t)) End Sub

(21) 决定运行时图片框控件边框不显示的相关属性为：

A 、BackColor

B 、ForeColor

C 、FillStyle

D 、BorderStyle (22) 滚动条Value 属性值为180时，以原点为起点的直线指向： A 、12点方向 B 、9点方向 C 、6点方向 D 、3点方向 (23) 滚动条Value 属性值为270时，以原点为起点的直线指向： A 、12点方向 B 、9点方向 C 、6点方向 D 、3点方向 (24) 下列说法中正确的是：

A 、拖动滚动条滑块的过程中以及结束后都不会触发HScroll1_Change 事件

B 、拖动滚动条滑块的过程结束后立即触发HScroll1_Change 事件

C 、单击滚动条两端箭头时Value 的增量为10或-10。

D 、单击滚动条上空白区域时Value 的增量为2或-2。

试题7(28分)

编程，计算多项式1

2321-++++n n x a x a x a a 的值。在文本框控件Text1、Text2中

分别输入n 、x 后，按Command1可输入n a a a a 、、、、 321，按Command2可计算该多项式的值并以标签控件Label3显示。

程序设计时的界面设计如下图左所示。运行时输入n 为3、x 为1.5，输入321a a a 、、分别为1、2、3后的输出结果如下图右所示。请将答卷上各事件过程补充完整。

2007年春浙江省高等学校

计算机等级考试试卷(二级Visual Basic)

说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；

⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；

⑶考试时间为90分钟;

试题1（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】单击窗体后输入1个不小于6的正整数，然后输出该数所有的质数因子（如输入6则输出“ 2 3”，输入60则输出“ 2 2 3 5”，等等）。

【程序】

Private Sub f( (1) )

Dim i As Integer

i = 2

Do While (2)

If (3) Then k = k /i: Print i; Else i = i + 1

Loop

End Sub

Private Sub Form_Click()

Dim n As Integer

Do

n = InputBox("n=")

Loop (4)

Call f(n)

Print

End Sub

【供选择的答案】

(1) A、n As Integer B、k As Integer

C、Byval n As Byte

D、I As Integer

(2) A、k>1 B、k>=1 C、k=1 D、k Mod i=0

(3) A、k\i=0 B、k\i*i=0 C、n Mod i=0 D、(k\i)*i=k

(4) A、Until n>6 B、While n>=6 C、Until n>=6 D、While n>6 试题2（每小题3分，共15分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

统计鼠标单击图片框控件P1中两个同心圆所围成黑色区域的次数：首次单击Command1将统计结果请零、P1可用，再次单击则以消息框显示统计结果、P1不可用。

Dim n As Integer

Private Sub Command1_Click()

If Command1.Caption = "开始" Then

Command1.Caption = "显示"

P1.Enabled = True: n = 0

Else

Command1.Caption = (5)

P1.Enabled = False: MsgBox("单击该区域" + (6) + "次")

End If

End Sub

Private Sub Form_Activate()

P1.Width = P1.Height

P1.Scale(-3, 3) - (3, -3)

P1.FillStyle = (7)

P1.FillColor = (8) : P1.Circle(0, 0), 2

P1.FillColor = vbwhite: P1.Circle(0, 0), 1

End Sub

Private Sub Form_Load()

Command1.Caption = "开始": P1.Enabled = False

End Sub

Private Sub P1_MouseDown(Button As Integer, Shift As Integer, _

x As Single, y As Single)

If x * x + y * y >= 1 And (9) Then n = n +1

End Sub

【供选择的答案】

(5) A、"退出"B、"开始"C、"显示"D、"开始"

(6) A、n B、Val(n) C、Str(n )D、Trim(n)

(7) A、1 B、0 C、2 D、3

(8) A、vbBlack B、Rgb(255,0,0) C、vbwhite D、Rgb(255,255,0)

(9) A、x*x+y*y<=4 B、x>2 And y>2 C、x*x+y*y<=2 D、x*x+y*y>4

试题3（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

某文件中存放了若干个实数，单击Command1 可用对话框打开该文件、并将读入的所有数据在List1中显示，单击Command2可将读入的数据按值从大到小顺序重新写入到该文件。

【程序】

Private Sub Command1_Click()

Dim x As Single

List1.Clear: CommonDialog1.Action = 1

Open CommonDialog1.FileName For (10) As #1

Do While (11)

Input #1, x: List1.Additem x

Loop

Close #1

End Sub

Private Sub Command2_Click()

Dim n As Single,x As Single,i As Integer,j As Integer,K As Integer n = List1. (12)

Redim a(n) As Single

For i = 1 To n: a(i) = List1.List(i-1): Next i

For i = 1 To n -1

k = i

For j = i+1 To n: If (13) Then k = j: Next j

x = a(k): a(k) = a(i): a(i) = x

Next i

Open CommonDialog1.FileNmae For Output As #1

For i = 1 To n: Print #1,a(i): Next i

Close #1

End Sub

【供选择的答案】

(10) A、Output B、Input C、Append D、Read

(11) A、Eof(1) B、Not Eof(1) C、Eof(fn) D、Not Eof(fn)

(12) A、Count B、ListCount-1 C、List D、ListCount

(13) A、a(j)>a(k) B、a(j)<=a(k) C、a(j)<>a(k) D、a(j)

试题4（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

Private Sub Form_Load()

Text1.Text="": Form1.Cls

End Sub

Private Sub Text1_KeyPress(k As Integer)

Static s As Integer

If (Chr(k) < "0" Or Chr(k) > "9") And k<> 13 Then k=0

If k=13 Then s = s + Val(Text1.Text): Text1.Text = "": Print s; End Sub

(14) 写出运行时在Text1中依次按“1↙ 3↙ 5↙”后窗体上的显示结果。

A、1 4 9

B、9

C、1 3 5

D、5

(15) 写出运行时在Text1中依次按“2↙ 4↙ 6↙”后窗体上的显示结果。

A、2 4 6

B、12

C、6

D、2 6 12

(16) 写出运行时在Text1中依次按“1↙ -3↙ 5↙”后窗体上的显示结果。

A、1 -2 3

B、1 4 9

C、1 -3 5

D、3

(17) 写出运行时在Text1中依次按“1↙ 2a↙ 5↙”后窗体上的显示结果。

A、1 43 48

B、1 2 5

C、5

D、1 3 8

试题5（每小题3分，共9分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

Private Function f(a As Integer, b As Integer) As Integer

Dim r As Integer, t As Integer

If a < b Then t = a: a = b: b = t

Do

r = a Mod b

If r = 0 Then Exit Do

a = b:

b = r

Loop

f = b

End Function

Private Sub Command1_Click()

Dim m As Integer, n As Integer

m = InputBox("m="): n = InputBox("n=")

Form1.Cls: Print f(m, n)

End Sub

(18) 运行时若输入m值为15、n值为25，窗体上的显示结果为：

A、25

B、15

C、5

D、3

(19) 运行时若输入m值为24、n值为16，窗体上的显示结果为：

A、24

B、16

C、8

D、2

(20) 运行时若输入m值为123、n值为23，窗体上的显示结果为：

A、100

B、1

C、23

D、146

试题6（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

Private Sub f(n As Integer, k As Integer, x As String)

Dim m As Integer, t As Integer

x= "": m = n : n = Abs(n)

Do While n <> 0

t = n Mod k

If k=16 And t>9 Then x = Chr(Asc("a")+t-10) + x Else x = t & x n = n \ k

Loop

If m < 0 Then x = "-" + x

End Sub

Private Sub Command1_Click()

Dim x As Integer, y As Integer, s As String

x = Inputbox("x="): y = Inputbox("y=")

Call f(x, y, s)

Form1.Cls: Print s

End Sub

(21) 运行时若输入x值为13、y值为2，窗体上的显示结果为：

A、1011

B、33

C、1101

D、1001

(22) 运行时若输入x值为27、y值为8，窗体上的显示结果为：

A、33

B、1101

C、1011

D、1001

(23) 运行时若输入x值为-14、y值为2，窗体上的显示结果为：

A、-1110

B、1101

C、1101-

D、1011

(24) 运行时若输入x值为123、y值为16，窗体上的显示结果为：

A、123

B、321

C、b7

D、7b

试题7(28分)

按照下列要求和规定的步骤编程：

⑴编制函数过程sum，用于计算1个整数的各位数字之和（如引用sum(132)的结果是6，引用sum(-23)的结果是5，等等）。

⑵编写事件过程Command1_Click，完成下列运算：

①输入10个数到整型数组a；

②将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、...、a(10)各位数字和赋值到b(10)【要求调用函数sum实现】；

③在窗体上以一行输出a数组各元素值（保持原输入值不变）；

④在窗体上以一行输出b数组各元素值。

2008年春参考答案

试题1~试题6 请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）

试题7（28分）

编程，按Command1可输入有10个实数的数组，调用函数f求他们的平均值V，然后输出其中与V之差的绝对值为最小的那个数组元素。

Private Function f(a() as single,n as integer ) As Single ‘2分

Dim I as integer,sum as single ‘1分

Sum=0

For I=1 to n ‘5分

Sum=sum+a(i)

Next I

F=sum/n ‘2分

End Function

Private Sub Command1_Click()

Dim a(10) As Single, i As Integer, v As Single, x As Single, d As Single

'输入数据 (3分)

for I= 1 to 10

a(i)=inputbox(“请输入数据”)

next i

'计算平均值v (3分)

v=f(a,10)

'将与v之差的绝对值为最小的那个数组元素赋值给x，输出x。

d=abs(v-a(1)) : x=a(1) ‘2分

for I=2 to 10 ‘绝对值2分,其余6分 if d

d=abx(v-a(i))

x=a(i)

endif

next I

print x ‘2分

End Sub

2007年秋参考答案

试题

试题7（28分）

Dim a() As Single, n As Integer

Private Sub Form_Load()

Command1.Caption = "数据输入" (2分)

Command2.Caption = "计算" (2分)

End Sub

Private Sub Command1_Click() '数据输入

Dim i As Integer (2分)

n = Text1.Text (2分)

ReDim a(n) (3分)

For i = 1 To n

a(i) = InputBox("") (5分)

Next i

End Sub

Private Sub Command2_Click()

Dim y As Single, i As Integer, x As Single (1分)

x = Text2.Text (1分)

y = a(1) (1分)

For i = 2 To n

y = y + a(i) * x ^ (i - 1) (7分)

Next i

Label3.Caption = y (2分)

End Sub

2007年春参考答案

试题1～6 (每小题3分)

⑴ B ⑵ A ⑶ D ⑷ A ⑸ C ⑹ C ⑺ B ⑻ A ⑼ A ⑽ B ⑾ B ⑿ D ⒀ A ⒁ A ⒂ D ⒃ B ⒄ D ⒅ C ⒆ C ⒇ B (21)C (22)A (23)A (24) D

试题7 (每题14分)

[1]

Private Function sum(k As Integer)

Dim n As Integer, a() As Integer, i As Integer

k = Abs(k)

n = Len(Trim(Str(k))) '求出整数的位数

ReDim a(1 To n) As Integer

For i = 1 To n

a(i) = Mid(Trim(k), i, 1) '依次取出各位数字

sum = sum + a(i) '求各位数字之和

Next i

End Function

[2]

Private Sub Command1_Click()

Dim a(1 To 10) As Integer, b(1 To 10) As Integer, i As Integer For i = 1 To 10 '输入10各数到整型数组a

a(i) = Val(InputBox(""))

Next i

For i = 1 To 10 '调用sum函数，求出a(i)各位数字和赋值给b(i) b(i) = sum(a(i))

Next i

For i = 1 To 10 '一行输出a数组各元素值

Print a(i);

Next i

Print 'a数组元素输出完毕后换行

For i = 1 To 10 '一行输出b数组各元素值

Print b(i);

Next i

End Sub

2006年秋参考答案

试题1～6(每小题3分)

⑴ B ⑵ B ⑶ D ⑷ C ⑸ A ⑹ B ⑺ A ⑻ A ⑼ D ⑽ B ⑾ D ⑿ A ⒀ B ⒁ C ⒂ B ⒃ D ⒄ B ⒅ C ⒆ A ⒇ A (21)C (22)D (23)B (24) A

Private Sub Command1_Click()

Dim s As Single, x As Single, t As Single

Dim i As Integer, n As Integer

x = InputBox("x=")

n = InputBox("n=")

s = x / 2: t = x / 2

For i = 3 To n + 1

t = t * x / i

s = s + t

Next i

Print s Array End Sub

试题8 (每题14分)

Private Sub Form_Click()

Dim xh As String, zf As Integer

Dim x As String, k1 As Integer, k2 As Integer

Commondialog1.ShowOpen

Open Commondialog1.FileName For Input As #1

Do while Not Eof(1)

Input #1,x,k1,k2

If k1 + k2 > zf Then

zf = k1 + k2

xh = x

End If

Loop

Close #1

Label1(0).Caption = xh

Label1(1).Caption = zf

End Sub

二级VB程序设计考试大纲

基本要求

1．掌握VB集成开发环境中开发应用程序的基本方法；

2．掌握面向对象程序设计的基本概念；

3．熟练掌握VB常用数据类型、运算符与表达式及常用函数；

4．熟练掌握结构化程序设计的三种基本结构；

5．掌握SUB过程、函数过程的设计；

6．掌握常用控件的属性与方法；

7．掌握文本文件的基本操作；

8．了解在VB程序中访问数据库的基本方法。

考试范围

一、VB基础

⒈VB开发环境：菜单、工具箱、工具栏、窗体、工程窗口和属性窗口的使用；

⒉应用程序开发：添加窗体、模块，保存工程；

⒊面向对象程序设计、可视化编程、事件驱动等基本概念。

二、数据表示与运算

⒈基本数据类型：字节、整数、长整数、实数、双精度、字符串、变体和布尔等数据类型的数据表示及其相互关系，货币、日期数据类型的表示和使用；

⒉构造数据类型：数组的定义、表示与使用；

⒊运算对象、运算符、函数和表达式

常量、变量和函数的定义和使用；

算术运算（加、减、乘、除、取负、指数、整除和取模）及其运算优先级，

全国计算机二级VB考试真题和答案

2007年春 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试 二级试卷 试卷语种：Visual Basic 第一部分计算机基础知识 1．微电子技术是信息技术领域的关键技术，它以集成电路（IC）为核心。在下列有关叙述中，错误的是。 A．A．目前IC芯片（如CPU芯片）的集成度可达数千万个电子元件 B．B．Moore定律指出，单块IC的集成度平均每半年翻一番 C．C．从原料熔练到最终产品包装，IC的制造工序繁多，工艺复杂，技术难度非常高 D．D．非接触式IC卡采用电磁感应方式无线传输数据，所以又称为射频卡或感应卡 2．在下列有关通信中使用的传输介质的叙述中，错误的是。 A．A．计算机局域网中大多使用无屏蔽双绞线，其无中继有效传输距离大约100m B．B．同轴电缆可用于传输电视信号 C．C．光纤价格高，一般不在校园网和企业网中使用 D．D．微波的波长很短，适合于长距离、大容量无线通信 3．二进制数（1010） 2与十六进制数（B2） 16 相加，结果为。 A．(273) 8B.(274) 8 C.(314) 8 D.(313) 8 4.设有一段文本由基本ASCII字符和GB2312字符集中的汉字组成，其代码为B0 A1 57 69 6E D6 D0 CE C4 B0 E6，则在这段文本中含有。 A．1个汉字和9个西文字符 C.3个汉字和5个西文字符 B.2个汉字和7个西文字符 D.4个汉字和3个西文字符 5.在下列有关CPU的叙述中,错误的是 . A. A.CPU的主要组成部分有运算器、控制器和寄存器组 B. B.CPU的主要功能是执行指令，不同类型CPU的指令系统通常有所 不同 C. C.为了加快运算速度，CPU中可包含多个算术逻辑部件（ALU） D. D.目前PC机所有的CPU芯片均为Intel公司的产品 6．PC机在加电启动过程中会运行POST程序、引导程序、系统自举程序等。若在启动过程中，用户按某一热键（通常是Del键）则可以启动CMOS设置程序。这些程序运行的顺序是。 A．A．POST程序->CMOS设置程序->系统自举程序->引导程序 B．B．POST程序->引导程序->系统自举程序->CMOS设置程序 C．C．CMOS设置程序->系统自举程序->引导程序->POST程序 D．D．POST程序->CMOS设置程序->引导程序->系统自举程序 7.目前PC机一般都有USB和FirWire接口,用于连接各种外部设备.在下列关于这两种接口的叙述中,错误的是 . A. https://www.doczj.com/doc/d517177167.html,B是一种串行接口,可以连接键盘、鼠标器、优盘、数码相机等 多种设备

VB期末考试试题及答案

二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value

7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。

浙江省单考单招数学知识点汇总

第一部分：集合与不等式 1、集合有n 个元素，它有n 2个子集，12-n 个真子集，22-n 个非空真子集。 2、交集：A B I ，由A 和B 的公共元素构成；并集：A B U ，由A 和B 的全部元素构成； 补集：U C A 由U 中不属于A 的元素构成。 3.充分条件、必要条件、充要条件： （1）p ?q ，则p 是q 的充分条件， （2）p ?q ，则p 是q 的必要条件， （2）q p ?且p q ?，则p q ?，p 是q 的充要条件。 技巧： 4、一元一次不等式组的解法（a b <）： 5、一元二次不等式的解法： 若a 和b 分别是方程0))((=--b x a x 的两根，且a b <，则（开口向上） 6、均值定理： (一正二定三相等) b a =时等号成立时。

7.解绝对值不等式：(0)a > a a a -<>?>(...)(...)(...)或 a a a <<-?<(...)(...) 8.分式不等式（化为同解的整式不等式） （1）}{ 3 0(32402324 x x x x x x -

大学VB考试题库

大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.doczj.com/doc/d517177167.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。

A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0

VB程序设计期末考试复习题

VB复习题 一．选择题 1．使用声明语句建立一个数值型的变量后，VB自动将该变量初始化为（B）。 A．空值 B．0 C．1 D．Null 2．使用声明语句建立一个字符型的变量后，VB自动将该变量初始化为（ A ）。 A．空值 B．0 C．1 D．Null 3．使用声明语句建立一个布尔型的变量后，VB自动将该变量初始化为（A ）。 A．False B．0 C．1 D．True 4．关于 VB 中的运算符，以下说法正确的是（）。 A．“×”是算术运算符，含义是“乘法运算” B．“≠”是关系运算符，含义是“不等于” C．“!”是逻辑运算符，含义是“非” D．“And”是逻辑运算符，含义是“与” 5．对象的三要素是（）。 A．属性、事件、程序 B．属性、事件、方法 C．窗体、事件、程序 D．语句、函数、程序 6．VB中，表达式10<2 Or Not 5>2+6的值为（）。 A．TRUE B．FALSE C．0 D．出错 7．VB中，表达式Mid$("南京工程学院",3,4)的结果是（）。A．"工程学院" B．"京工程学" C．"程学院" D．"工程" 8．在VB中，应用程序被称为（）。 A．工程 B．窗体 C．属性 D．对象 9．VB中，事件Click由（）引发。 A．移动鼠标 B．左键单击鼠标 C．双击鼠标 D．右键单击鼠标 10．VB中，隐藏窗体的方法是（）。 A．Unload B．Stop C．Hide D．Show 11．在Visual Basic中最基本的对象是（），它是应用程序的基石，也是其它控件的容器。 A．文本框 B．命令按钮 C．窗体 D．标签 12．VB窗体文件的扩展名为（）。 A．VBP B．FRM C．BAS D．EXE

江苏省计算机二级VB考试真题及参考答案

2007年秋季vb考试真题 1．下面关于比特的叙述中，错误的是( 1 ) A．比特是组成数字信息的最小单位 B．比特只有“0”和“1”两个符号 C．比特既可以表示数值和文字，也可以表示图像和声音 D. 比特”1”总是大于比特“0” 2．在下列有关集成电路的叙述中，错误的是( 2 ) A．现代集成电路使用的半导体材料主要是硅 B．大觑模集成电路一般以功能部件、子系统为集成对象 C．我国第2代居民身份证中包含有IC芯片 D? 目前超大规模集成电路中晶体管的基本线条已小到l纳米左右 3．在下列有关通信技术的叙述中，错误的是( 3 ) A.通信的基本任务是传递信息，因而至少需由信源、信宿和信道组成 B.通信可分为模拟通信和数字通信，计算机网络属于模拟通信 C.在通信系统中，采用多路复用技术的目的主要是提高传输线路的利用率 D?学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质 4.下面是关于PC机主存储器的一些叙述，其中正确的是( 4 ) A.主存储器是一种动态随机存取存储器(RAM) B.主存储器的基本编址单位是字(即32个二进位) C.目前市场上销售的PC机，其内存容量可达数十GB D.所有PC机的内存条都是通用的：可以互换 5．现行PC机中，IDE(或SATA)接口标准主要用于( 5 ) A．打印机与主机的连接C．声卡与主机的连接 B．显示器与主机的连接D．硬盘与主机的连接 6. 下列有关PC机的CPU、内存和主板的叙述中，正确的是( 6 ) 。 A．大多数Pc机只存一块CPu芯片，即使是“双核”CPU也是一块芯片 B．所有Pentium系列微机的内存条相同，仅有速度和容量大小之分 C．主板上芯片组的作用是提供存储器控制功能，I/O控制与芯片组无关 D．主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息 7.下列有关目前Pc机辅助存储器的叙述中，错误的是( 7 ) A．硬盘的容量越来越大，这是因为硬盘中磁盘碟片的数目越来越多 B．硬盘的内部传输速率一般小于外部传输速率 c．优盘采用Flash存储器技术，属于半导体存储器 D．目前常见COMBO光驱是一种将CD-RW和DVD-ROM组合在一起的光驱 8.下面有关Windows操作系统，(95以后版本)的叙述中，错误的是( 8 ) 。A．Windows操作系统支持系统中多个任务的并发执行 B．利用Whldows附件“系统工具”中的“系统信息”可以查看内存的工作情况 C．系统规定文件名最多由128个字符组成 D．Vista是Microsoft公司推出的Windows XP操作系统的后继版本 9.算法设计是编写程序的基础。下列关于算法的叙述中，正确的是( 9 ) 。 A．算法必须产生正确的结果C．算法可以没有输出 B．算法必须具有确定性D．算法的表示必须使计算机能理解 10．因特网使用TCP／IP协议实现全球范围的计算机网络互连，连接在因特网上的每一台主机

《VB程序设计》考试题型练习 答案

《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0)

(单考单招)数学试卷

高职（单考单招）数学模拟试卷 班级 姓名 一、单项选择题（本大题共15小题, 每小题3分, 共45分.在每小题给出的四个选项中, 只有一个是符合题目要求的.） 1.集合{}13A x x =- B. {}0x x ≠ C. {}0x x ≥ D. {}0x x < 5.若3a =2,则33log 82log 6-用a 表示的代数式为 （ ） A. a —2 B. 3a —（1+2a ） C.5a —2 D.3a —2a 6.已知a 是第二象限角, 其终边上一点P （x, sin α,则tan α的值为（ ） A. 7 B. —7 C. —4 D. —4 7.不等式2x +a x —6<0的解集是（-2, 3）, 则a = （ ） A.1 B.-1 C.5 D.-5 8.直线l 上一点（-1, 2）, 倾斜角为a , 且tan 2a =12 , 则直线l 的方程是 （ ） A.4x +3y +10=0 B.4x -3y -10=0 C.4x -3y +10=0 D.4x +3y -10=0 9.用0, 1, 2, 3, 4五个数字可组成不允许数字重复的三位偶数的个数是 （ ）

VB练习题(上机)含答案

第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else

ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。

2019年春江苏省计算机等级考试VB试题

2008年春江苏省计算机等级考试VB试题 第一部分计算机基础知识 1．在下列有关微电子技术与集成电路的叙述中，错误的是( 1 ) 。 A．微电子技术是以集成电路为核心的技术 B．集成度是指单个集成电路所含电子元件的数目 C．Moore定律指出，单个集成电路的集成度平均每18—24个月翻一番 D．IC卡仅有存储器和处理器，卡中不可能存储有软件 2．在下列有关通信技术的叙述中，错误的是( 2 ) 。 A．目前无线电广播主要还是采用模拟通信技术 B．数字传输技术最早是被长途电话系统采用的 C．数字通信系统的信道带宽就是指数据的实际传输速率(简称“数据速率”) D．局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号 3． CPU的运算速度与许多因素有关，下面哪些是提高CPU速度的有效措施? ( 3 ) ①增加CPU中寄存器的数目 ②提高CPU的主频 ③增加CPU中高速缓存(cache)的容量 ④优化BIOS的设计 A．①、③和④ B．①、②和③ C．①和④ D．②、③和④ 4．下面是PC机常用的4种外设接口，其中键盘、鼠标、数码相机和移动硬盘等均能连接的接口是( 4 ) A． RS-232 B． IEEE-1394 C． USB D． IDE 5．下列有关PC机外部设备的叙述中，错误的是（ 5 ）。 A．扫描仪的工作过程主要基于光电转换原理，分辨率是其重要性能指标之一 B．制作3—5英寸的照片(图片)，数码相机的CCD像素必须在600万以上 C．集成显卡(指集成在主板上的显卡)的显示控制器主要集成在芯片组中 D．存折和票据的打印，目前主要是采用针式打印机 6．下列有关PC机辅助存储器的叙述中，错误的是( 6 ) 。 A．硬盘的盘片转动速度特别快，目前一般为每秒数千转 B. 近年来使用的串行ATA(SATA)接口硬盘，其传输速率比采用IDE接口的要快 C．目前移动硬盘大多采用USB 2．0接口，其传输速率可达每秒数十兆字节 D. 40倍速的CD-ROM驱动器的速率可达6MB／s左右 7．在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是（ 7 ）。 A．通常用户需要付费才能得到商品软件的合法使用权 B．共享软件是一种“买前免费试用”的具有版权的软件 C．自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播 D．软件许可证确定了用户对软件的使用方式，扩大了版权法给予用户的权利 8．下面有关Windows操作系统多任务处理的叙述中，正确的是 ( 8 ) 。 A．用户如果只启动一个应用程序工作(如使用Word写作)，则该程序自始至终独占CPU B．由于CPU具有多个执行部件，所以操作系统才能同时进行多个任务的处理 C．前台任务和后台任务都能得到CPU的响应 D．处理器调度程序根据各个应用程序运行所需要的时间多少来确定时间片的长短9．从算法需要占用的计算机资源角度分析其优劣时，应考虑的两个主要方面是（ 9 ）。 A．空间代价和时间代价 · C．可读性和开放性 B．正确性和简明性 D．数据复杂性和程序复杂性 10．接入因特网的每台计算机的IP地址（ 10 ）。 A．由与该计算机直接连接的交换机及其端口决定 B．由该计算机中网卡的生产厂家设定 C．由网络管理员或因特网服务提供商(ISP)分配 D．由用户自定 11．以下关于局域网和广域网的叙述中，正确的是（ 11 ）。 A．广域网只是比局域网覆盖的地域广，它们所采用的技术是完全相同的 B．局域网中的每个节点都有一个惟一的物理地址，称为介质访问地址(MAC地址) C．现阶段家庭用户的PC机只能通过电话线接入网络 D．单位或个人组建的网络都是局域网，国家或国际组织建设的网络才是广域网 12．目前在网络互连中用得最广泛的是TCP／IP协议。事实上，TCP／IP是一个协议系列，它已经包含了100多个协议。在TCP／IP协议中，远程登录使用的协议是( 12 ) 。 A．TELNET B．FTP C．HTTP D．UDP 13．关于电子邮件服务，下列叙述中错误的是 ( 13 ) 。 A．网络中必须有邮件服务器用来运行邮件服务器软件 B．用户发出的邮件会暂时存放在邮件服务器中 C．用户上网时可以向邮件服务器发出接收邮件的请求 D．发邮件者和收邮件者如果同时在线，则可不通过邮件服务器而直接通信 14·国际标准化组织(ISO)将世界各国和地区使用的主要文字符号进行统一编码的方案称为（ 14 ）。 A． UCS／Unicode C． GBK B． GB2312 D．GBl8030

《VB程序设计》期末考试试卷(A)附答案

******学院 2009-2010学年第二学期 《VB程序设计》期末考试试卷（A）附答案 一、选择题（2分/题，共60分） （1）要设置窗体上各控件的属性，可以在＿＿＿中进行。 A“窗体布局”窗口B“工程资源管理器”窗口 C“属性”窗口D“对象”窗口 （2）下面程序段＿＿＿能够正确实现目的：如果x

（5）双击窗体中的对象后，VB将显示的窗口是＿＿＿。 A工具箱B“工程”窗口 C“代码”窗口D“属性”窗口 （6）下列程序段的执行结果是＿＿＿。 X=int(Rnd()+4) Selectcasex Case5 Print“优秀” Case4 Print“良好” Case3 Print”通过” Caseelse Print”不通过” Endselect A优秀B良好 C通过D不通过 （7）下列哪个不是窗体的属性＿＿＿。 ACaptionBText CControlBoxDBorderStyle （8）设组合框Combo1中有3个项目,则以下能删除最后一项的语句是＿＿＿。 ACombo1.RemoveItemTextBCombo1.RemoveItem2 CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount （9）窗体BorderStyle属性的功能是＿＿＿。 A设置窗体的边框大小 B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等 C决定是否显示窗体的控制菜单图标与状态控制按钮 D决定窗体的最大化或最小化按钮是否有效 （10）下列可作为VB的变量名的是＿＿＿。

VB考试题及答案

VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).

A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile

江苏省计算机考试二级vb复习

2007年秋季vb考试真题 21.下列语句中，正确的是__________ A．Textl．SetFocus B．Forml．Clear C．Labell．SetFocus D．Listl．Cls 22．创建一个名为“文件”的菜单项，欲使其可用Alt+F方式访问，则在菜单编辑器的标题文本框中应输入_________。 A．文件($F) B．文件(&F) C．文件(#F) D．文件(％F) 23．数学表达式的VB算术表达式为_______ 。 A．Sin(27)+Sqr(X+Exp3)／(X+Y) B．Sin(27*3．14159／180)+Sqr(X+Exp(3))／Abs(X+y) C．Sin(27*3．14159／180)+Sqr(X+e^3)／Abs(X+Y) D．Sin(27*pi／180)+Sqr(X+Exp(3)／Abs(X+Y) 24．以下说法不正确的是____________。 A．使用不带关键字Preserve的ReDim语句可以重新定义数组的维数 B．使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界 c．使用不带关键字Preserve的ReDim语句可以改变数组的数据类型 D．使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化25．下列____________是合法的变量名。 A．abs B．-al C．cdc d D．Abe_10 26．要向文件datal．txt添加数据，正确的文件打开命令是_____________。 A．Open”datal．txt”For Output As #1 B．Open”datal．txt”For Input As #1 C．Open”datal．txt”For Append As #5 D．Open“datal．txt“For Write As #5 27．以下对数组参数的说明中，错误的是___________ 。 A．在过程中可以用Dim语句对形参数组进行声明 B．形参数组只能按地址传递 c．实参为动态数组时，可用ReDim语句改变对应形参数组的维界 D．只需把要传递的数组名作为实参，即可调用过程 28．设a=3，b=2，c=1，运行print a>b>c的结果是____________。 A．True B．False C．1 D．出错 29．下列选项中，所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换为87)的是_______________。 ①Val(Right(X，1)&Left(X，1)) ②Val(Right(Str(X)，1)＆Left(Str(X)，1)) ③Val(Right(CStr(X)，1)＆Left(CStr(X)，1)) ④Val(Mid(X，2，1)+Mid(X，1，1)) A．①②B．②③c．②④D．①③④ 30．下列______是正确的VB常量。 A．D-6 B．E-6 C．5D D．5E-6 二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行) 1．执行下面程序，单击Commandl，则窗体上显示的第一行是(1) ，第二行是 (3) ，第三行是(3) 。

VB程序设计期末模拟试卷

《VB程序设计》期末模拟试卷 一、单项选择 （b ）1．被对象所识别的动作与对象可执行的动作分别称为对象的___________。 A．方法、事件 B．事件、方法 C．事件、属性 D．过程、属性 （ c）2．下列________是Single型变量。 A．Time% B．Name$ C．Sheight! D．CXYZ& （a ）3．以下四个VB的变量名中，合法的是____________。 A．X23 B．$Re C． Len

D．3xy （ d）4．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是________。 A. str1是整型，str2是长整型 B. str1是长整型，str2变体型 C. str1、str2都是长整型 D. str1是变体型，str2是长整型 （b ）5．表达式(&O36>31) and (“A”>”B”) 的结果是 ____________。 A．True B．False C．”&O3631AB” D．&O3631 （c ）6．表达式“100” + 100 和表达式“100” & 100的值分别是 ____________。 A．200、200 B．“100100”、“100100” C．200、“100100”

D．“100100”、200 （b ）7．以下语句执行时，从键盘上输入Zhao，并按回车键。执行结果是________。 Dim a As String A=InputBox("Input", "", "Name") Print a A．Input B．Zhao C．Name D．空字符串 （b）8．语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果是________。 A．4 B．5 C．6 D．7 （ d）9．在窗体的通用段声明变量时，不能使用__________ 关键字。 A．Dim

浙江单考单招数学试卷

2015年浙江省高等职业技术教育招生考试 数学试卷 一、单项选择题(本大题共18小题，每小题2分，共36分) 在每小题列出的四个备选答案中，只有一个是符合题目要求的。错涂、多涂或未涂均无分． 1．已知集合M ＝{}x |x 2 ＋x ＋3＝0，则下列结论正确的是( ) A ．集合M 中共有2个元素 B ．集合M 中共有2个相同元素 C ．集合M 中共有1个元素 D ．集合M 为空集 2．命题甲“a

vb试题及答案

VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。

2015年秋江苏省计算机二级VB考试笔试真题

2011年秋江苏省计算机二级VB考试真题 2011年秋江苏省计算机二级VB考试真题 绝密★启用前 2011年秋 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试 二级试卷 试卷语种:VB语言 说明： 1．本试卷包括计算机基础知识部分和程序设计部分,考试时间共12 0分钟； 2．本试卷满分为60分,分选择题和填空题,试卷不分A、B类型； 3．计算机基础知识部分全部是选择题(20分),程序设计部分分为选择题(1 0 分)和填空题(30分)两种； 4．选择题用答题卡答题。每一项有A、B、C、D四个可供选

择的答案,请选 择其中一个你认为正确的答案,用HB铅笔涂写在答题卡的相应答题号内。 每选对一项得1分,不选或选错不得分； 5．填空题用答题纸答题。请将答案用蓝、黑色钢笔或圆珠笔填写在答题纸的 相应答题号内,每个答案只占一行,不得换行。每填对一个答案得1分, 不填或填错不得分； 6．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是 否填写正确。 7．考试结束时将试卷、答题卡和答题纸放在桌上,不得带走。待监考人员收 毕清点后,方可离场。 第一部分计算机基础知识 1. 下列有关信息、信息处理、信息技术的叙述中,错误的是___(1)__B_。 A.信息与物质、能量是客观世界的三大构成要素 B.与信息处理相关的行为和活动主要指信息的分类、计算、分析等,但不包含信息的收集和传递

C.现代信息技术的主要特征之一是以数字技术为基础 D.计算机技术、通信技术均属于信息技术 2. 下列有关数字技术与微电子技术的叙述中,错误的是___(2)___B A.数字技术是采用有限个状态(主要是两个状态)来表示、处理、存储和传输信息的技术 B.比特是信息的基本单位,1个比特可以表示8位二进制数 C.集成电路芯片是微电子技术的结晶,是现代信息产业的基础 D.Moore定律是指"单块集成电路的集成度平均每18-24个月翻一番" 3. 下列有关计算机发展与分类的叙述中,错误的是___(3)_B__。 A.数字电子计算机诞生于20世纪40年代,个人计算机(微型计算机)产生子20世纪80年代初 B.第4代计算机的CPU主要采用中小规模集成电路,第5代计算机采用超大规模集成电路 C.计算机分类有多种方法,按其内部逻辑结构通常分为16位机、32位机或64位机等,目前使用的PC机大多是32位机或64位机 D.巨型计算机一般采用大规模并行处理的体系结构,我国国防科技大学研制的"天