《在Form1画一个文本框,其名称为T1,宽度和高度分别为1400和400》由会员分享，可在线阅读，更多相关《在Form1画一个文本框,其名称为T1,宽度和高度分别为1400和400（4页珍藏版）》请在金锄头文库上搜索。
1、基础题（基础题（1）【考点分析】本题考点有：命令按钮的Name、Caption属性，文本框的 Name、Height、Width、Text、Fontsize属性。 【解题思路】通过命令按钮的Name、Caption属性分别设置其名称和标题，文本框的 Name、Height、Width属性设置文本框的名称、高度和宽度。在命令按钮的Click事件中，设置 文本框的显示文本，改变文本框的高度和宽度，并改变字体的大小。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.169。步骤2：编写程序代码。 参考答案参考答案 Private Sub C1_Click()T
2、1 = “等级考试“ End Sub Private Sub C2_Click()T1.Height = 2 * Me.T1.HeightT1.Width = 2 * T1.WidthT1.FontSize = 3 * T1.FontSize End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 基础题（基础题（2）【考点分析】本题考点有：命令按钮的Name、Caption属性，文本框的 Name属性和Text属性，LCase( )函数和UCase( )函数。 【解题思路】LCase( )函数的作用是把大写字母转换成为小写字母；UCase( )函数的作用是 把小写字母转换为大写字
3、母。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.170。步骤2：编写程序代码。 参考答案参考答案 Private Sub C1_Click()Text1.Text = LCase(Text1.Text)Text2.Text = UCase(Text1.Text) End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（简单题（1）【考点分析】命令按钮的Caption属性，单选按钮的Caption、Value属性， 列表框的Name、Text属性，“ “ “; jEnd IfNext End Sub 程序结束程序结束 步骤3：调试
4、并运行程序，关闭程序后按题目要求存盘。综合题综合题 【考点分析】本题考点有：文本框的Text、Name、MultiLine属性，命令按钮的 Name、Caption属性，Type记录型变量，DoLoop循环语句，文件操作，顺序文件的建立和 保存，App.Path相对路径，“&“连接符，常数vbCrLf的应用。 【解题思路】vbCrLf代表Chr(13) & Chr(10)即回车符与换行符。 在声明部分定义一个存放“姓名“、“性别“和“年龄“的记录型结构变量，并定义一个结构变 量StudInfo。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.172。步
5、骤2：编写程序代码。 参考答案参考答案 Private Type StudInfoName As String * 8Sex As String * 4Age As Integer End Type Dim Stud As StudInfoDim RecNum As Long Private Sub Command1_Click()Open App.Path & “in5.txt“ For Random As #1 Len = Len(Stud)RecNum = 1Do While Not EOF(1)Get #1, RecNum, StudText1.Text = Text1.Text & Stud.NameText1.Text = Text1.Text & Stud.SexText1.Text = Text1.Text & Str(Stud.Age)Text1.Text = Text1.Text + vbCrLfRecNum = RecNum + 1LoopClose 1 End Sub Private Sub Command2_Click()Open App.Path & “out5.txt“ For Output As #1Print #1, Text1.TextClose 1 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
