《程序改错完结版》由会员分享，可在线阅读，更多相关《程序改错完结版（96页珍藏版）》请在金锄头文库上搜索。
1、 程序改错1 在打开的 VB 工程中进行如下要 求的操作，注意控件名称的定义。【功能】设计一个运行界面如图 所示的程序，用户能从“饭店菜单 “ 列表框把选定的“菜“添加到“我 点的菜“列表框中，要求：“饭店菜单“支持多项选择。 【要求】1、在窗体上插入一个标签控件， 其 Caption 属性设置为：“饭店菜 单“2、在窗体上插入一个标签控件， 其 Caption 属性设置为：“我点的 菜“3、在“饭店菜单“下面插入一个列 表控件，名称为：“List1“4、在“我点的菜“下面插入一个列 表控件，名称为：“List2“5、在适当位置插入一个按钮控件， 名称为：“Command1“ Cpation
2、属性为：“点菜“ 6、在窗体的 Load 事件中，为 List1 控件添加如下内容的项： 宫爆鸡丁、红烧带鱼、红烧牛 肉、麻婆豆府、青菜蘑菇、 香菇油菜、香辣鸡翅、鱼香肉 丝、过油肉、雪盖火山、 蚂蚁上树。7、“点菜“按钮的单击事件，将饭 店菜单中选中的项添加到 List2 中， 并且清除 List1 中项的选中状 态。Private Sub Form_Load() List1.AddItem “宫保鸡丁“, 0 List1.AddItem “红烧带鱼“, 1 List1.AddItem “红烧牛肉“, 2 List1.AddItem “麻婆豆腐“, 3 List1.AddItem “青菜蘑菇
3、“, 4 List1.AddItem “香菇油菜“, 5 List1.AddItem “香辣鸡翅“, 6List1.AddItem “鱼香肉丝“, 7 List1.AddItem “过油肉“, 8 List1.AddItem “雪盖火山“, 9 List1.AddItem “蚂蚁上树“, 10 End SubPrivate Sub Command1_Click() List2.AddItem List1 List1.Clear End Sub1.题目：在窗体上设计两个文本框和两个标签，标签上显示“摄氏温度“和“华氏温度“，文本框一个用于输入摄氏温度数，一个用于输出对应的华氏温度?摄氏温度与华氏
4、温度的转换公式为: c = (5 / 9) * (f - 32)要求：对输入的摄氏温度数有检查功能，以拒绝接收非数字字符?运行界面如图所示:Private Sub Command1_Click()Text1 = “Text2 = “Text1.Enabled = TrueText2.Enabled = True程序改错2Text1.SetFocusEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text1 = “Text2 = “Text1.Enabled = FalseText2.Enabled = Fa
5、lseEnd SubPrivate Sub Text1_Change()*FILL*_ Text2.Text _ = 5 * (Val(Text1.Text) - 32) / 9End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii a(j + 1) Thenx = a(j): a(j) = a(j + 1): a(j + 1) = x*FILL*_work = False 或 work=0 或 not work = true_End IfNext j*FILL*If work Then _ Exit For_Next
6、 iFor i = 1 To nPrint a(i);Next iEnd Sub4.题目：由输入对话框输入n（n必须为大于零且小于30的自然数）， 计算下列表达式的值，并在标签框Label1上显示。 sum=1/2+1/6+ . +1/(k*(k+1) (k0 且n= 30n = Val(InputBox(“n=“, “请重输入“)Loopsum = 0k = 0Do*FILL*程序改错5k =_k+1_sum = sum + 1 / (k * (k + 1)*FILL*Loop Until _(k+1) n_Label1.Caption = “Sum=“ + Str(sum)End Sub5
7、.下面的程序段，用于实现在一个nXm的矩阵中，找出值最大的元素所在的行和列，并输出其值及行号和列号。Private Sub Form_Click()Dim mat() As IntegerDim n As Integer, m As Integern = Val(InputBox(“请输入矩阵的行数“)m = Val(InputBox(“请输入矩阵的列数“)*FILL*_ReDimmat(n,m)ReDimmat(n,m) AsAs IntegerInteger_For i = 1 To nFor j = 1 To mmat(i, j) = InputBox(“请输入数组元素值“)mat(i,
8、 j) = Val(mat(i, j)Next jNext iPrint “所建立的矩阵为“For i = 1 To nFor j = 1 To mPrint mat(i, j);Next jPrintNext iMax = mat(1, 1)For i = 1 To nFor j = 1 To m程序改错6*FILL*If _MaxMax “cmdRight.Enabled = TruecmdLeft.Caption = “= “a“ And a = “A“ And a 0*FILL*mr = _m = m rIf mr= 10 Then*FILL*StrDtoR = Chr(mr - 10
9、 + _65_) i; “)=“; mark(i)Next iPrint “平均分=“; mark(n + 1), “高于平均分人数=“; mark(n + 2)End Sub-16.下面的程序实现：从键盘输入一个数字，将其插入一个有序数组中，插入后的数组仍保持有序。Private Sub Form_Click()Dim a(10) As Integer, x As IntegerFor i = 1 To 8a(i) = 2 * i - 1Print a(i);Next iPrintx = InputBox(“请输入要插入的整数“)*FILL*_i = 8Do While a(i) x*FIL
10、L*_i = i - 1Loop*FILL*If i 0 Then _For i = 1 To 9Print a(i);Next iEnd Sub17.题目：写出程序运行时单击窗体后，Form1上输出结果。 0 2 4 -1 1 3 -2 0 2 -3 -1 1Private Sub Form_Click()Dim iAs IntegerDim j As IntegerDim h As IntegerDim k As IntegerDim a(2, 3) As Integer*FILL*For i = 0 To _For j = 0 To 3*FILL*a(i, j) = 2 _ i - jN
11、ext j, iFor h = 0 To 3*FILL*For _ = 0 To 2Form1.Print a(k, h),Next k程序改错11PrintNext hEnd Sub18.题目：用户单击命令按钮后，程序将文本框Text1中的文本反转显示， 同时在文本框Text2中显示文本框Text1框中字符串的个数? 设在一个窗体中已经设置了二个文本框Text1和Text2， 以及一个命令按钮，且设计有下列程序，请指出程序的功能。请在_处填入正确的内容Private Sub Command1_Click()If Text1.Text = “ ThenExit SubText2.Text =
12、0Else*FILL*Text1.Text = MyFun_End IfEnd SubPrivate Sub Form_Load()Text1.Text = “Text2.Text = 0End SubPrivate Function MyFun(s1 As String) As StringDim PosAs IntegerDim Str1 As StringDim intC As IntegerConstSpAs String = “*FILL*Pos = Len(_)For intC = PosTo 1 Step -1Str1 = Str1 Next iPrint*FILL*For i
13、= n To 2 _Step -1 _work = TrueFor j = 1 Toi - 1If a(j) a(j + 1) Thenx = a(j): a(j) = a(j + 1): a(j + 1) = x*FILL*_work = False 或 work=0 或 not work = true_End IfNext j*FILL*If work Then _ Exit For_Next iFor i = 1 To nPrint a(i);Next iEnd Sub4.题目：由输入对话框输入n（n必须为大于零且小于30的自然数）， 计算下列表达式的值，并在标签框Label1上显示。 sum=1/2+1/6+ . +1/(k*(k+1) (k0 且n= 30n = Val(InputBox(“n=“, “请重输入“)Loopsum = 0k = 0Do*FILL*k =_k+1_sum = sum + 1 / (k * (k + 1)*FILL*Loop Until _(k+1) n_Label1.Caption = “Sum=“ + Str(sum)End Sub5.下面的程序段，用于实现在一个nXm的矩阵中，找出值最大的元素所在的行和列，并输出其值及行号和列号。Private Sub F
