数字正三角形串处理.doc

课程名称：程序设计基础(VB)机试（第三套） 考试时间： 60 分钟 课程代码： 8426460 试卷总分： 100 分 一、调试程序：(存盘文件名: test31. frm 、test31. vbp) 在磁盘上有一个名为“TEST31.VBP”的工程文件和一个名为“Test31.frm”的窗体文件(程序界面如图1所示)。其功能为：单击“生成图形”按钮后，以Text1中输入的开始数字作为起始数字，在图形框中打印图形，直到打印到数字9。数字i对应的行打印2×i-1个数字i。 图1 程序中有若干错误，请调试通过。 (注意：在不删除整条语句的前提下，可修改或补充语句，添加的语句不能超过两条。调试通过后仍以文件名TEST31.VBP存盘)。 参考答案： Option Explicit Private Sub Command1_Click() Dim i As Integer, j As Integer, t As Integer ‘添加定义行：Dim n As Integer 或在上一行中添加此定义 Picture1.Cls n = Val(Text1.Text) For i = 1 To 9 改为： For i = n To 9 Picture1.Print Tab(20 - i); For j = 1 To 改为：For j = 1 To 2 * i - 1 Picture1.Print Trim(Str(i)); Next j Picture1.Print Next j ‘改为：Next i End Sub Private Sub Form_Load() ‘添加语句：Form1.Caption = 图形打印 或在属性窗口中设置 End Sub 二、编程：(存盘文件名: test32. frm 、test32. vbp) 在磁盘上已有顺序文件test32in.txt。要求编程实现以下功能： l、单击“读入串”按钮，从文件中读出一个字符串并显示在text1中； 2、单击“排序”按钮，将字符串按字母ASCⅡ码值从小到大排序，并显示在text2中； 3、单击“追加”按钮，将排序后生成的字符串添加到文件末尾。 界面如图2所示： 图2 参考答案： Private Sub Command1_Click() Open TEST32IN.TXT For Input As #1 Line Input #1, str Text1.Text = str Close #1 End Sub Private Sub Command2_Click() Dim s() As String * 1 Dim n% n = Len(str) ReDim s(1 To n) For i = 1 To n s(i) = Mid(str, i, 1) Next i For i = 1 To n - 1 For j = 1 To n - i If s(j) s(j + 1) Then t = s(j) s(j) = s(j + 1) s(j + 1) = t End If Next j Next i str = For i = 1 To n str = str s(i) Next i Text2.Text = str End Sub Private Sub Command3_Click() Open TEST32IN.TXT For Append As #1 Print #1, str Close #1 End Sub 软件评阅批语： 程序调试与改错 １、每个改错点　　　 （7分）　 ２、程序运行结果正确 　（5分） 二、编制程序 文件存盘（5分） 正确设计界面（10分） 正确打开文件、读出和显示数据（5分） 正确定义数组并赋值（10分） 正确排序（15分） 在文本框中正确显示排序后的字符串（5分） 正确将新字符串追加到文件（5分） 程序结构合理、清晰（5分） 年 月 日 第 页共 页 第 2 页 共 3 页 西华大学课程考试（考查）