全国计算机等级考试VB经典必考资料，知识点总结(6)

“全国计算机等级考试”考试要点

根据题目要求，所编写程序如下：

(2) 在考生文件下有文件in.txt，文件有10个数据：123 521 362 821 400 300 710 990 120 500. 请在Forml的窗体上画一个文本框，名称为Text1，能显示多行；再画一个命令按钮，名称为Cl，标题为“存盘”。编写适当的事件过程，使得在加载窗体时，把in5.txt文件的内容显示在文本框里，然后统计10 个数的最大数、最小数和它们的和，并把最大数、最小数和它们的和写到“out.txt”文件中。如图所示：

根据题目要求，所编写程序如下：

朱锦新 第 15 页 2013-4-21

“全国计算机等级考试”考试要点

朱锦新 第 16 页 2013-4-21

“全国计算机等级考试”考试要点

Visual Basic程序设计基础知识要点(程序设计篇)

全国计算机等级考试中常用的程序编程部分： 九大问题具体例子分析：

一、求最大数、最小数、求和以及求平均数

例题：随机产生10个两位整数，并存入数据a中，然后分别求10个元素中的最大数、最小数、求10个元素之和以及它们的平均数。 Private Sub Command1_Click()

Dim a(10) As Integer, i As Integer, Max As Integer, Min As Integer Dim Sum as Integer, Avg As Single Sum=0

For i= 1 To 10

a(i)=Int(Rnd*90)+10 ?产生10—99之间的随机整数 Next i

Max=a(1):Min=a(1) ?假设最大数和最小数 For i= 1 To 10

If Max

If Min>a(i) Then ’求最小数 Min=a(i) End if

Sum=Sum+a(i) ?求和 Next i

Avg=Sum/10 ?求平均数

Print “最大数：”;Max;“最小数：”;Min;“和：”;Sum;“平均数：”;Avg End Sub 二、求阶乘

例题：求10！.

Private Sub Command1_Click()

Dim Sum As Long, i As Integer Sum=1

For i= 1 To 10

Sum=Sum*i Next i

Print “10!=”;Sum End Sub 三、求最大公约数

例题：求M和N两个数的最大公约数。 Private Sub Command1_Click()

Dim M As Integer, N As Integer, R As Integer M=36:N=24 Do

朱锦新

第 17 页

2013-4-21

“全国计算机等级考试”考试要点

R=M Mod N M=N N=R

Loop While R<>0 ?或 Loop Until R=0 Print \和N的最大公约数为：\；M End Sub 四、求素数

例题：求100—200之间的所有素数,并按每行5个元素格式输入所有素数。 Private Sub Command1_Click()

Dim n As Integer ,i As Integer j As Integer For n = 100 To 200

For i = 2 To n-1 ?n-1可以是n/2,也可以是Sqr(n)形式

If n Mod i =0 Then Exit For

Next i

If i>n-1 Then

j=j+1 ?统计素数个数 Print n;

If j Mod 5 =0 Then Print ?输出5个数换行 End If Next n End Sub 判断素数的函数过程：

Function Prime (x As Integer)As Boolean Dim I As Integer For I = 2 To Sqr(x) If x Mod I= 0 Then Prime=False End If Next I

Prime=True End Function

五、求水仙花数(拆数法)

例题：求100—999之间的所有水仙花数，并将所有水仙花数在文本框中显示。所谓水仙花数：即153=1^3+5^3+3^3条件成立。

方法1：(数值型：使用运算符Mod 和 \\) Private Sub Command1_Click()

Dim i As Integer ,a As Integer ,b As Integer ,c As Integer For i = 100 To 999

a=i\\100 ?取百位数 b=i\\10 Mod 10 ?取十位数 c=i Mod 10 ?取个位数 If i=a^3+b^3+c^3 Then

Text1.Text=Text1.Text & i & Space(2) End If

朱锦新

第 18 页

2013-4-21

“全国计算机等级考试”考试要点

Next i End Sub

方法2：(字符型：使用函数Mid、Val和CStr) Private Sub Command1_Click()

Dim i As Integer ,a As Integer ,b As Integer ,c As Integer For i = 100 To 999

a= Val(Mid(CStr(i),1,1)) ?取百位数 b= Val(Mid(CStr(i),2,1)) ?取十位数 c= Val(Mid(CStr(i),3,1)) ?取个位数 If i=a^3+b^3+c^3 Then

Text1.Text=Text1.Text & i & Space(2) End If Next i End Sub

六、排序问题

例题：随机产生10个两位整数，并存入数据a中，然后将这10个元素从小到大排序(或从大到小),并将排序号的数组显示在文本框中。

方法1：选择排序

Private Sub Command1_Click()

Dim a(10) As Integer, i As Integer, j As Integer ,temp As Integer For i= 1 To 10

a(i)=Int(Rnd*90)+10 ?产生10—99之间的随机整数 Next i

For i= 1 To 9 ?比较n-1轮 For j = i+1 To 10 ?每一轮比较几次 If a(i)>a(j) Then ?从大到小：a(i)

For i =1 To 10

Text1.Text=Text1.Text & a(i) & space(2) Next i End Sub

方法2：直接插入排序

Private Sub Command1_Click()

Dim a(10) As Integer, i As Integer, j As Integer ,temp As Integer Dim Pointer As Integer For i= 1 To 10

a(i)=Int(Rnd*90)+10 ?产生10—99之间的随机整数 Next i

For i= 1 To 9 ?比较n-1轮

朱锦新 …… 此处隐藏：1174字，全部文档内容请下载后查看。喜欢就下载吧 ……