为Form1、标题为“文本框练习”的窗体上添加1个名称为Text1的文本框.pdfVIP

基本题(1)

【解题思路】MaxLength属性设置文本框中输入的字符串长度是否有限制。默认值

为0，表示该单行文本框中字符串的长度只受操作系统内存的限制；若设置为大于0的数，则表示能够输入的最

大字符数目。

【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.162。

表3.162

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基本题(2)

【解题思路】按照题目要求设置标签和命令按钮的属性，在命令按钮的Click事件过

程中，通过设置标签的FontSize属性值实现标签内容字体的放大和还原。

【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.163和表3.164。

表3.163

表3.164

步骤2：编写程序代码。

参考答案

PrivateSubCommand1_Click()

Label1.FontSize=Label1.FontSize+2

EndSub

PrivateSubCommand2_Click()

Label1.FontSize=12

EndSub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)

【解题思路】在CmdClick事件过程中，通过SelectCase语句判断选择命令按钮数

组的Index属性值，Case0表示单击表示单击开始开始按钮，计时器Timer1和和暂停暂停按钮的Enabled属性为True，状态变为可

用，且如果Cmd(0)的Caption属性是属性是开始开始按钮，那么Cmd(0)的Caption属性变为属性变为继续继续，且Cmd(0)为不可用，单

击击继续继续按钮，则Timer1接着开始工作，接着开始工作，继续继续按钮变为不可用，按钮变为不可用，暂停暂停按钮变为可用。同理Case1表示单击表示单击

暂停暂停按钮，则Timer1停止工作，停止工作，暂停暂停按钮变为不可用，按钮变为不可用，继续继续按钮变为可用；Case2表示单击表示单击结果结果按钮，则

结束程序运行。

Timer1Timer事件过程通过If判断语句，实现秒向分钟，分钟向小时的转换，并在三个文本框中显示出来。

【操作步骤】

步骤1：打开本题工程文件，画1个计时器timer1，设置计时器Interval属性为1000，Enabled属性设置为False。

步骤2：分析并编写程序代码。

程序提供代码

Dimt(3)AsInteger

PrivateSubCmd_Click(IndexAsInteger)

SelectCase?

Case0

Timer1.Enabled=?

Cmd(1)．Enabled=True

IfCmd(0)．．开始开始

Cmd(0)．．继续继续

EndIf

Cmd(0)．Enabled=?

Case1

Timer1.Enabled=False

Cmd(0)．Enabled=True

Cmd(1)．Enabled=False

Case2

End

EndSelect

EndSub

PrivateSubTimer1_Timer()