当前位置：文档之家 › vb实验报告循环

vb实验报告循环

  • 格式：pdf
  • 大小：171.27 KB
  • 文档页数：3

下载文档原格式

  / 3

合集下载

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

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