答案:
参考答案:
解析: 在窗体上建立好控件后,先设置控件属性,再编写事件过程。
按钮的标题由其Caption属性设置,单击触发其Click事件。文件的操作一般按照如下步骤进行:打开或建立文件、进行读或写操作、关闭文件。解题步骤:
第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表15-3。
表 15-3
控 件 名 称 | 属 性 | 设 置 值 |
Label2 | Caption | 考生文件夹\RESULT.TXT |
Label4 | Caption | 目标文件: |
Label5 | Caption | 利用循环进行计算1+1/2+1/3+…+1/10的结果,并且把结果写入目标文件中 |
按钮控件 1 | 名称 | CMDSTART |
| Caption | 开始 |
按钮控件 2 | 名称 | CMDEXIT |
| Caption | 退出 |
第二步:编写程序代码。
程序提供的代码:
Private Sub CmdEXIT_Click()
End
End Sub
Private Sub Cmdstart_click()
Dim E As Single, J As Integer
Dim T As Single
’Open App.Path& For As
’E=
T=1
For J=2 To 10 Step 1
T=i/J
E=E+T
Next J
’Write #1,
Close #1
’CMDSTART.Caption=
’CMDSTART.Enabled=
End Sub
参考代码:
Private Sub CMDEXIT_Click()
End
End Sub
Private Sub CMDstart_click()
Dim E As Single, J As Integer
Dim T As Single
Open App.Path & "\" & "result.txt" For Output As #1
E=1
T=1
For J=2 To 10 Step 1
T=1/J
E=E+T
Debug.Print T, E
Next J
Write #1, E
Print E
Close #1
CMDSTART.Caption= "完成"
CMDSTART.Enabled=False
End Sub
第三步:调试并运行程序。
第四步:按题目要求存盘。
(2) 单选按钮都是成组出现,用户在一组单选按钮中只能且最多选择一项,某项被选定后,其左边的圆圈中出现一个黑点;字体由FontName属性决定,字体的大小由FonfSize属性决定:清除文本框的内容可以用将文本框的内容置空来实现(文本框.Text="")。
需要指出的是框架是一个容器控件,用于将窗体上的控件分组,不同的对象剋放在同一个框架内,它提供了视觉上的区分和总体的激活或屏蔽功能。要使用框架对控件进行分组,必须先画出框架,然后在框架内画出需要成为一组的控件,这样才能将框架内的控件组成一个整体。解题步骤:
第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表15-4。
表 15-4
控 件 名 称 | 属 性 | 设 置 值 |
Option1 | Caption | 仿宋 |
Option2 | Caption | 楷体 |
Option3 | Caption | 隶书 |
Option4 | Caption | 黑体 |
Option5 | Caption | 七号 |
Option6 | Caption | 五号 |
Option7 | Caption | 三号 |
Option8 | Caption | 初号 |
Command1 | Caption | 初始化 |
Command2 | Caption | 清除 |
Command3 | Caption | 退出 |
第二步:编写程序代码。
程序提供的代码:
Option Explicit
Private Sub Command1_Click()
Option1.Value=True
Option6.Value=True
Text1.Text="请输入您要设置的文本"
End Sub
Private Sub Command2_Click()
Option1.Value=True
Option6.Value=True
’Text1.Text=
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Option1.Value=True
Option6.Value=True
Text1.Text="请输入您要设置的文本"
End Sub
Private Sub Option1_Click()
Text1.FontName ="仿宋GB2312"
End Sub
Private Sub Option2_Click()
’Text1.FontName=
End Sub
Private Sub Option3_Click()
Textl.FontName="隶书"
End Sub
Private Sub Option4_Click()
Text1.FontName="黑体"
End Sub
Private Sub Option5_Click()
Text1.FontSize="5.5"
End Sub
Private Sub Option6_Click()
’Text1.FontSize=
End Sub
Private Sub Option7_Click()
Text1.FontSize="16"
End Sub
Private Sub Option8_Click()
Text1.FontSize="42"
End Sub
参考代码:
Option Explicit
Private Sub Command1_Click()
Option1.Value=True
Option6.Value=True
Text1.Text="请输入您将要设置的文本"
End Sub
Private Sub Command2_Click()
Option1.Value=True
Option6.Value=True
Text1.Text=""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Option1.Value=True
Option6.Value=True
Text1.Text="请输入您要设置的文本"
End Sub
Private Sub Option1_Click()
Text1.FontName="仿宋GB2312"
End Sub
Private Sub Option2_Click()
Text1.FontName="楷体GB2312"
End Sub
Private Sub Option3_Click()
Text1.FontName="隶书"
End Sub
Private Sub Option4_Click()
Text1.FontName="黑体"
End Sub
Private Sub Option5_Click()
Text1.FontSize="5.5"
End Sub
Private Sub Option6_Click()
Text1.FontSize="10.5"
End Sub
Private Sub Option7_Click()
Text1.FontSize="16"
End Sub
Private Sub Option8_Click()
Text1.FontSize="42"
End Sub
第三步:调试并运行程序。
第四步:按题目要求存盘。