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

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

admin2010-07-13  64
问题 在窗体上绘制两个命令按钮，名称分别为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://www.kaotiyun.com/show/eLmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)