《程序设计》实验参考答案
实验1-3
Dim n% = 0
Private Sub Form1_Click(……) Handles Me.Click
n = n + 1
TextBox1.Text = n
End Sub
实验1-4
Private Sub Form1_Load(……) Handles MyBase.Load
Me.Text = "装入窗体"
Me.BackgroundImage = Image.FromFile("tongji.bmp") '当前目录为Bin的Debug
Me.Cursor = New Cursor("key04.ico")
Me.Icon = New Icon("MISC34.ICO")
End Sub
Private Sub Form1_Click(……) Handles MyBase.Click
Me.Text = "单击窗体"
' Me.Size = New Size(264 + 10, 256 + 30) '图片大小为×
Me.BackgroundImage = Image.FromFile("tongji-2.bmp") End Sub
Private Sub Form1_DoubleClick(……) Handles
MyBase.DoubleClick
Me.Text = "双击窗体"
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.BackgroundImage = Nothing
Me.Cursor = Cursors.Default
End Sub
Private Sub Form1_Resize(……) Handles Me.Resize Me.Size = New Size(264 + 10, 256 + 30)
Me.FormBorderStyle =
Windows.Forms.FormBorderStyle.Fixed3D
End Sub
实验1-5
Private Sub Button1_Click(……) Handles Button1.Click TextBox1.Font = New Font("隶书", 20)
End Sub
Private Sub Button2_Click(……) Handles Button2.Click TextBox2.Text = TextBox1.SelectedText
TextBox2.Font = TextBox1.Font
End Sub
实验1-6
Dim w%, h%
Private Sub Form1_Load(……) Handles Me.Load
w = PictureBox1.Width
h = PictureBox1.Height
End Sub
Private Sub Button2_Click(……) Handles Button2.Click PictureBox1.Width = w
PictureBox1.Height = h
End Sub
Private Sub Button1_Click(……) Handles Button1.Click, Button1.Click
PictureBox1.Width = PictureBox1.Width / 2
PictureBox1.Height = PictureBox1.Height / 2 End Sub
实验2-1
Private Sub Button1_Click(……) Handles Button1.Click TextBox1.Text = Int(Rnd() * 10 + 0)
TextBox2.Text = Int(Rnd() * 90 + 10)
TextBox3.Text = Int(Rnd() * (999 - 100 + 1) + 100) End Sub
Private Sub Button2_Click(……) Handles Button2.Click Dim avg!
avg = (Val(TextBox1.Text) + Val(TextBox2.Text) +
Val(TextBox3.Text)) / 3
Label2.Text = "三个数的平均值为：" & Format(avg, "0.00") End Sub
Private Sub Button3_Click(……) Handles Button3.Click
End
End Sub
实验2-4
Private Sub Button1_Click(……) Handles Button1.Click
Dim n%
n = Val(InputBox("输入个数"))
Label2.Text = Button1.Text & "函数的结果"
TextBox2.Text = StrDup(n, TextBox1.Text)
End Sub
Private Sub Button2_Click(……) Handles Button2.Click
Label2.Text = Button2.Text & "函数的结果"
TextBox2.Text = UCase(TextBox1.Text)
End Sub
Private Sub Button3_Click(……) Handles Button3.Click
Label2.Text = Button3.Text & "函数的结果"
TextBox2.Text = LCase(TextBox1.Text)
End Sub
Private Sub Button4_Click(……) Handles Button4.Click
