vb实验答案.docx

1、vb实验答案kwsy1.2 属性设置二Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Enabled = False End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Visibl

2、e = False End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Enabled = True TextBox1.Visible = TrueEnd SubEnd Classkwsy2.3 评选奖学金Public Class Form1Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventA

3、rgs) Handles Button2.Click TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox1.Focus()End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click EndEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As

4、System.EventArgs) Handles Button1.Click Dim a!, b!, c!, d! a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = Val(TextBox3.Text) d = (a + b + c) / 3 If (a = 100 And b = 100 And c = 80) Or (a = 100 And c = 100 And b = 80) Or (b = 100 And c = 100 And a = 80) Or d = 95 Then TextBox4.Text = 获一等奖 ElseIf d

5、 = 85 And a 80 And b = 80 And c = 80 Then TextBox4.Text = 获二等奖 ElseIf d = 80 Then TextBox4.Text = 获三等奖 Else TextBox4.Text = 不获奖学金End IfEnd SubEnd Classkwsy1.4 药物反应Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x!, y!

6、x = Val(InputBox(请输入药物剂量, 输入框) y = 1000 * x - x * x MsgBox(敏感度为 & y, , 输出框)End SubEnd Class求一元二次方程的根Imports System.MathPublic Class Form1Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub Private Sub Button1_Click(ByVal sender As S

7、ystem.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a#, b#, c#, d!, x$, y$ a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = Val(TextBox3.Text) d = b * b - 4 * a * cIf d 0 Then d = Sqrt(d) x = (-b + d) / 2 / a y = (-b - d) / 2 / a TextBox4.Text = x TextBox5.Text = y ElseIf d = 0 The

8、n x = -b / 2 / a y = -b / a / 2 TextBox4.Text = x TextBox5.Text = y Else d = Math.Sqrt(-d) x = Format(-b / 2 / a, 0.0000) y = Format(d / 2 / a, 0.0000) TextBox4.Text = x & + & y & i TextBox5.Text = x & - & y & iEnd IfEnd SubEnd Class求最大公约数和最小公倍数Public Class Form1Private Sub Button1_Click(ByVal sende

9、r As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim a, b, n, m, r As Long a = Val(TextBox1.Text) b = Val(TextBox2.Text) If a = 0 Or b = 0 Then InputBox(请重新输入)

10、 End IfIf a b Then m = a : n = b Else n = a : m = b End If Do r = m Mod n m = n n = rLoop While (r 0) Label3.Text = 结果为： & vbCrLf Label3.Text &= a & 与 & b & 的最大公约数为 & m & vbCrLf Label3.Text &= a & 与 & b & 的最小公倍数为 & a * b / m End SubEnd Class特殊图形显示（二） P24Public Class Form1Private Sub Button1_Click(By

11、Val sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click EndEnd SubPrivate Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Dim i!, j% Label1.Text = For i = 1 To 5 Label1.Text &= Space(3 * (i - 1) & For j = 1 To 17 - 3 * i Label

12、1.Text &= Next j Label1.Text &= & vbCrLfNext i Label1.Text &= Space(3 * (i - 1) & & vbCrLfFor i = 5 To 1 Step -1 Label1.Text &= Space(3 * (i - 1) & For j = 1 To 17 - 3 * i Label1.Text &= Next j Label1.Text &= & vbCrLf Next iEnd SubEnd Classkysy3.1 产量问题Public Class Form1Private Sub Button2_Click(ByVa

13、l sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n%, max!, s! s = 0 max = 0 For n = 20 To 50 s = n * (300 - 10 * (n - 20) If s max Then max = s End

14、 If Next For n = 20 To 50 s = n * (300 - 10 * (n - 20) If s = max Then Label1.Text &= 当每亩地种植 & n & 棵梨树时达到最高产量为 & max & kg & vbCrLf End If NextEnd SubEnd Classkysy3.2 猴子吃桃子Public Class Form1Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End

15、 End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x! x = 1 Label1.Text = 第7天的桃子数为：1个 & vbCrLf For i = 6 To 1 Step -1 x = 2 * (x + 1) Label1.Text &= 第 & i & 天的桃子数为： & x & 个 & vbCrLfNext iEnd SubEnd Classkysy3.3 求自然对数ePublic Class F

16、orm1Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i%, r#, s# s = 1 r = 1 i = 0 Do i = i + 1 r = r * i s = s + 1 / i

17、Loop While 1 / r = 0.00001Label1.Text = e的值为 & Format(s, #.#) MsgBox(e的值为 & Format(s, #.#), , 求e的值) End SubEnd Classkysy3.4 求素数Public Class Form1Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End SubPrivate Sub Button1_Click(ByVal send

18、er As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim m!, i!, n! n = 0 For m = 1 To 100 For i = 2 To m - 1 If m Mod i = 0 Then Exit For Next i If i = m Then n = n + 1 If n = 7 Then n = 0 Label2.Text &= vbCrLf End IfLabel2.Text &= m & Space(1) End If Next mEnd SubEnd Classkysy3.

19、5 图形显示Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Dim i!, j% Label1.Text = For i = 1 To 6 Label1.Te

20、xt &= Space(6 - i) For j = 1 To 2 * i - 1 Label1.Text &= Chr(64 + i) Next j Label1.Text &= vbCrLf Next i End SubEnd Classsy4.1 运动成绩排序Public Class Form1 Inherits System.Windows.Forms.Form Dim i%, j%, m%, temp!, t$, n% Dim a$() = 207, 126, 453, 096, 339, 077, 231, 276, 122, 302 Dim b!() = 14.5, 14.2,

21、15.2, 15.7, 14.9, 15.1, 14.7, 13.9, 13.7, 14.5 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = Label1.Text = 运动员编号 & Space(3) & 成绩（秒） & vbCrLf Dim i% m = UBound(b) n = UBound(a) For i = 0 To n Label1.Text &= a(i) & Space(7) &

22、b(i) & vbCrLf Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Label2.Text = Label2.Text = 名次 & Space(3) & 编号 & Space(3) & 成绩（秒） & vbCrLf Dim i%, j% For i = 0 To 8 m = i For j = i + 1 To 9 If b(m) b(j) Then m = j Next j temp = b

23、(m) : b(m) = b(i) : b(i) = temp t = a(m) : a(m) = a(i) : a(i) = t Label2.Text &= i + 1 & Space(6) & a(i) & Space(6) & b(i) & vbCrLf Next i Label2.Text &= i + 1 & Space(6) & a(i) & Space(6) & b(i) & vbCrLf End SubEnd Classsy4.2 矩阵求解Public Class Form1 Inherits System.Windows.Forms.Form Dim i%, j%, a%(

24、5, 5), s%, m%, n%, k% Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Randomize() Dim i%, j% Label1.Text = For i = 0 To 4 For j = 0 To 4 a(i, j) = Int(Rnd() * 99 + 1) Label1.Text &= a(i, j) & Space(8 - Len(a(i, j) Next Label1.Text &= vbCrLf

25、 & vbCrLf Next End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim i%, j% Label2.Text = a(i, j) = Len(Label1.Text) For i = 0 To 4 s += a(i, i) Next Label2.Text = 主对角线元素之和是： Label2.Text &= s End Sub Private Sub Button3_Click(ByVal sender As

26、 Object, ByVal e As System.EventArgs) Handles Button3.Click Dim i%, j% Label3.Text = a(i, j) = Len(Label1.Text) a(m, n) = 0 For i = 0 To 4 For j = 0 To 4 If a(m, n) a(i, j) Then m = i : n = j Next Next Label3.Text = 最大元素是： Label3.Text &= 第 & m + 1 & 行,第 & n + 1 & 列的 & a(m, n) End Sub Private Sub But

27、ton4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click Dim i%, j% a(i, j) = Len(Label1.Text) k = InputBox(请输入您要查找的元素：) m = 5 : n = 5 For i = 0 To 4 For j = 0 To 4 If k = a(i, j) Then m = i : n = j : Exit For Next Next If m = 5 And n = 5 Then MsgBox(您要查找的元素不存在) Else Msg

28、Box(您要查找的元素在第 & m + 1 & 行,第 & n + 1 & 列) End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click End End SubEnd Classsy4.3 杨辉三角形Public Class Form1 Dim a%(1, 1), i%, j%, n% Private Sub Button1_Click(ByVal sender As System.Object, ByVa

29、l e As System.EventArgs) Handles Button1.Click Dim a%(1, 1), i%, j%, n% n = Val(TextBox1.Text) ReDim a%(n, n) For i = 1 To n a(i, 1) = 1 a(i, i) = 1 Next i For i = 3 To n For j = 1 To i a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next Next Label1.Text = For i = 1 To n For j = 1 To i Label1.Text &= Space

30、(6 - Len(Str(a(i, j) & a(i, j) Next Label1.Text &= vbCrLf Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim a%(1, 1), i%, j%, n% n = Val(TextBox1.Text) ReDim a%(n, n) For i = 1 To n a(i, 1) = 1 a(i, i) = 1 Next i For i = 3 To n For j = 1 To i a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next Next