一：选择题
1-5 CCCCA 6-10 CBACA11 A
二：填空题
1： 视图工具箱
2： 对象事件驱动
3： 代码窗体设计器
4： 属性方法事件
5： 对象的特征
6： 一个对象可执行的动作
7： 属性窗口赋值语句
三：简答题
1：略
2：略
四：编程题
【属性窗口设置】
Caption 这是我的第一个练习
【代码窗口设置】
Private Sub Form_Click()
Print "我可以用Visual Basic语言编写程序了！"
End Sub
第二章：
一：选择题
1-5: BDDCA
6-10： CBADD
11-15： DDBDB
16-20: DBCDC
21-23： CCD
二：填空题
1： Value
2： 下拉列表框
3： Scroll
4： LargeChange
5： ASCII码
6： Enabled
7： ListCount
8： PopupMenu
9： Alt
10：复选
11：CommonDialog1.ShowColor 或者： ShowColor
12：Flags
13: 1
14：-
15：GFED
第三章
一：选择题
1-5： ADADC
6-10： BCBDB
11-15：BBCBB
16-20：DCADA
21-25：ABCBB
26-30：DBBCB
31-34：BBDD
二：填空题
1： Right(CStr(x),1) &Left(CStr(x),1)
2： x Mod 5=0 Or x Mod 9=0
3： False
4： CDEF
5： s>="A" And s<="Z" Or s>="a" And s<="z"
6： x>=0 And x<100
7： Int(Rnd*(X-2)+3)
8： Sqr(cos(23*3.14/180)/(x^2*Log(y)))
9： -4 -5 -4
10："请输入圆的半径：" "求圆的面积"2
11："圆的半径值必须介于1到10之间，请重输" 48 "求圆的面积"
第四章
一：选择题
1-5： DCDAC
6-10： CCBDC
二：填空题
1： 4.8
20
2： y=11
3： 1！+2！+3！+4！+5！
4： 9
k
（学生我认为该题有错，应把其中的 n 改成 k）
5： 0
n
6： 2
7： x>=0
x>max
8： 57
13 12
14 11
9： sum=0
sum+j
st &k &"+"
10： 4
11
10
11： i + 1
List1.RemoveItem j
12： Combo1.List(i)=Combo1.Text
flag=false
Combo1.AddItem Combo1.Text
三：编程题
1：
Private Sub Form_Click()
Dim x As Single
x = Val(InputBox("请输入一个x的值："))
If x <= 0 Then
fx = -1
ElseIf x <1 Then
fx = Sqr(x)
Else
fx = x ^ 3 + 2
End If
MsgBox ("运算结果为：" &fx)
End Sub
2：
Private Sub Form_Click()
Dim n As Integer, k As Integer, s As String
n = Val(InputBox("请输入一个正整数："))
k = 2
s = n &"="
Do
If n Mod k = 0 Then
s = s &k &"*"
n = n \ k
Else
k = k + 1
End If
Loop Until n = k
s = s &k
Print s
End Sub
3：
Private Sub Form_Click()
Dim s As String, i As Integer
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
s = Text1.Text
For i = 1 To Len(s)
If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then
If Val(Mid(s, i, 1)) Mod 2 <>0 Then
a = a + 1
Else
b = b + 1
End If
ElseIf Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "Z" Then
c = c + 1
ElseIf Mid(s, i, 1) >= "a" And Mid(s, i, 1) <= "z" Then
d = d + 1
Else
e = e + 1
End If
Next i
Print "奇数个数为："a
Print "偶数个数为："b
Print "大写字母个数为："c
Print "小写字母个数为："d
Print "其他字符个数为："e
End Sub
4：
Private Sub Form_Click()
Dim n As Integer, sum As Integer
n = Val(InputBox("请输入一个正整数："))
Do Until n = 0
sum = sum + n Mod 10
n = n \ 10
Loop
MsgBox ("各位数字之和为：" &sum)
End Sub
5：
Private Sub Form_Click()
Dim n As Long, i As Integer, L As Integer
n = Val(InputBox("请输入一个正整数："))
L = Len(CStr(n))
For i = 1 To L / 2
If Mid(CStr(n), i, 1) <>Mid(CStr(n), L, 1) Then
Exit For
End If
L = L - 1
Next i
If i >L / 2 Then
MsgBox ("该数是回文数。")
Else
MsgBox ("该数不是回文数。")
End If
End Sub
6：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
For a = 1 To 30
For b = 1 To 30
For c = 1 To 30
If a ^ 2 + b ^ 2 = c ^ 2 And a <b Then
Print a, b, c
End If
Next c
Next b
Next a
End Sub
第五章
一：单选题
1-5： BCBBD
6-8： DAB
二：编程题
1：
Option Base 1
Private Sub Command1_Click()
Dim a(15) As Integer, i As Integer, j As Integer
Do
j = Int(Rnd * 90) + 10
If j Mod 2 <>0 Then
i = i + 1
a(i) = j
Label1.Caption = Label1.Caption &Str(a(i))
End If
Loop Until i = 15
For i = 1 To 14
For j = i + 1 To 15
If a(i) <a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Label2.Caption = Label2.Caption &Str(a(i))
Next i
Label2.Caption = Label2.Caption &Str(a(i))
End Sub
2：
Option Base 1
Private Sub Form_Click()
Dim a(10) As Integer, i As Integer, Max As Integer, Min As Integer, sum As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Print a(i)
sum = sum + a(i)
Next i
Max = a(1)
Min = a(1)
For i = 2 To 10
If a(i) >Max Then
Max = a(i)
ElseIf a(i) <Min Then
Min = a(i)
End If
Next i
Print "最大数为："Max
Print "最小数为："Min
Print "平均值为："sum / 10
End Sub
3：
Private Sub Form_Click()
Dim a(0 To 25) As Integer, idx As Integer, i As Integer, S As String, ch As String * 1
S = InputBox("请输入一个字符串：")
Print "输入的字符串为："S
For i = 1 To Len(S)
ch = Mid(S, i, 1)
If ch >= "A" And ch <= "Z" Then
idx = Asc(ch) - Asc("A")
a(idx) = a(idx) + 1
ElseIf ch >= "a" And ch <= "z" Then
idx = Asc(ch) - Asc("a")
a(idx) = a(idx) + 1
End If
Next i
Print "统计结果如下："
For i = 0 To 25
Print Chr(Asc("A") + i)":"a(i)"次"
Next i
End Sub
4：
Option Base 1
Private Sub Form_Click()
Dim a() As Integer, m As Integer, n As Integer
Dim i As Integer, j As Integer, Max As Integer
m = Val(InputBox("请输入行数："))
n = Val(InputBox("请输入列数："))
ReDim a(m, n)
For i = 1 To m
For j = 1 To n
a(i, j) = Int(Rnd * 90) + 10
Print a(i, j)
If a(i, j) >Max Then Max = a(i, j)
Next j
Next i
For i = 1 To m
For j = 1 To n
If a(i, j) = Max Then
Print "最大元素是："a(i, j)
Print "行号："i
Print "列号："j
End if
Next j
Next i
End Sub
5：
Option Base 1
Private Sub Form_Click()
Dim a(5, 5) As Integer, i As Integer, j As Integer
Dim sum1 As Integer, sum2 As Integer, sum3 As Integer
Print "随机生成数组元素："
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 9) + 1
Print a(i, j)
sum3 = sum3 + a(i, j)
If i = 1 Or i = 5 Or j = 1 Or j = 5 Then
sum2 = sum2 + a(i, j)
End If
Next j
Next i
For i = 1 To 5
sum1 = sum1 + a(i, i) + a(i, 6 - i)
Next i
sum1 = sum1 - a(3, 3)
Print "对角线元素之和为："sum1
Print "所有靠边元素之和为："sum2
Print "所有数组元素之和为："sum3
End Sub
6：
Option Base 1
Private Sub Form_Click()
Dim a() As Integer, b() As Integer, n As Integer, k As Integer, i As Integer, j As Integer
n = Val(InputBox("请输入n=", , 9)) + 1
ReDim a(n + 1, n + 1), b(n + 1, n + 1)
k = 8
For i = 1 To n
For j = 1 To i
a(i, 1) = 1
a(i, i) = 1
a(i + 1, j + 1) = a(i, j) + a(i, j + 1)
b(i, j) = a(i, j)
Print b(i, j)" "
Next j
Next i
End Sub
第六章：
一：填空题
1：AFBECD
2：-5
5
3：2
4
6
8
4：33
5：5
无输出
6：1234
10
7：0
8：12 10
9：2
4
6
7
10:3 54 2 0 5 17 23
二：编程题
1：Private Sub Form_Click()
Dim s As String, n As Integer
s = InputBox("请输入待转数s=", "N进制转十进制")
n = Val(InputBox("请输入该数的进制n=", "N进制转十进制"))
Print Convert(s, n)
End Sub
Private Function Convert(ByVal s As String, ByVal n As Integer) As Integer
Dim i As Integer, j As Integer
For i = Len(s) To 1 Step -1
Convert = Convert + Mid(s, i, 1) * n ^ j
j = j + 1
Next i
End Function
2：要么由于资质太低，要么题意叙述不清。此题答案，仅供参考。
Private Sub Form_Click()
Dim y As Single, n As Integer, t As Single
t = 1 / 2
y = t
n = 1
Do Until t <= 1E-5
n = n + 1
t = t / (2 * n)
y = y + t
Loop
Print y
End Sub
3：
Option Base 1
Dim a() As Integer
Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = Val(InputBox("请输入数据个数", "工程1", 10))
ReDim a(n)
For i = 1 To n
a(i) = Int(Rnd * 90) + 10
Text1 = Text1 &CStr(a(i)) &" "
Next i
End Sub
Private Sub Command2_Click()
Dim Max As Integer, Min As Integer, i As Integer, temp As Integer
Call Max_Min(Max, Min)
For i = 1 To UBound(a)
If a(i) = Max Then
temp = a(1)
a(1) = a(i)
a(i) = temp
Exit For
End If
Next i
For i = 1 To UBound(a)
If a(i) = Min Then
temp = a(UBound(a))
a(UBound(a)) = a(i)
a(i) = temp
Exit For
End If
Next i
For i = 1 To UBound(a)
Text2 = Text2 &CStr(a(i)) &" "
Next i
End Sub
Private Sub Max_Min(Max As Integer, Min As Integer)
Dim i As Integer
Max = a(1): Min = a(1)
For i = 2 To UBound(a)
If a(i) >Max Then
Max = a(i)
ElseIf a(i) <Min Then
Min = a(i)
End If
Next i
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Command1.SetFocus
End Sub
4：
设计界面时：要将文本框的MultiLine属性设置成True
ScrollBars属性设置成 2
Private Sub Command1_Click()
Dim i As Integer
For i = 1000 To 9999
If Mid(i, 1, 1) = Mid(i, 4, 1) And prime(i) And prime(exchange(i)) And i <exchange(i) Then
Text1 = Text1 &"(" &i &" " &exchange(i) &")" &vbCrLf
End If
Next i
End Sub
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
Private Function exchange(n As Integer) As Integer
Dim t As String * 1, s As String
s = CStr(n)
t = Mid(s, 2, 1)
Mid(s, 2, 1) = Mid(s, 3, 1)
Mid(s, 3, 1) = t
exchange = s
End Function
Private Sub Command2_Click()
Text1.Text = ""
Command1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
关于VB的你可以买一本《全国计算机等级考试 二级教程 VB程序设计》（高等教育出版社），上面有知识点的说明和题目；二级还要考公共基础，占三十分，再买一本《全国计算机等级考试 二级教程 公共基础》也是高等教育出版社，高等教育出版社的有权威性，老师推荐我们的都是这个。P.S如果考试的话，给你一些我的经验吧：
一、对于笔试：
二级VB考试的考题内容很细，没有复杂的算法题，最多只是一些看起来复杂（其实很有规律）的循环题。那么，我们要做的是：
1：按照大纲读懂（理解）教材上的的内容。
2：做一些历年的考试题目，根据作者的经验，每年的考题中都会有一些重复或相似的考题。当然最主要的是做完最近几年的几套考题后，自己就会对考试内容“胸有成竹”，自然就会知道哪是重点，哪些该复习，有的放矢。
3：针对特殊题型和重点内容做题。
二、对于机试:
两个字，做题。可以把过去两到四次内的考题拿过来做。 当然，我们在做题是要端正心态，因为谁也不敢保证您将来考的一定会在您现在做的题（当然总有那么一半的人有这运气，呵呵），做题是因为一门课程内容太多，做题可以帮助理解，毕竟考题很活。
简单分析一下：
基本 *** 作(30分两小题)：考核重点一般集中在：工程新建与保存、控件的一些基本属性的设置（如：名称、标题、大小、位置、值等）、基本方法的使用（如：Print等）
简单应用(40分两小题)：考核重点一般集中在：简单算法(如：求最大数、素数、排序等)、通过代码窗口 *** 作对象属性、控件数组的建立与通过循环访问等。
综合应用(30分一小题)：考核重点一般集中在：顺序文件的读写 *** 作、读文件一般都会用到循环或数组。
一、关于计算机二级考试的目的及内容
计算机二级考试内容包括 C 语言， Q Basic ， Foxbase, Visual FoxPro 和 Visual Basic 。考生从中选出一项作为考试项目。考试分两部分，上机和笔试。笔试就是一些基本的 *** 作方法，编程方法，上机就是要亲自编程。报名时可以购买复习资料，包括：考试大纲，二级教材以及模拟考试光盘。听起来好像挺玄，其实考试方式以及内容都是极其简单的 —— 如果真的仔细看过复习资料。
二、计算机二级考试的准备过程
可以说，有了模拟考试的光盘，弄懂并且做熟练了以后，最后的上机考试就变成了完全没有意义的反射运动了。 关键是要肯拿出一点时间来练习。
计算机等级考试的报名时间大约是每年的 1 月和 6 月，分别对应 4 月和 9 月的考试。我选择的是第一次进入考试内容的 Visual Basic 。因为以前多少在计算机课上学过一点，对其内容和界面有所了解。大三结束放暑假前，我下定决心一定要在这个暑假里攻破二级的 VB 。真到放假了才知道放假前立下的宏志实在是很脆弱。放暑假后没几天我就跑到成都玩去了：那里有太多吸引我的东西：山水，小吃，还有朋友。临行前我还装模作样地往行李中放了一本二级教材，结果那个东西除了用来夹了几张我的照片以外就再没有发挥任何作用。
八月中旬后我才算是能安下心来准备那倒霉的考试了，打开书，我一页一页仔仔细细地看了一遍，对每一章每一节的 课后习题也作了思考。半个月过去了，其实中间也有偷懒了的几天，不过一本书算是看完了，感觉豁然开朗。于是开学以后放下书本，做了做模拟光盘。上机编程部分的题目完全说不上难，模拟题比数学的练习题要简单得多。但是总是在软件判分的时候得不到好的结果。仔细察看才知道，原来只有自己编的程序和所谓 " 正确答案 " 一模一样的，才能得到满分。但是，编写程序完全可以有不同的方法得到相同的结果。这下我知道了为什么上机考试如此困难了。应对的方法就只有 仔细分析所给的答案，体会出一些技巧和规律性的东西，通过考试应该是完全没有问题的。可以说，有了模拟考试的光盘，弄懂并且做熟练了以后，最后的上机考试就变成了完全没有意义的反射运动了。 关键是要肯拿出一点时间来练习。
三、考试实战篇
先说笔试 。包括选择和填空，都是一些基本的概念和编程方法。只要仔细地看过一遍书的人，笔试决不会出现不能通过的现象。我所知道的一些参加过考试的人也普遍认为笔试是很容易的。我进入考场的时候很镇静，看到卷子以后放眼望去都是自己十分熟悉的名词和内容，做起来也十分顺手。做的时候还是要认真的，不可轻敌。考场上一片寂静，大家都奋笔疾书，埋头苦干。考试时间过了不到一半，我已经将所有题做完了。我耐心地坐在位子上从头到尾检查了一遍，此时离考试结束时间还太远，我等不及了，于是交了卷子，离开了教室。两个字 —— 不难。
再说上机考试 。现在考场外领取考试座位号，听老师叙述考试规则，然后进入考场。每人一台电脑，题目从题库中随机抽取，每人题目各不相同，所以监考老师任务并不重。但是这也就造成了考场气氛比较混乱，少不了周围的人都
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）