第十二周VB实验报告.docVIP

第十二周 Visual Basic程序设计 实 验 要 求 注意： · 将调试成功的工程分别建立文件夹保存、打包，作为邮件附件发送到jsjx2@163.com邮箱。 · 邮件主题一定要标明班级、姓名、学号和实验周次，否则提交无效。同一次实验不要重复提交。 · 实验要求独立完成，不能有雷同答案。一题一个文件夹，压缩后上传。 一、验证程序(参考8.8.5) 哥德巴赫猜想：任意一个大于2的偶数都可以表示成两个素数之和。 将100～120之间的偶数，表示为两个素数之和；找出所有的素数对，并统计素数对的个数；在窗体上显示结果。 Private Sub Command1_Click() Dim a%, b%, c%, n% For a = 100 To 120 Step 2 For b = 3 To a / 2 If prime(b) Then c = a - b If prime(c) Then List1.AddItem a = b + c n = n + 1 End If End If Next b Next a Label1 = 100到120之间有 n 对素数对和 End Sub Function prime(m%) As Boolean Dim i% prime = True For i = 2 To Sqr(m) If m Mod i = 0 Then prime = False Exit Function End If Next i End Function 二、验证程序（参考7.9.7） 设计应用自定义类型数组的程序。 ① 自定义一个职工数据类型，包含职工号、姓名、工资三项内容。在通用声明段声明职工数据类型的数组，可存放20个职工的数据。 ② 窗体中放3个标签、3个文本框、2个命令按钮和1个图形框，文本框分别输入职工号、姓名、工资。 ③ 当单击“添加”按钮时，将文本框输入的内容添加到数组。 ④ 单击“排序”按钮，将输入的内容按工资递减的顺序排列，并在图形框显示。 Option Explicit Type Zg gh As String * 4 xm As String * 4 gz As String * 4 End Type Option Explicit Dim a() As Zg, i%, n% Private Sub Command2_Click() Dim j%, k%, t As Zg For j = 1 To n - 1 For k = j + 1 To n If a(j).gz a(k).gz Then t = a(j) a(j) = a(k) a(k) = t End If Next k Next j For j = 1 To n Picture1.Print a(j).gh; ; a(j).xm; ; ; a(j).gz Next j End Sub Private Sub Form_Load() n = InputBox(输入人数) ReDim a(1 To n) i = 0 End Sub Private Sub Command1_Click() i = i + 1 If i n Then MsgBox (人数超过): Exit Sub With a(i) .gh = Val(Text1) .xm = Val(Text2) .gz = Val(Text3) End With Text1 = : Text2 = : Text3 = : End Sub 三、验证程序（参考8.8.4） 设计程序，实现将五、六、十二进位制数转换成十进制整数。 四、验证程序（参考8.8.8） 设计一种加密算法，编写加密程序。 Function code(ByVal s$, ByVal key%) Dim c As String * 1, iasc%, i% code = For i = 1 To Len(s) c = Mid$(s, i, 1) iasc = Asc(c) Select Case c