实验2程序设计基础.docVIP

实验2?程序设计基础目的和要求(1)?掌握VB．NET常量、变量和表达式的定义和用法。(2)?熟练掌握VB．NET语句的书写规范。(3)?掌握分支结构的用法。(4)?掌握循环结构的用法。(5)?掌握各种常用函数的用法。(6)?掌握数组的使用方法。内容和步骤?求方程ax2+bx+c=0的解（参考课本56页3.3.1）求方程解的公式如下：方程的根有以下几种可能：a=0，一个实根。②b2-4ac=0，有两个相等的实根。③bZ-4ac0，有两个不等的实根。④b2-4ac0，有两个共轭复根。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c As Single Dim delta, re, vi As Single a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = Val(TextBox3.Text) If a = 0 Then MsgBox(这不是一个二元一次方程) Else delta = b * b - 4 * a * c If delta = 0 Then re = -b / (2 * a) TextBox4.Text = Str(re) TextBox5.Text = Str(re) ElseIf delta 0 Then re = -b / (2 * a) vi = Math.Sqrt(delta) / (2 * a) TextBox4.Text = Str(re + vi) TextBox5.Text = Str(re - vi) Else re = -b / (2 * a) vi = Math.Sqrt(-delta) / (2 * a) TextBox4.Text = Str(re) + Str(vi) i TextBox5.Text = Str(re) - Str(vi) i End If End If End Sub?筛选字母字符并反序存放。（参考课本57页3.3.2） Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c As String Dim i As Integer a = TextBox1.Text For i = 1 To Len(a) If UCase(Mid(a, i, 1)) = A And UCase(Mid(a, i, 1)) = Z Then c = c Mid(a, i, 1) End If Next i For i = Len(c) To 1 Step -1 b = b Mid(c, i, 1) Next TextBox2.Text = b End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = TextBox2.Text = TextBox1.Focus() End Sub?根据下列公式计算的值。（参考课