2. 计算机
  3. 在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在名称为Forml的窗体上有一个Label控件和两个名称分别为Commandl和Command2、标题分别为“开始”和“关闭”的命令按钮。编写函数Add(A，N)，其功能是由

在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在名称为Forml的窗体上有一个Label控件和两个名称分别为Commandl和Command2、标题分别为“开始”和“关闭”的命令按钮。编写函数Add(A，N)，其功能是由

admin2010-07-13  58
问题 在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在名称为Forml的窗体上有一个Label控件和两个名称分别为Commandl和Command2、标题分别为“开始”和“关闭”的命令按钮。编写函数Add(A，N)，其功能是由数字A(第一个数字)和0(除第一个数外的N-1位)组成的不多于N位数的整数，并利用该函数求8+80+800+8000的和，结果写入考生文件夹下的sj5．dat文件中。执行完毕后，“开始”按钮变成“完成”，且无效(变灰)。程序运行时的窗体界面如图20—7所示。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案根据题意，将一个标签和两个命令按钮添加到窗体中，标签的Caption属性为“编写函数Add(A，N)”，其功能是由数字A(第一个数字)和0组成的不多于N位数的整数，并利用该函数求8+80+800+8000的和结果写入考生文件夹下的sj5．dat文件中，两个命令按钮的名称分别设为Commandl和Command2，Caption属性分别为“开始”和“关闭”。双击Commandl进人代码编写窗口，编写Add函数，代码如下： Private Function Add(A As Integer，N As Integer)As Long Dim i As Integer Dim j As Integer Dim b As Long total=0 If N>=1 Then For i=1To N b=1 For j=1 To i-1 b=b*10 Next j Add=Add+A*b Next i End If Commandl．Enabled=False Commandl．Caption="完成" End Function 然后编辑按钮单击事件函数，代码如下： Private Sub Commandl_Click()’单击"开始"，计算Add(8，4) Dim total As Long total=Add(8，4) Open App．Path&"＼sj5．dat"For Output As#1’打开"sj5．dat"文件 Write#1，total’写入结果 Close#1 End Sub Private Sub Command2_Click() ’单击关闭 Unload Me’关闭对话框 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/VLmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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