VB上机综合练习二.pdfVIP

Visual Basic 综合练习 VB 上机综合练习二 一、改错题 查找3 位和4 位的Armstrong 数。若一个N 位正整数其各位数据字的N 次方之和等于 这个数本身，则这个数就是一个Armstrong 数。 【要求】1、不能增加或删除程序中的语句，但可以更改语句的位置； 2 、将窗体保存为F1.frm ，工程文件保存为P1.vbp 。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim I As Integer, A() As Integer, f As Boolean, n As Integer Dim j As Integer, st As String st = For I = 153 To 9999 f = False Call arms(I, f, A, n) If f Then st = st I = For j = 1 To UBound(A) - 1 st = st A(j) ^ n + Next j st = st A(j) ^ n List1.AddItem st End If Next I End Sub Private Sub arms(k As Integer, f As Boolean, B() As Integer, n As Integer) Dim I As Integer, Sum As Integer, M As Integer n = Len(Str(k)) M = k ReDim B(n) For I = n To 1 Step -1 B(I) = k Mod 10 k = k \ 10 Next I For I = 1 To n Sum = Sum + B(I) ^ n Next I If Sum = M Then f = True End Sub Visual Basic 综合练习 二、编程题 编写一个数据转换程序，将一组大小差异很大的数据变换为[0，1]区间的数值。设这样 本数据的最大值为maxa ，最小值为mina ，将第k 个样本值vk 变换为vk’ 的变换公式为： Vk −min a Vk (k 1,2,3,..., n) max a − n a mi 生成样本数据：利用InputBox 函数输入需要生成的数据个数n ，缺省值为10，再生成n 个 1-999 之间的随机整数，并在文本框中显示。 【要求】1、程序参考界面如下图所示，不得增加或减少界面对象或改变对象和种类； 2 、程序中至少包含一个通用过程； 3 、窗体文件与工程文件分别保存为F2.frm 与P2.vbp 。