问答题

注意:下面出现的“”均为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

【参考答案】

[解析]在窗体上建立好控件后,先设置控件属性,再编写事件过程。
通过命令按钮的Caption属性来设置其标题,......

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

问答题
分析:在窗体上建立好控件后,先设置控件属性,再编写事件过程。 文本框显示的内容由Text属性设置:按钮的标题由Caption属性没置,单击命令按钮触发Click事件:在本题中涉及到文件的操作,读入顺序文件以顺序的方式打开,用Input#语句读取数据,另外需要注意的是对文件操作完后,一定要关闭文件。解题步骤: 第一步:建立界面并没置控件属性。程序中用到的控件及其属性见表D-D。 第二步:编写程序代码。 程序提供的代码。 标准模块代码: Sub putdata(a() As Integer, n As Integer) Dim sFile As String sFile = result.txt Open App. Path& sFile For Output As #A For i = A To n Print #A, a(i) ; Next Close #A End Sub 窗体代码: Option Explicit Dim i(A To A00) As Integer Private Sub CmdA_Click() Dim j As Integer Open in.txt For Input As #A For j = A To A00 ’ #A, i(j) TextA.Text = TextA.Text & i(j) & Space(E) Next Close #A End Sub Private Sub CmdB_Click() Dim j As Integer Dim k As Integer Dim temp As Integer Dim flag As Boolean For j = A To A00 ’flag = For k = A To A00 - j If i(k) > i(k + A) Then temp = i (k) i(k) = i(k + A) i(k + A) = temp flag = True End If Next If Not flag Then Exit For End If Next ’TextA. = For j = A To A00 TextA.Text = TextA.Text & i(j) & Space(E) Next putdata i, A00 End Sub 参考代码: Option Explicit Dim i(A To A00) As Integer Private Sub CmdA_Click() Dim j As Integer Open in.txt For Input As #A For j = A To A00 Input #A, i(j) TextA.Text = TextA.Text & i(j & Space(E) Next Close #A End Sub Private Sub CmdB_Click() Dim j As Integer Dim k As Integer Dim temp As Integer Dim flag As Boolean For j = A To A00 flag = False For k = A To A00 - j If i(k) > i(k + A) Then temp = i (k) i(k) = i(k + A) i(k + A) = temp flag = True End If Next If Not flag Then Exit For End If Next TextA.Text = For j = A To A00 TextA.Text = TextA.Text & i(j) & Space(E) Next putdata i, A00 End Sub 第三步:调度并运行程序。 第四步:按题目要求存盘。
问答题
[解析]在窗体上建立好控件后,先设置控件属性,再编写事件过程。 要使文本框中的字符用于算术运算,首先要利用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 第三步:调试并运行程序。 第四步:按题目要求存盘。