问答题

注意:下面出现的“”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个文本框,名称为Text1:再画两个命令按钮,名称分别为C1和 C2,标题分别为“隐藏”和“显示”。请编写适当的事件过程,使得在运行时,如果单击“隐藏”按钮,则文本框消失,而如果单击“显示”按钮,则文本框显示出来,如图9-1和图9-2所示。程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。


(2)在窗体上画两个文本框,名称分别为Text1和Text2。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,如果在Text1中每输入一个字符,则显示一个“*”,同时在Text2中显示输入的内容,如图9-3所示。程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

【参考答案】

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

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

问答题
[解析] 程序中用到了RGB函数,该函数通过红、绿、蓝三基色产生某种颜色,语法为RGB(红,绿,蓝)函数,其中括号中的红、绿、蓝三基色的范围为0~BEE之间的整数。解题步骤: 第一步:编写程序代码。 程序提供的代码: Option Explicit Private Sub CommandA_Click() End End Sub Private Sub Form_Load() ’LabelD.BackColor = RGB( , HScrollB.Value, HScrollC.Value) End Sub Private Sub HScrollA_Change() ’LabelD. = RGB(HScrolll.Value, HScrollB.Value, HScrollC.Value) End Sub Private Sub HScrollB_Change() ’LabelD.BackColor = (HScrollA.Value, HScrollB.Value, HScrollC.Value) End Sub Private Sub HScrollC_Change() ’ = RGB(HScrolll.Value, HScrollB.Value, HScrollC.Value) End Sub 参考代码: Option Explicit Private Sub CommandA_Click() End End Sub Private Sub Form_Load() LabelD.BackColor = RGB(HScrollA.Value, HScrollB.Value, HScrollC.Value) End Sub Private Sub HScrollA_Change() LabelD.BackColor = RGB(HScrolll.Value, HScrollB.Value, HScrollC.Value) End Sub Private Sub HScrollB_Change() LabelD.BackColor = RGB(HScrollA.Value, HScrollB.Value, HScrollC.Value) End Sub Private Sub HScrollC_Change() LabelD.BackColor = RGB(HScrolll.Value, HScrollB.Value, HScrollC.Value) End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。 (B)[解析] 该题用到两个函数和一个公式,Val()是将其内容转变为数字类型,Sqr()是求数值的平方根,而求解三角形的面积的时候用到海伦公式即S=Sqr(p*(p-a)*(p-b)*(p-c)),其中a、b、c是三角形的三个边,p=(a+b+c) B。 解题步骤: 第一步:编写程序代码。 程序提供的代码: Option Explicit Dim a As Single Dim b As Single Dim c As Single Dim S As Double Dim L As Single Private Sub CommandA_Click() a = Val (TextE.Text) b = Val (TextF.Text) c = Val (TextG.Text) ’If Then Textl.Text = 是三角形 ’If Then TextB.Text = 是直角三角形 Else ’If Then TextB.Text = 是锐角三角形 Else: TextB.Text = 是钝角三角形 End If End If TextC.Text = a + b + c ’计算三角形的周长 L = (a + b + c) B TextD.Text = Sqr(L * (n - a) * (L - b)(L - c) ) ’计算三角形的面积 Else: TextA.Text = 非三角形 TextB.Text = TextC.Text = TextD.Text = End If CommandB.Enabled = True End Sub Private Sub CommandB_Click () ’此处需要设置,以实现清空所有文本框及使“清除再来”失效的功能 ’ End Sub Private Sub CommandC_Click() End End Sub Private Sub Form_Load () TextA.Enabled = False TextB.Enabled = False TextC.Enabled = False TextD.Enabled = False CommandB.Enabled = False End Sub 参考代码: Option Explicit Dim a As Single Dim b As Single Dim c As Single Dim S As Double Dim L As Single Private Sub CommandA_Click() a = Val (TextE.Text) b = Val(TextF.Text) c = Val (TextG.Text) If a <> 0 And b <> 0 And c <> 0 And a + b > c And a + c > b And b + c > a Then TextA.Text = 是三角形 If a ^ B + b ^ B = c ^ B Or a ^ B + c ^ B = b ^ B Or b ^ B + c ^ B = a ^ B Then TextB.Text = 是直角三角形 Else If a ^ B +b ^ B > c ^ BAnda ^ B + c ^ B > b ^ B And b ^ B + c ^ B > a ^ B Then TextB.Text = 是锐角三角形 Else: TextB.Text = 是钝角三角形 End If End If TextC.Text = a + b + c L = (a + b + c) B TextD.Text = Sqr(L * (L - a) * (L - b) * (L - c) ) Else TextA.Text = 非三角形 TextB.Text = TextC.Text = TextD.Text = End If CommandB.Enabled = True End Sub Private Sub CommandB_Click() TextA.Text = TextB.Text = TextC.Text = TextD.Text = TextE.Text = TextF.Text = TextG.Text = CommandB.Enabled = False End Sub Private Sub CommandC_Click() End End Sub Private Sub Form_Load() TextA.Enabled = False TextB.Enabled = False TextC.Enabled = False TextD.Enabled = False CommandB.Enabled = False End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。
问答题
[解析] 控件在运行时是否可用由Enabled属性设置。当Enabled为True时,控件在运行时可用,当Enable为False时,控件在运行时不可用(灰色);单击命令按钮触发其Click事件,其标题由Caption属性设置;Str$函数将数字转换为字符串。 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表I-C。 Option Explicit Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim A As Integer, N As Integer, J As Integer, Sum As Single A= H: N= D For J = A To N Sum = Sum + Item(A, J) Next J Print Sum= ; Sum Open App. Path& & sjtE.dat For Output As #A Print #A, Sum Close #A ’.Caption = 完成 ’COMSTART. = False End Sub Function Item(A, k) Dim P As String, Q As String, S As Single Dim i As Integer, H As Single p = For i = A To k Q$ = Str$ (A) p$ = p$ + Q$ Next i ’ = Val(P$) ’H = + S Item = H End Function 参考代码: Option Explicit Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim A As Integer, N As Integer, J As Integer, Sum As Single A= H: N = D For J = A To N Sum = Sum + Item(A, J) Next J Print Sum= ; Sum Open App. Path & & sjtE.dat For Output As #A Print #A, Sum Close #A COMSTART.Caption = 完成 COMSTART.Enabled = False End Sub Function Item(A, k) Dim P As String, Q As String, S As Single Dim i As Integer, H As Single p = For i = A To k Q$ =Str$ (A) P$ = P$ + Q$ Next i S = Val (P$) H = H + S Item = H End Function 第二步:调试并运行程序。 第三步:按题目要求存盘。