82) End If
83) If shuchu.Text = "0" Then 84) shuchu.Text = 2 85) End If 86) jinzhi() 87) End Sub 88)
89) Protected Sub three_Click(ByVal sender As Object, ByVal e As
System.EventArgs) '同上……
90) If shuchu.Text <> "0" Then 91) shuchu.Text = shuchu.Text &; 3 92) End If
93) If shuchu.Text = "0" Then 94) shuchu.Text = 3 95) End If 96) jinzhi() 97) End Sub 98)
99) Protected Sub four_Click(ByVal sender As Object, ByVal e As
System.EventArgs) '同上…… 100) 101) 102) 103) 104) 105) 106) 107) 108) 109) 110) 111) 112) 113) 114) 115) 116) 117) 118) 119)
If shuchu.Text <> "0" Then shuchu.Text = shuchu.Text &; 4 End If
If shuchu.Text = "0" Then shuchu.Text = 4 End If jinzhi() End Sub
Protected Sub five_Click(ByVal sender As Object, ByVal e As If shuchu.Text <> "0" Then shuchu.Text = shuchu.Text &; 5 End If
If shuchu.Text = "0" Then shuchu.Text = 5 End If jinzhi() End Sub
Protected Sub six_Click(ByVal sender As Object, ByVal e As
System.EventArgs) '同上……
System.EventArgs) '同上……
7 / 18
Shadow 2011/12/07
网站脚本技术课程设计
九江职业技术
120) 121) 122) 123) 124) 125) 126) 127) 128) 129) 130) 131) 132) 133) 134) 135) 136) 137) 138) 139) 140) 141) 142) 143) 144) 145) 146) 147) 148) 149) 150) 151) 152) 153) 154) 155) 156) 157) 158) 159)
If shuchu.Text <> "0" Then shuchu.Text = shuchu.Text &; 6 End If
If shuchu.Text = "0" Then shuchu.Text = 6 End If jinzhi() End Sub
Protected Sub seven_Click(ByVal sender As Object, ByVal e As If shuchu.Text <> "0" Then shuchu.Text = shuchu.Text &; 7 End If
If shuchu.Text = "0" Then shuchu.Text = 7 End If jinzhi() End Sub
Protected Sub eight_Click(ByVal sender As Object, ByVal e As If shuchu.Text <> "0" Then shuchu.Text = shuchu.Text &; 8 End If
If shuchu.Text = "0" Then shuchu.Text = 8 End If jinzhi() End Sub
Protected Sub nine_Click(ByVal sender As Object, ByVal e As If shuchu.Text <> "0" Then shuchu.Text = shuchu