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

admin2010-07-13  28

问题 在名称为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://jikaoti.com/ti/gyg0FFFM
0

最新回复(0)