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

admin2009-02-15  58

问题 阅读以下应用说明及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://jikaoti.com/ti/DvW7FFFM
0

最新回复(0)