VB程序代码问题--高手请进!

来源：百度知道 编辑：UC知道 时间：2024/05/17 03:17:54
帮忙看下下面操作的程序代码:

form1命名为智能检索系统
上面有控件：
ComboBox(其中Text写入精确查询）
BextBox(其中Text写入请输入...）
有6个CommandButton，命名分别为：
课文查询
译文查询
单词查询（点击触发工程4，进入form4界面）
句型查询
关键字查询
管理员登入（点击触发工程2，进入form2界面）
form2命名为管理员登入
上面有控件：
Label（写入管理员：）
Label（写入密码：）
2个BextBox
2个CommandButton，命名
登入（点击触发工程3，进入form3界面）
退出
form3命名为数据库管理
上面有控件：
3个optionButton
有4个CommandButton，命名分别为：
课文库
译文库
单词库
句型库
form4命名为查询操作
上面有控件：
2个Frame，命名分别为：
查询结果
关联

非常感谢,好的加分,3Q~~

Private Sub Form_Click()
Dim i, j, n As Integer
Dim flag As Boolean
For i = 3 To 300
flag = True
j = 2
Do While flag And j <= Int(Sqr(i))
If i Mod j = 0 Then flag = False
j = j + 1
Loop
If flag Then
Print Tab(6 * n + 1); i;
n = n + 1
If n Mod 6 = 0 Then n = 0
End If
Next i

End Sub