问答题


【参考答案】

分析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。
文本框显示的内容由Text属性设置：按钮的标题由......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
<上一题 目录 下一题>
热门 试题

问答题
[解析]在窗体上建立好控件后，先设置控件属性，再编写事件过程。 要使文本框中的字符用于算术运算，首先要利用Val将文本框中输入的数字字符转换为数字类型(文本框中的内容默认为字符串类型)。解题步骤： 第一步：建立界面并设置控件属性。 第二步：编写程序代码。 程序提供的代码： Option Explicit Private Sub C1_Click() Dim i As Integer，s As Integer Dim a As Integer，b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a＞b Then i = a a = b ’ b = End If s = 0 For i = a To b ’ s = s + Next i Text3.Text = s End Sub 参考代码： Option Explicit Private Sub C1_Click() Dim i As Integer， s As Integer Dim a As Integer， b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a ＞ b Then i = a a = b b = i End If s = 0 For i = a To b s = s + i Next i Text3.Text = s End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)[解析]在窗体上建立好控件后，先设置控件的属性，再编写事件过程。 命令按钮的Caption属性用来设置其标题，单击命令按钮触发Click事件：在文本框中显示内容通过其Text属性来设置。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表4-3。 第二步：编写程序代码。 标准模块代码： Option Explicit Sub putdata(t_FileName As String，t_Str As Variant) Dim SFile As String SFile = & t_FileName Open App.Path & SFile For Output As #1 Print #1， t_Str Close #1 End Sub 参考代码： Private Sub Cmd1_CliCk() Dim temp As Long Dim i As Integer For i = 100 To 200 If i Mod 3 = 0 Then temp = temp + i End If Next Text1.Text = temp putdata out.txt ，temp End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
问答题
注意：下面出现的“”均为c: wexam 25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1，标题为“输出”的命令按钮，如图4-1所示。要求程序运行后，在文本框输入几个字符，单击“输出”按钮，则在窗体上显示文本框中的文字。 注意：在程序中不能使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。 (2)在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题为“按钮一”和“按钮二”的命令按钮，如图4-2所示。要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上，使两个按钮重合，如图4-3所示。 注意：在程序中不得使用任何变量(必须通过属性设置来移动控件)。保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp
相关试题