程序设计实验指导答案代码.docVIP

实验一 dim a20 as intergers10 as interger private sub button1_click.....handlesbutton1.click dim ij textbox1.textquotquot for i1 to 20 aiintrnd101 textbox1.textampaiampspace6-lenai jai10 select casej case 0to 5 s5s51 case 9to 10 s9s91 case 6to 8 sjsj1 end select next i end sub private sub button2_click...handles button2.click textbox2.textquot0-59:quotamps5ampvbcrlf textbox2.textquot60-69:quotamps6ampvbcrlf textbox2.textquot70-79:quotamps7ampvbcrlf textbox2.textquot80-89:quotamps8ampvbcrlf textbox2.textquot90-100:quotamps9ampvbcrlf buton1 dim lamp100 dim ijn nvaltextbox1.text for i1to n lampi0 next for i2 to n for ji to n if j mod i0 then if lampj1 then lampj0 else lampj1 end if end if next next 输出 for j1 to n if lampj1 then label1.textquot第quotampsrjampquot盏灯亮quotampvbnewline end if next end sub textbox1. if not isnumerictextbox1.textor valtextbox1.textlt0 then msgboxquot请输入正整数quot textbox1.textquotquot textbox1.text.focus end if end sub 实验二 SY2.1 Private Sub Button2_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button2.Click Dim f c c ValTextBox2.Text f 9 / 5 c 32 TextBox1.Text Formatf quot.quot End Sub Sy2.2 Public Class Form1 Dim RMB As Integer Dim Change Dol As Double Private Sub Button1_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button1.Click TextBox1.Text quotquot TextBox2.Text quotquot TextBox3.Text quotquot End Sub Private Sub Button4_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button4.Click End End Sub Private Sub Button2_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button2.Click RMB ValTextBox1.Text Change ValTextBox2.Text Dol RMB / Change TextBox3.Text FormatDol quot.quot End Sub Private Sub Button3_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button3.Click Dol ValTextBox3.Text Change ValTextBox2.Text RMB Dol Change TextBox1.Text FormatRMB quotquot End Sub End Class Sy2.3 Public Class Form1 Dim PI 3.1415926 Dim Square Circle R