问答题

注意:下面出现的“夹”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画两个文本框,名称分别为T1和T2,初始情况下都没有内容。请编写适当的事件过程,使得运行时,在T1中输入的任何字符,立即显示在T2中,如图10-1所示。程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)在名称为Form1的窗体上画一个文本框,名称为Text1;再画一个命令按钮,名称为C1,标题为“移动”,如图10-2所示。请编写适当的事件过程,使得在运行时,单击“移动”按钮,则文本框水平移动到窗体的最左端如图10-3所示。程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

【参考答案】

[解析] 在窗体上建立好控件后,先设置控件属性,再编写事件过程。
文本框的文本内容由Text属性设置。题目要求......

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

问答题
[解析] 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 命令按钮的标题由其Caption属性设置,单击命令按钮触发其Click事件;标签的Caption属性用来显示其内容:程序用到String$函数。 String函数返回Variant(String),其中包含指定长度重复字符的字符串。 语法:String(number,character) String函数的语法有下面的命名参数: number必要参数;Long。返回的字符串长度。如果number包含Null,将返回Null。 character必要参数;Variant。为指定字符的字符码或字符串表达式,其第一个字符将用于建立返回的字符串;解题步骤: 第一步:建立界面并设置控件属性。程序用到的控件及其属性见表A0-C。 第二步:编写程序代码。 程序提供的代码: Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim A(D) As String Dim B(D) As String Dim k As Integer,A As Integer myfilel =App. Path& & picture.dat Open myfilel For Output As #A For k = A To D ’A() = StringS() ’B() = StringS() Next k For k = A To D ’Print #A, Next k For k = D To A Step -A ’ Print #A, Next k Close #A ’COMSTART. = 完成 ’COMSTART.Enabled = End Sub 参考代码: Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim A(D) As String Dim B(D) As String Dim k As Integer,A As Integer myfilel =App.Path& & picture.dat Open myfilel For Output As #A For k = A To D A(k) = String$(k * B - A, A ) B(k) = String$(k * B - A, B ) Next k For k = A To D Print #A, A(k) Next k For k = D To A Step -A Print #A, B(k) Next k Close #A COMSTART.Caption = 完成 COMSTART.Enabled = False End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (B)[解析] 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 程序里用的Screen.Font是系统的字型(类似一个字型数组),Screen.FontCount是系统字型的个数,其下标从0开始的,所以最后一个下标是Screen.FontCount-A。解题步骤: 第一步:编写程序代码。 程序提供的代码: Private Sub CommandA_Click() Dim I As Long ’ For I=0 To -A ’ Comb0A.Addltem Next End Sub 参考代码: Private Sub CommandA_Click() Dim I As Long For I=0 To Screen.FontCount -A Combol.Addltem Screen.Fonts(I) Next End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。