2003年秋计算机等级考试答案(二级VB)

试题一：计算机基础题

•  单选题：

•  双选题：

试题二：语言基础题

•  判断题：

•  单选题：

试题三：程序填空题

试题四：程序阅读题

试题五：程序设计题

1 、 Private Sub Command1_Click()

Dim x As Single, y As Single

x = Val(InputBox(" 输入 x"))

If x < -2 Then

y = x * x / (x + 1)

ElseIf x <= 2 Then

y = Sin(x) * Cos(x)

Else

y = Log(x)

End If

Print "y="; y

End Sub

2 、 Private Sub Form_Click()

Const r As Integer = 1

Dim i As Integer

Picture1.Width = Picture1.Height

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

For i = 1 To 10

Picture1.Circle (0, 0), i * r

Next i

End Sub

3 、 Private Type Student

num As String

s(1 To 5) As Single

End Type

Private Sub Form_Click()

Dim stu() As Student, temp As Student

Dim i%, j%, p%, n%, tnum$

Open "c:\A.dat" For Input As #1

Do While Not EOF(1)

n = n + 1

ReDim Preserve stu(1 To n)

Input #1, stu(n).num

For i = 1 To 4

Input #1, stu(n).s(i)

stu(n).s(5) = stu(n).s(5) + stu(n).s(i)

Next i

Loop

Close #1

For i = 1 To n - 1

p = i

For j = i + 1 To n

If stu(j).s(5) > stu(p).s(5) Then p = j

Next j

temp = stu(p)

stu(p) = stu(i)

stu(i) = temp

Next i

Open "c:\B.dat" For Output As #1

For i = 1 To n

Print #1, stu(i).num;

For j = 1 To 5

Print #1, stu(i).s(j);

Next j

Print #1,

Next i

End Sub

2002年秋计算机等级考试答案(二级VB)

试题一：计算机基础题

•  单选题：

•  双选题：

试题二：语言基础题

•  判断题：

•  单选题：

试题三：程序填空题

试题四：程序阅读题

试题五：程序设计题

1 、 Private Sub Command1_Click()

Dim n As Integer

Dim i As Integer, sum As Single

n = InputBox("input data n")

sum = 1

For i = 2 To n

sum = sum + i / ((i + 1) * (i + 2))

Next i

Text1.Text = Str(sum)

End Sub

2 、 Dim x1 As Integer, y1 As Integer

Private Sub Form_Load()

Pic1.FillStyle = 0

Pic1.FillColor = vbGreen

Pic1.ForeColor = vbRed

End Sub

Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

x1 = X

y1 = Y

End Sub

Private Sub Pic1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Pic1.Line (x1, y1)-(X, Y), , B

End Sub

3 、 Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

Dim str1 As String, str2 As String

Dim Fname As String

Dim i As Integer

If Right(File1.Path, 1) = "\" Then

Fname = File1.Path & File1.FileName

Else

Fname = File1.Path & "\" & File1.FileName

End If

Open Fname For Input As #1

CommonDialog1.Action = 1

Open CommonDialog1.FileName For Output As #2

Do While Not EOF(1)

Line Input #1, str1

str2 = ""

For i = 1 To Len(str1)

If Mid(str1, i, 1) <> " " Then

str2 = str2 & Mid(str1, i, 1)

End If

Next i

Print #2, str2

Loop

Close

End Sub

2001年秋计算机等级考试答案(二级VB)

试题一：计算机基础题

•  单选题：

•  双选题：

试题二：语言基础题

•  判断题：

•  单选题：

试题三：程序填空题

试题四：程序阅读题

试题五：程序设计题

1 、 Private Sub Command1_Click()

Dim x!, y!

x = Val(InputBox(" 输入 x 的值 "))

If x > 10 Then

y = Sqr(x) + Sin(x)

ElseIf x = 0 Then

y = 0

Else

y = 2 * x ^ 3 + 6

End If

Print "y="; y

End Sub

2 、 Private Sub CmdExit_Click()

End

End Sub

Private Sub CmdLeft_Click()

Dim i As Integer

For i = 1 To 10

ComboLeft.AddItem ComboRight.List(10 - i)

Next i

ComboRight.Clear

CmdLeft.Enabled = False

CmdRight.Enabled = True

End Sub

Private Sub CmdRight_Click()

Dim i As Integer

For i = 1 To 10

ComboRight.AddItem ComboLeft.List(10 - i)

Next i

ComboLeft.Clear

CmdRight.Enabled = False

CmdLeft.Enabled = True

End Sub

Private Sub Form_Load()

Dim i As Integer

Label1.Caption = " 组合框 1"

Label2.Caption = " 组合框 2"

CmdRight.Caption = ">>"

CmdRight.Enabled = True

CmdLeft.Caption = "<<"

CmdLeft.Enabled = False

CmdExit.Caption = " 结束 "

ComboLeft.Text = ""

For i = 1 To 10

ComboLeft.AddItem Int(Rnd * 900) + 100

Next i

ComboRight.Text = ""

End Sub