在考生文件夹下有一个工程文件sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“显示并保存奇数”和“显示并保存偶数”。“读取数据”按

admin2009-03-26  32

问题 在考生文件夹下有一个工程文件sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“显示并保存奇数”和“显示并保存偶数”。“读取数据”按钮的功能是把考生文件夹下的in5.dat文件中的50个整数读到数组中,并在Textl中显示出来;“显示并保存奇数”和“显示并保存偶数”按钮的功能是把50个数按要求保存到考生文件夹下的out51.dat和out52.dat文件中。单击“读取数据”
命令按钮后,程序运行时的窗体界面如图52—5所示。

    注意:在窗体中已经给出了全部控件和部分程序,要求阅读程序并去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。

选项

答案 根据题意,将一个Text控件和3个Command控件添加到窗体上,Text的名称为Textl,Text属性为空、MuhiLIne属性为True,ScrollBar属性为2,Command的名称分别为Commandl、Command2和Command3、Caption属性分别为“读取数据”“显示并保存奇数”和“显示并保存偶数”。双击Commandl命令按钮,编写如下代码: Dim a(50)As Integer Private Sub Commandl_Click() Dim i As Integer Dim str As String str="" Open"App.Path&\in5.dat"For Input As#l For i=1 To 50’利用For循环将数据读取到数组中 Input#1,a(i) str=str+CStr(a(i))+"" ’将数组放到字符串中 Next i Close#1 Textl.Text=str’将结果显示在Textl上 End Sub Private Sub Command2 Click() Dim i As Integer Dim str As String str="" For i=1 To 50 If a(i)Mod 2=1 Then str=str+CStr(a(i))+" End If Next i Textl.Text=str Open"App.Path&\out51.dat"For Output As#1 Print#1,str Close#1 End Sub Private Sub Command3_Click() Dim i As Integer Dim str As String str="" For i=1 To 50’利用For循环遍历数组 If a(i)Mod 2=0 Then’如果是偶数 str=str+CStr(a(i))+"" ’则加入到字符串中 End If Next i Textl.Text=str’将得到的字符串显示在Textl上 Open"App.Path&\out52.dat"For Output As#1’打开文件准备写入 Print#1,str’将结果写入文件中 Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://kaotiyun.com/show/sN1p777K
0

最新回复(0)