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

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

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

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

二级VB

NCRE全国计算机二级

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