VB上机9参考 答案.docVIP

2007年（春）上机 Visual Basic（VB08）答案 改错 【题目】输入任意一个3到5位的正整数，将组成该整数的各位数字重新排列组成一个降序整数。例如，输入38579，可得到98753。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim n As Long, st As String, num() As Integer, i As Integer n = Text1 Call jx(n, num) For i = 1 To UBound(num) 错误 Str(n)也可改这里为UBound(num) - 1 st = st CStr(num(i)) Next i Text2 = st End Sub Private Sub jx(n As Long, num() As Integer) Dim i As Integer, k As Integer, j As Integer ReDim num(Len(CStr(n))) 错误 Str(n) Do i = i + 1 正确位置 k = n Mod 10 num(i) = k n = n \ 10 i = i + 1 错误位置 Loop Until n = 0 错误 n 0 For i = 1 To UBound(num) - 1 For j = i To UBound(num) If num(i) num(j) Then k = num(i) num(i) = num(j) num(j) = k End If Next j Next i End Sub 二、编程题 【题目】编写一个数据转换程序。数据转换方法是： 。式中V为样本原始值，V’为转换后的新值，wav为n个样本数据的平均值，σ是样本数据的方差。, Dim a() As Integer, n As Integer Private Sub Command1_Click() Dim i As Integer n = InputBox(输入数据个数N=, 输入, 10) ReDim a(n) For i = 1 To n a(i) = Int(999 * Rnd) + 1 Text1 = Text1 Str(a(i)) Next i End Sub Private Sub Command2_Click() Dim b() As Single, i As Integer ReDim b(n) Call change(a, b) For i = 1 To n List1.AddItem a(i) - b(i) Next i End Sub Private Sub change(x() As Integer, y() As Single) Dim sum As Integer, av As Single, lamda As Single Dim i As Integer, ss As Single For i = 1 To UBound(x) sum = sum + x(i) Next i av = sum / UBound(x) For i = 1 To UBound(x) ss = ss + (x(i) - av) * (x(i) - av) Next i lamda = Sqr((ss) / (UBound(x) - 1)) For i = 1 To UBound(x) y(i) = (x(i) - av) / lamda Next i End Sub Private Sub Command3_Click() Text1 = List1.Clear End Sub