国二VB-题库2(2)

综合题解析：

【解题思路】根据题意在\读数\命令的Click事件过程中，通过调用ReadData过程将数据从in5.txt文件读入到数组Arr(窗体变量)中；在\计算\命令的Click事件过程中，在For循环语句(循环变量i的初值为2，终值为100，步长为2)中依次将数组Arr中下标为偶数的元素显示在文本框中，并将其值累加到变量sum；在\保存\命令的Click事件过程中，通过调用WriteData过程将sum的值写入数据文件out5.txt。

ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、1、2、3四种值，0表示没有滚动条(默认值),1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条，设置0以外的值时MultiLine属性值必须为True。

Space()函数用于返回特定数目空格的 Variant (String)。 语法：Space(number)

必要的 number 参数为字符串中想要的空格数，Space 函数在格式输出或清除固定长度字符串数据时很有用。

【操作步骤】

步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜

单项，并在窗体Form1中添加一个文本框。 其相关属性及其值见表3.23和3.24。

表3.23 标题控件 读入数据 计算并输出 存盘 Read Calc Save 名称 0 0 0 内缩符号 表3.24 控件 文本框 Name MultiLine ScrollBars Text 属性 Text1 TRUE 2 设置值 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1

Dim Arr(100) As Integer Sub ReadData()

Open App.Path & \For i = 1 To 100

Input #1, Arr(i) Next i Close #1 End Sub

Sub WriteData(Filename As String, Num As Integer) Open App.Path & \Print #1, Num Close #1 End Sub 程序结束 参考答案

Dim sum As Long

Private Sub Calc_Click() Text1.Text = \

For i = 2 To 100 Step 2

Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i)

Next i Print sum End Sub

Private Sub Read_Click() ReadData End Sub

Private Sub Save_Click()

WriteData \

End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库国二VB-题库2(2)在线全文阅读。