VB实验参考问题详解.doc

《VB实验参考问题详解.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、《VB.NET程序设计》实验参考答案实验1-3Dimn%=0PrivateSubForm1_Click(……)HandlesMe.Clickn=n+1TextBox1.Text=nEndSub实验1-4PrivateSubForm1_Load(……)HandlesMyBase.LoadMe.Text="装入窗体"Me.BackgroundImage=Image.FromFile("tongji.bmp")'当前目录为Bin的DebugMe.Cursor=NewCursor("key04.ico")Me.Icon=NewIcon("MISC34.ICO")EndSubPr

2、ivateSubForm1_Click(……)HandlesMyBase.ClickMe.Text="单击窗体"'Me.Size=NewSize(264+10,256+30)'图片大小为×Me.BackgroundImage=Image.FromFile("tongji-2.bmp")EndSubPrivateSubForm1_DoubleClick(……)HandlesMyBase.DoubleClickMe.Text="双击窗体"Me.MaximizeBox=FalseMe.MinimizeBox=FalseMe.BackgroundImage=NothingMe.

3、Cursor=Cursors.DefaultEndSubPrivateSubForm1_Resize(……)HandlesMe.ResizeMe.Size=NewSize(264+10,256+30)Me.FormBorderStyle=Windows.Forms.FormBorderStyle.Fixed3DEndSub实验1-5PrivateSubButton1_Click(……)HandlesButton1.ClickTextBox1.Font=NewFont("隶书",20)EndSubPrivateSubButton2_Click(……)HandlesButt

4、on2.ClickTextBox2.Text=TextBox1.SelectedTextTextBox2.Font=TextBox1.FontEndSub实验1-6Dimw%,h%PrivateSubForm1_Load(……)HandlesMe.Loadw=PictureBox1.Widthh=PictureBox1.HeightEndSubPrivateSubButton2_Click(……)HandlesButton2.ClickPictureBox1.Width=wPictureBox1.Height=hEndSubPrivateSubButton1_Click

5、(……)HandlesButton1.Click,Button1.ClickPictureBox1.Width=PictureBox1.Width/2PictureBox1.Height=PictureBox1.Height/2EndSub实验2-1PrivateSubButton1_Click(……)HandlesButton1.ClickTextBox1.Text=Int(Rnd()*10+0)TextBox2.Text=Int(Rnd()*90+10)TextBox3.Text=Int(Rnd()*(999-100+1)+100)EndSubPrivateSubB

6、utton2_Click(……)HandlesButton2.ClickDimavg!avg=(Val(TextBox1.Text)+Val(TextBox2.Text)+Val(TextBox3.Text))/3Label2.Text="三个数的平均值为："&Format(avg,"0.00")EndSubPrivateSubButton3_Click(……)HandlesButton3.ClickEndEndSub实验2-4PrivateSubButton1_Click(……)HandlesButton1.ClickDimn%n=Val(InputBox("输入个数

7、"))Label2.Text=Button1.Text&"函数的结果"TextBox2.Text=StrDup(n,TextBox1.Text)EndSubPrivateSubButton2_Click(……)HandlesButton2.ClickLabel2.Text=Button2.Text&"函数的结果"TextBox2.Text=UCase(TextBox1.Text)EndSubPrivateSubButton3_Click(……)HandlesButton3.ClickLabel2.Text=Button3.Text&"函数