2. 计算机
  3. 在名称为Forml的窗体上绘制三个名称为Labell、Label2、Label3的控件和两个名称分别为COMSTART和COMEXIT、标题分别为“开始”和“退出”的命令按钮。编写函数Item(A，N)，其功能是由数字A组成的不多于N位数的整数，利用该函数

在名称为Forml的窗体上绘制三个名称为Labell、Label2、Label3的控件和两个名称分别为COMSTART和COMEXIT、标题分别为“开始”和“退出”的命令按钮。编写函数Item(A，N)，其功能是由数字A组成的不多于N位数的整数，利用该函数

admin2010-07-13  49
问题 在名称为Forml的窗体上绘制三个名称为Labell、Label2、Label3的控件和两个名称分别为COMSTART和COMEXIT、标题分别为“开始”和“退出”的命令按钮。编写函数Item(A，N)，其功能是由数字A组成的不多于N位数的整数，利用该函数求6666—666—66—6的值并把结果写入考生文件夹下的out．dat文件中。单击完毕，“开始”按钮变为“完成”，且无效，如图66—6所示。
选项
答案本题主要考查标签控件的使用和循环程序设计思想。控件是否可用通过其Enable属性设置，当Enable属性为True时控件可用，当Enable为False时控件不可用(灰色)；命令按钮的标题通过Caption属性设置；Str$函数将数字转换为字符串。 ①建立界面并设置控件属性。程序中用到的控件及其属性见下表： [*] ②打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下： Option Explicit Private Sub Cmdl_Click() Dim A As Integer Dim N As Integer，J As Integer，Sum As Single A=6：N=4 For J=N To l Step-l If J=N Then Sum=Item(A，J) Else Sum+Sum-Item(A，J) End If Next J Print"Sum="；Sum Open App．Path&"＼”&"out．dat"For Output As#l Print#1，Sum Close#1 Cmdl．Caption="完成" Cmdl．Enabled=False End Sub Function Item(A，N) Dim P As String，Q As String，S As Single Dim i As Integer，H As Single P="" For i=1 TO N Q$=Str$(A) P$=P$+Q$ Next i S=Val(P$) H=H+S Item=H End Function Private Sub Crod2 Click() End End Sub
解析
转载请注明原文地址:https://kaotiyun.com/show/mGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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