VB学习材料由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb学习”。
《VB期末范围题总汇》
1． 求随机10个整数的最大值、最小值、平均值以及和； Dim a(1 To 10)
Private Sub Command1_Click()
Randomize
Picture1.Print “产生的随机数为：”
For i = 1 To 10
a(i)= Int(Rnd * 99 + 1)
Picture1.Print a(i);
Next i
Picture1.Print
End Sub
Private Sub Command2_Click()
Dim max, min, ave
max = a(1)
min = a(1)
ave = 0.1 * a(1)
For i = 2 To 10
If a(i)> max Then max = a(i)
If a(i)
ave = ave + 0.1 * a(i)
Next i
Picture1.Print “最大数为：”;max
Picture1.Print “最小数为：”;min
Picture1.Print “平均数为：”;ave
End Sub
2.求水仙花数
Private Sub Form_Click()
Dim a, b, c As Integer 'a(个)b(十)c(百)For a = 0 To 9
For b = 0 To 9
For c = 1 To 9
If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a
End If
Next c
Next b
Next a
End Sub
3.百元买百鸡问题；
Option Explicit
Const a = 5, b = 3, c = 1
Private Sub Form_Activate()
Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100
For j = 1 To 100
For k = 1 To 100
If i * a + j * b + k * c = 100 Then
n = n + 1
List1.AddItem “ 公鸡：” & i & “ 母鸡：” & j & “ 小鸡：” & k End If
Next: Next: Next
MsgBox “共有组合：” & n
End Sub
求1000以内的所有完数
一个按钮里调用的过程
Private Sub Command1_Click()
OutputWanNumber 1000
End Sub
4.'求完数的过程
Private Sub Form_Click()
Dim i, j As Integer
For i = 4 To 100
temp = 1
For j = 2 To i / 2
If i Mod j = 0 Then
temp = temp + j
End If
Next j
If temp = i Then
Print i
End If
Next i
End Sub
5.求各位数字之和
input a:'输入任意数
do
b=a mod 10:'取a的末位数
sum=sum+b:'求和
a=a 10:'去掉末位数
loop until a=0
print “sum=”;sum:'输出
end
（dim n as string
input n
for i = 1 to len(n)
sum=sum+val(mid(n,i,1))
next i
print sum）
6.求最小公倍数
Private Sub Form_Load()
Form1.AutoRedraw = True
Dim n1%, m1%, m%, n%, r%
n1 = InputBox(“输入n1”)
m1 = InputBox(“输入m1”)
If m1 > n1 Then '为了求最小公倍数，增加m,n变量
m = m1: n = n1
Else
m = n1: n = m1
End If
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
Print n1;“,”;m1;“的最大公约数为”;n
Print “最小公倍数=”, m1 * n1 / n
End Sub
7.求逆序数（感觉题目类型太多）
8.级数有限项求和问题（题目类型太多）
9.求质因子问题
Private Sub Command1_Click()
Dim N As Integer, I As Integer
N = Val(InputBox(“请输入2的整数:”))
I = 2
Do
If N Mod I = 0 Then
Print I;
N = N I
Else
I = I 1
End If
Loop While N 1
End Sub
10.字符统计
Option Base1
Option Explicit
Private Sub Command1_Click()
Dim i as integer，A(26)as integer，n as integer
Dim S as string*1,Strl as string
Strl=Text1
n=Len(Strl)
For i=1 To n
S=Mid(Strl,i,1)
If UCase(S)>=”A” And UCase(S)
A(Asc(UCase(S))-64)+1
End If
Next i
For i=1 To 26
List1.Additem Chr(64+i)& “:” & A(i)
Netx i
End Sub
Private Sub Command_Click()
End
End Sub
第二大题
1.判定素数过程
Function isprime(Num As Long)As Boolean
If Num
Dim i As Long
For i = 2 To Sqr(Num)
If(Num Mod i)= 0 Then
isprime = False
Exit Function
End If
Next i
isprime = True
End Function
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 1000
If isprime(i)Then
Print i
End If
Next i
End Sub
2.求最大公约数过程；
Function Max公约数(A As Long, B As Long)'求出两个数的最大公约数 Dim X As Long, Y As Long, K As Long
X = IIf(A >= B, A, B)'x存入最大值
Y = IIf(A
Do '辗转相除法
K = X Mod Y: If K = 0 Then Exit Do
X = Y: Y = K
Loop
Max公约数 = Y
End Function
3.冒泡排序过程
Private Sub Command1_Click()
Dim a(9)As Integer
Dim i As Integer
For i = 0 To 9
a(i)= InputBox(“输入整数”)
Next
Sort a
For i = 0 To 9
Print a(i)
Next
End Sub
Private Sub Sort(ByRef a()As Integer)Dim i As Integer
Dim j As Integer
Dim t As Integer
For i = LBound(a)+ 1 To UBound(a)For j = UBound(a)To i Step-1
If a(j1)
a(j-1)= a(j)
a(j)= t
End If
Next
Next
End Sub
4顺序查找过程
Private Sub Command1_Click()
Dim i, j, t, a(1 To 10)
Randomize
Print “原数组:”
For i = 1 To 10
a(i)= Rnd * 10
Print “a(” & i & “)=” & a(i)& Space(2), If i Mod 2 = 0 Then Print
Next i
For i = 1 To 9
For j = i + 1 To 10
If a(j)
t = a(i)a(i
VB学习心得体会当我们经过反思，对生活有了新的看法时，将其记录在心得体会里，让自己铭记于心，从而不断地丰富我们的思想。很多人都十分头疼怎么写一篇精彩的心得体会，以下是小编为......
VB学习札记在大二上学期学习过VB.NET，但由于将近1年时间没有接触，本学期刚开学时vb水平已经退化到没学过的水平了。所以，必须要利用前3周来复习已经学过的知识，一边做练习一边巩......
VB学习心得体会VB学习>心得体会VB是一门程序设计语言，也需要一定的英语基础。VB既能充实我们的生活，武装我们的头脑，锻炼我们的意志，又能在以后需要的时候成为帮助我们成功的推......
刀豆文库小编为你整合推荐7篇VB学习心得体会，也许这些就是您需要的文章，但愿刀豆文库能带给您一些学习、工作上的帮助。......
篇一：vb学习的心得体会 vb学习的心得体会 ————刘师桐这学期选修了vb这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。那么谈谈这学期的学习中......
