vb实验报告循环

物理工程系计算机实验报告 课程名称 同组成员 实验目的 实验题目 实验环境、条件 对调数 Option Explicit Dim a, b, i, n, s, m As Integer, ch1, ch2 As String Public LoginSucceeded As Boolean Private Sub Form_Click() a = InputBox("请输入一个两 位正整数：") i = Len(a) If i = 2 Then ch1 = StrReverse(a) b = Val(ch1) For m = 10 To 99 ch2 = CStr(m) ch2 = StrReverse(ch2) n = Val(ch2) a = Val(a) If a + m = b + n Then Print m End If Next m Else MsgBox "输入错误，请重新点 击页面输入！" End If End Sub VisualBasic 程序设计 班级 设备编号 37 循环 对调数，守形数，完全数 VB6.0 守形数 Option Explicit Dim a, i, n, s As Integer, ch As String, ch1 As String Public LoginSucceeded As Boolean Private Sub Form_Click() For a = 1 To 1000 ch1 = CStr(a) i = Len(ch1) n=a^2 ch = CStr(n) ch = Right(ch, i) s = Val(ch) If s = a Then Print a & "为守形数！" End If Next a End Sub 完全数 Option Explicit Dim a, i, n, s, m As Integer Public LoginSucceeded As Boolean Private Sub Form_Click() Print "1 和 1000 之间的完全数 有：" m=0 For a = 1 To 1000 s=0 For i = 1 To a - 1 n = a Mod i If n = 0 Then s=i+s End If Next i If s = a Then Print a m=m+1 End If Next a MsgBox "1 和 1000 之间一共有 " & m & "个完全数。" Unload Me End Sub 实验日期 姓名 20120

实 验 过 程 总 结 ( 产 生 的 问 题 、 解 决 方 法 )

第1页下一页