在窗体上绘制两个命令按钮,名称分别为Commandl和Command2,标题分别为“输人”和“调换”, 两个标签,名称为Labell和Label2、Caption属性为“调换前:”和“调换后:”,两个名称分别为Text1和Text2的文本框控件。请编写适当

admin2010-07-13  41

问题 在窗体上绘制两个命令按钮,名称分别为Commandl和Command2,标题分别为“输人”和“调换”,
两个标签,名称为Labell和Label2、Caption属性为“调换前:”和“调换后:”,两个名称分别为Text1和Text2的文本框控件。请编写适当的事件过程,从键盘上输人10个整数,并放人一个一维数组中,然后
将其前5个元素与后5个元素对换,即第一个元素与第10个元素互换,第2个元素与第9个元素互换第5个元素与第6个元素互换。使得在运行时单击“调换”按钮,则分别在Textl和Text2中输出数组原来的各元素的值和对换后各元素的值,如图23—5所示。

    注意:去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,不能修改程序中的其他部分。
最后把修改后的文件按原文件名存盘。

选项

答案 要对数据进行对调,也就是数据交换,一般要借助中间变量,如本题的tmp。本题首先通过InputBox函数输入10个数,然后通过For循环,每次循环调换一组数。补充后的代码如下: Dim a(10)As Integer Private Sub Commandl Click() Dim i As Integer Dim str As String str="" For i=1 To 10 a(i)=Val(InputBox("请输入数字")) ’通过对话框输入10个数,并放人数字中 str=str+CStr(a(i))+"" ’将数组放入字符串中保存 Next i Textl.Text=str’在Textl中显示结果 End Sub Private Sub Command2 Click() Dim tmp As Integer Dim i As Integer Dim str As String str="" For 1=1 To 5 tmp=a(i) ’进行对调,先将a(i)的数据放人tmp中 a(i)=a(10-i+1) ’将a(10-i)的数据放人a(i)中 a(10-i+1)=tmp’将tmp的数据放人a(10-i)中 Next i For i=1 To 10 str=str+CStr(a(i))+"" Next i Text2.Text=str’将结果在Text2中显示出来 End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/uJg0FFFM
0

最新回复(0)