VB 判断该字符串是否是“回文”个位数 + 十位数 + 百位数 = 9.docVIP

考试课程：2005级《高级语言程序设计》VB机试 60分钟 试卷总分 100 分 调试程序：（程序存盘文件名Test31.frm、Test31.VBP）(40分) 评分标准： 每个改错点： 7分 正确存盘： 5分 Private Sub Command1_Click() Dim s As String, c1 As String * 1, c2 As String * 1 Dim i As Integer, flag As Boolean s = InputBox(请输入一个串, 判断是否是回文) n = Len(s) 原为n=10 flag = True For i = 1 To Int(n / 2) c1 = Mid(s, i, 1) 原为c1= c2 = Mid(s, n - i + 1, 1) If c1 c2 Then flag = False 原为flag= End If Next i If flag = True Then 原为if then MsgBox s 是回文 Else MsgBox s 不是回文 End If End Sub Private Sub Form_Load() Form1.Caption = 回文判断 ’或在属性窗口中设 原空缺 End Sub 编程题参考答案（程序存盘文件名Test32.frm、Test32.VBP）(60分) 评分标准： 文件存盘正确 5分 正确设计界面 5分 正确设计各按钮的可用性 5分 正确设计“产生”按钮的功能 15分 正确排序并输出排序结果 15分 文件操作及结果正确 10分 程序结构清晰、合理 5分 参考程序： Dim n% Dim a(1 To 30) As Integer Private Sub Command1_Click() Dim i%, j%, x%, gewei%, shiwei%, baiwei% Randomize n = 30 For i = 1 To n Do x = Int(Rnd * 900 + 100) gewei = x Mod 10 shiwei = (x \ 10) Mod 10 baiwei = x \ 100 If gewei + shiwei + baiwei = 9 Then a(i) = x Exit Do End If Loop Next i j = 1 For i = 1 To n Picture1.Print Tab(j * 5); a(i); If j Mod 10 = 0 Then j = 0 j = j + 1 Next i Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() Dim i%, j% For i = 1 To n - 1 For j = 1 To n - i If a(j) a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t End If Next j Next i 排序后的结果： j = 1 For i = 1 To n Picture2.Print Tab(j * 5); a(i); If j Mod 10 = 0 Then j = 0 j = j + 1 Next i Command2.Enabled = False Command3