VB实验参考案.docVIP

《VB.NET程序设计》实验参考答案 实验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!