问答题

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：在名称为Form1的窗体上有三个Label控件和两个名称分别为COMSTART、 COMEXIT，标题分别为“开始”和“退出”的命令按钮。编写函数Item(A，N)，其功能是由数字A组成的不多于N位数的整数，利用该函数求8888-888-88-8的值并把结果写入考生文件夹下的sjt5.dat文件中。执行完毕“确定”按钮，变成“完成”，且无效。如图10-6所示。

【参考答案】

[解析] 控件是否可用由其Enable属性设置，当Enable为True时控件可用，当Enable为False时控件不可......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)

<上一题目录下一题>

热门试题

问答题

[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。命令按钮的标题由其Caption属性设置，单击命令按钮触发其Click事件；标签的Caption属性用来显示其内容：程序用到String$函数。 String函数返回Variant(String)，其中包含指定长度重复字符的字符串。语法：String(number,character) String函数的语法有下面的命名参数： number必要参数；Long。返回的字符串长度。如果number包含Null，将返回Null。 character必要参数；Variant。为指定字符的字符码或字符串表达式，其第一个字符将用于建立返回的字符串；解题步骤：第一步：建立界面并设置控件属性。程序用到的控件及其属性见表A0-C。第二步：编写程序代码。程序提供的代码： Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim A(D) As String Dim B(D) As String Dim k As Integer,A As Integer myfilel =App. Path& & picture.dat Open myfilel For Output As #A For k = A To D ’A() = StringS() ’B() = StringS() Next k For k = A To D ’Print #A, Next k For k = D To A Step -A ’ Print #A, Next k Close #A ’COMSTART. = 完成 ’COMSTART.Enabled = End Sub 参考代码: Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim A(D) As String Dim B(D) As String Dim k As Integer,A As Integer myfilel =App.Path& & picture.dat Open myfilel For Output As #A For k = A To D A(k) = String$(k * B - A, A ) B(k) = String$(k * B - A, B ) Next k For k = A To D Print #A, A(k) Next k For k = D To A Step -A Print #A, B(k) Next k Close #A COMSTART.Caption = 完成 COMSTART.Enabled = False End Sub 第三步：调试并运行程序。第四步：按题目要求存盘。 (B)[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。程序里用的Screen．Font是系统的字型(类似一个字型数组)，Screen.FontCount是系统字型的个数，其下标从0开始的，所以最后一个下标是Screen.FontCount-A。解题步骤：第一步：编写程序代码。程序提供的代码： Private Sub CommandA_Click() Dim I As Long ’ For I=0 To -A ’ Comb0A.Addltem Next End Sub 参考代码： Private Sub CommandA_Click() Dim I As Long For I=0 To Screen.FontCount -A Combol.Addltem Screen.Fonts(I) Next End Sub 第二步：调试并运行程序。第三步：按题目要求存盘。

问答题

注意：下面出现的“夹”均为c： wexam 25160001。请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，初始情况下都没有内容。请编写适当的事件过程，使得运行时，在T1中输入的任何字符，立即显示在T2中，如图10-1所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 (2)在名称为Form1的窗体上画一个文本框，名称为Text1；再画一个命令按钮，名称为C1，标题为“移动”，如图10-2所示。请编写适当的事件过程，使得在运行时，单击“移动”按钮，则文本框水平移动到窗体的最左端如图10-3所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

相关试题