2. 计算机
  3. 阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。 【说明】 该应用程序是用来求一元二次方程和一元一次方程的，其运行如图2所示。 当用户在对应方程系数的文本框(txt1、txt2和txt3)中输入数

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。 【说明】 该应用程序是用来求一元二次方程和一元一次方程的，其运行如图2所示。 当用户在对应方程系数的文本框(txt1、txt2和txt3)中输入数

admin2009-02-15  77
问题 阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。
   【说明】
   该应用程序是用来求一元二次方程和一元一次方程的，其运行如图2所示。

当用户在对应方程系数的文本框(txt1、txt2和txt3)中输入数值后，单击“解方程”按钮 (cmdcalculate)，解方程并将解显示在Ⅺ和K2对应的文本框中(txt4和txt5)中。若是一个一元一次方程，只显示在X1对应的文本框中，若无解则弹出对话框。下面的代码是“解方程”按钮的Click事件的代码。
  【程序代码】
   Private Sub  (1)  ()
       a=Val(Txt1.Text):b=Val(Txt2.Text);c=Val(Txt3.Text)
    If a =0 Then
       If b = 0 Then
           MsgBox"方程无解!",vbOKOnly,"提示"
           Txt4.Text=" "
           Txt5.Text=" "
       Else
           Txt4.Text=(2)  
           Txt5.Text=" "
       End If
   Else
       delta=(3)  
       If  (4)  Then
           MsgBox"方程无解!",vbOKOnly,"提示"
           Txt4.Text=" "
           Txt5.Text=" "
       Else
           Txt4.Text=Str $ (((-1) * b + Sqr(delta))/(2 * a))
           Txt5.Text=(5)  
       End If
     End If
   End Sub
选项
答案(1)cmdcalculate_Click (2)Str $(-l*c/b)或Str(-l* c/b) 或其等价形式 (3)b * -b -4 * a * c 或其等价形式　 (4)delta＜0 或其等价形式 (5)Str$ (((-1) * b - Sqr(delta))/(2*a)) 或其等价形式
解析 (1)空需要填写该函数的名称，说明中已经明确这是“解方程”按钮的Click事件的代码，因此，(1)空应填写“cmdcalculate_ }Click”。
   (2)空处是求一元一次方程的解，若a=0，b≠，则x=-c/b，并将它转换字符串。因此(2)空应填写“Str $(-1*c/b)”或“Str(－1*c/b)”。
   (3)空处要为delta赋值，由(5)空的上一条语句可以判断，可以看出delta=b2-4ac，再通过这个值进行判断一元二次方程是否有解。因此(3)空应填写“b*b-4*a*c”或其等价形式。
   在一元二次方程中，若delta＜0方程无解，因此(4)空应填写“delta＜0”或其等价形式。
   (5)空是要写出一元二次方程的另一个解表达式，因此(5)空处应填写"Str $(((-1) * b-Sqr(deha))/(2 * a))"。
转载请注明原文地址:https://www.kaotiyun.com/show/3EjZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

相关试题推荐
随机试题
最新回复(0)