第六章过程..docVIP

第6 章 过程 1．输入一个四位正整数，将其逆序输出。 Private Sub Command1_Click() Dim n1 As Integer, n2 As Integer Rem IsNumeric函数用于判断是否为数字字符组成，若是数字字符为True，否则为False。 If Not IsNumeric(Text1.Text) Then MsgBox 文本框中包含非数字字符，请重新输入。 Text1.Text = Text1.SetFocus ElseIf Len(Text1.Text) 4 Then MsgBox 文本框中输入4位整数，请重新输入。 Text1.Text = Text1.SetFocus Else n1 = Val(Text1.Text) Call NX(n1, n2) Text2.Text = n2 End If End Sub Private Sub Command2_Click() End End Sub Private Sub NX(ByVal n1 As Integer, n2 As Integer) Dim i As Integer For i = 1 To 4 r = n1 Mod 10 n2 = n2 * 10 + r n1 = n1 \ 10 Next i End Sub 2．验证任意一个大于5的奇数可表示为3个素数之和。书P182[实例6-11] 3．编写一个将N进制数转换为十进制数的通用程序。 Private Sub cmdexit_Click() ‘退出 End End Sub Private Sub cmdtrs_Click() ‘转换 txtresult.Text = CStr(mytrs()) End Sub 讲N进制数转换成十进制数的通用程序 对输入的数据的正确性暂不作检查 这里假设输入的为正整数 Private Function mytrs() As Integer Dim i As Integer, iLen As Integer 先对输入的数据进行合理性检查 iLen = Len(txtinput.Text) For i = 1 To iLen If Mid(txtinput.Text, i, 1) 0 Or Mid(txtinput.Text, i, 1) 9 Then MsgBox 输入了非法数据，请重新输入！, vbExclamation, 提示 txtinput.Text = txtinput.SetFocus Exit Function End If mytrs = mytrs * Val(txtcase.Text) + Asc(Mid(txtinput.Text, i, 1)) - Asc(0) Next i End Function 4．已知竞赛小组12名学生竞赛成绩，请排列出他们的名次（成绩由键盘输入，成绩相同的名次相同）。 Option Base 1 Private Sub Command1_Click() ‘输入并排名 Dim a(12, 2) As Integer Dim i As Integer, num As Integer For i = 1 To 12 a(i, 1) = InputBox(请输入 i 号学生的成绩, 成绩排序) a(i, 2) = i Picture1.Print i 号： ; a(i, 1) Next i Call Sort(a) For i = 1 To 12 If i = 1 Then num = 1 ElseIf a(i, 1) a(i - 1, 1) Then num = i 若要名次连续的话，将该语句替换为num=num+1 End If Picture2.Print 第 num 名： ; a(i, 2) 号，成绩为; a(i, 1) Next i End Sub Private Su