全国计算机二级上机模拟考试习题集(01-50)解答.

二级VB上机模拟习题集1-50套试题参考答案

1.1上机模拟试题1解答1

1.2上机模拟试题2解答3

1.3上机模拟试题3解答4

1.4上机模拟试题4解答5

1.5上机模拟试题5解答7

1.6上机模拟试题6解答9

1.7上机模拟试题7解答11

1.8上机模拟试题8解答13

1.9上机模拟试题9解答15

1.10上机模拟试题10解答17

1.11上机模拟试题11解答19

1.12上机模拟试题12解答21

1.13上机模拟试题13解答22

1.14上机模拟试题14解答24

1.15上机模拟试题15解答26

1.16上机模拟试题16解答28

1.17上机模拟试题17解答30

1.18上机模拟试题18解答32

1.19上机模拟试题19解答34

1.20上机模拟试题20解答35

1.21上机模拟试题21解答37

1.22上机模拟试题22解答39

1.23上机模拟试题23解答40

1.24上机模拟试题24解答42

1.25上机模拟试题25解答44

1.26上机模拟试题26解答46

1.27上机模拟试题27解答48

1.28上机模拟试题28解答50

1.29上机模拟试题29解答52

1.30上机模拟试题30解答54

1.31上机模拟试题31解答56

1.32上机模拟试题32解答58

1.33上机模拟试题33解答60

1.34上机模拟试题34解答62

1.35上机模拟试题35解答63

1.36上机模拟试题36解答65

1.37上机模拟试题37解答67

1.38上机模拟试题38解答69

1.39上机模拟试题39解答70

1.40上机模拟试题40解答72

1.41上机模拟试题41解答73

1.42上机模拟试题42解答74

1.43上机模拟试题43解答76

1.44上机模拟试题44解答78

1.45上机模拟试题45解答80

1.46上机模拟试题46解答82

1.47上机模拟试题47解答84

1.48上机模拟试题48解答86

1.49上机模拟试题49解答88

1.50上机模拟试题50解答90

1.1上机模拟试题1解答

1. 基本操作

(1) 略

(2) 程序代码如下：

Private Sub Command1_Click()

Image1.Picture = LoadPicture(App.Path & "\图片.jpg")

End Sub

Private Sub Command2_Click()

Image1.Picture = LoadPicture("")

End Sub

2. 简单操作

(1) 程序代码如下：

Private Sub Command2_Click()

Dim n As Integer, max As Integer

n = 0

max = 0

For i = 1 To 100

If Int(Sqr(a(i))) = Sqr(a(i)) Then

n = n + 1

If a(i) > max Then

max = a(i)

End If

End If

Next

Text1.Text = max

Text2.Text = n

End Sub

(2)

' ? "a0001" 其中?改为：List1.AddItem

' For i = 0 To ? 其中?改为：List1.ListCount - 1

' List1.ListIndex = ? 其中?改为：i

' ? Text1.Text 其中?改为：List1.AddItem

' ? 其中?改为：End

3. 综合应用

' a(i) = Fix(Rnd * ? + 1) 其中?改为：100

' For j = 1 To ? 其中?改为：i - 1

' i = ? 其中?改为：i - 1

' If a(i) = ? Then 其中?改为：num

' If ? > 10 Then 其中?改为：i

1.2上机模拟试题2解答

1. 基本操作

(1) 略

(2) 程序代码如下：

Private Sub HS1_Change()

Text1.Width = HS1.Value

End Sub

2. 简单操作

(1)

' While (k < List2.?) 其中?改为：ListCount

' If ?.Selected(k) = True Then 中?改为：List2

' List2.RemoveItem ? 其中?改为：k

' List1.