问答题

注意:下面出现的“”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在名称为Form1的窗体上添加一个计时器控件,名称为Timer1。请利用“属性”窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer事件过程一次。另外,请把窗体的标题设置为“题目2”。设计阶段的窗体如图18-1所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2) 在名称为Form1的窗体上画一个文本框,名称为Text1,无初始内容;再画一个图片框,名称为 P1。请编写Text1的Chang事件过程,不能使用任何变量,使得运行时,在文本框中每输入一个字符,就在图片框中输出一行文本框中的完整内容。程序运行界面如图18-2所示。
注意:保存时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

【参考答案】

[解析] 时钟控件的Interval属性,表示两个计时器事件之间的时间间隔,其值以ms(0.001s)为单位,题目要求每......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
热门 试题

问答题
[解析] 单选按钮的标题由Caption属性设置,检测单选按钮的状态通过Value属性来实现。如果单选按钮被选中,则Value值为1;没选中,Value值为0。当建立控件数组时,系统给每个元素赋一个惟一的索引号(Index),通过属性窗口的Index属性,可以知道该控件的下标是多少;在窗体上显示信息通过Print方法实现,其形式为: [对象.] print要显示的内容。解题步骤: 第一步:建立界面并设置控件属性。程序用到的控件及其属性见表18-3。 表 18-3 对 象 属 性 设 置 值 单选按钮 Name Caption Value Op1 北京 flase 单选按钮 Name Caption Value Op2 上海 flase 单选按钮 Name Caption Value Op2 广州 flase 标签框 Name Lable1 第二步:编写程序代码。 程序提供的代码: Private Sub C1_Click() ’ For i= To ’ If Op1(i) .=True Then ’ Print 我的出生地是 +Op1(i) . End If Next End Sub 参考代码: Private Sub C1_Click() For i=0 To Op1.Count-1 If Op1(i) .Value=True Then Print 我的出生地是 +Op1(i) .Caption End If Next End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2) [解析] 在窗体上建立好控件后,先设置控件的属性,再编写事件过程。 标签的标题由Caption属性设置,控件的高和宽分别由Height和Width属性来设置。控件的名称由Name属性设置,向组合框添加项目有两种方法,可以在“属性”窗口的List属性里直接添加,也可以在代码中添加。题目要求在设计时添加。字体和字号分别由控件FontSize属性和FontName属性来设置。解题步骤: 第一步:建立界面并设置控件属性。程序用到的控件及其属性见表18-4。 表 18-4 控 件 属 性 设 置 值 组合框 Name List Cb1 10 15 20 组合框 Name List Cb2 宋体 隶书 黑体 标签 Name Caption B1 字号 标签 Name Caption B1 字体 标签 Name Caption L1 计算机等级考试 第二步:编写程序代码。 参考代码: Private Sub Cb1_Click() L1.Font.Size=Cb1.Text End Sub Private Sub Cb2_Click() L1.Font.Name=Cb2.Text End Sub Private Sub Form_Unload(Cancel As Integer) Dim i As Long,j As Long Open out4.txt For Output As #1 For i=0 To Cb1.LiStCount-1 Cb1.ListIndex=i For j=0 To Cb2.ListCount-1 Cb2.ListIndex=j Print #1,Cb1.Text & Cb2.Text & CInt(L1.Font.Size) & L1.Font Next j Next i Close #1 End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。