有没有会VB的大神·= =

果然这学习类的没人鸟

好像没有人回答尼，上个厕所，回来帮你，

考试拿张卷子出来复习复习补考，必过。

第二题：翻了一下书，发现有一样的，就是有两上空没有写，补上测试了一下，
好像可以用，在一本VB书，黄皮，51页，用的是自定一个数，如果要求1-100之间的
把程序里面的循环结构范围改一下就可以了，帖吧老是抽风，上传了N次才把相片上传上去
Private Sub Command1_Click()
Dim X As Integer
Dim I As Integer
Dim Result As Boolean
X = Text1.Text
Result = True
For I = 2 To X - 1
If X Mod I = 0 Then
Result = False
Exit For
End If
Next I
If Result Then
Print X; "是素数"
Else
Print X; "不是素数"
End If
End Sub

第三题：此题考的是多维数组的创建、随机数生成、双重循环（好像是这么多吧，忘了）
类型题在Visual Basic 程序设计实例教程 主编：刘琦 聂永红这本书的133页，其实随便找本
VB的书找关于数组的内容都不会错的，程序如下：
Private Sub Command1_Click()
Dim a%(3, 3), max%, x%, y%
max = 0
Print "随机生成的拒阵为："
For I = 0 To 3
For j = 0 To 3
Randomize
a(I, j) = Int(90 * Rnd + 10)
If max <= a(I, j) Then
max = a(I, j)
x = I
y = j
End If
Print a(I, j);
Next j
Print
Next I
Print "最大的元数为："; max
Print "所在的行为："; x + 1
Print "所在的列为："; y + 1
End Sub

第4题：在Visual Basic 程序设计实验教程与题解 华南理工出版社 这本黄皮书的52页提到这个
水仙花数，不过没有给出程序，考的是循环结构程序设计
程序如下： 感觉应该对了，不知道对不对
Private Sub Command1_Click()
Dim a%, b%, c%
Print
Print "三位整数满足水仙花数条件的数如下："
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
If a ^ 3 + b ^ 3 + c ^ 3 = 100 * a + 10 * b + c Then
Print 100 * a + 10 * b + c
Print
End If
Next c
Next b
Next a
End Sub

第5题的什么Fibonacci数列没有见过，查了一下百度，看得眼花了，估计也是差不多的，
个人觉得学VB注重的是理解与及逻辑关系要搞清楚，另外如果真的想去学的
可以在VB里面把MSDN安装上去，遇到一个不懂用的属性时，直接选中按F1，就可以查到用法，
第6第7，这两道在课本上肯定有的，学习一下就可以了，

76分路过