问答题


【参考答案】

[解析] 控件在运行时是否可用由Enabled属性设置。当Enabled为True时，控件在运行时可用，当Enable为......

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

问答题
注意：下面出现的“”均为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。
问答题
[解析] 程序中用到了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 第二步：调试并运行程序。 第三步：按题目要求存盘。
相关试题