VBNET常用技巧代码.doc

单元格相互计算 .Focused Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged If TextBox1.Focused Then TextBox2.Text = Val(TextBox1.Text) * 3 ElseIf TextBox2.Focused Then TextBox1.Text = Val(TextBox2.Text) / 3 End If End Sub 对比两个数据的字符大小 StrComp(string1,string2) Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Label4.Text = StrComp(TextBox5.Text, TextBox6.Text) string1 string2，返回-1 string1 = string2，返回0 string1 string2，返回1 End Sub 对应匹配 While….End While Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim city() As String = {北京, 上海, 天津, 广州, 哈尔滨, 长春, 沈阳, 西安, 兰州, 银川, 太原} Dim no() As String = {010, 021, 022, 020, 0451, 0431, 024, 029, 0931, 0951, 0351} Dim i% = 0 While (i UBound(no) And StrComp(no(i), TextBox7.Text) 0) i = i + 1 End While If StrComp(no(i), TextBox7.Text) = 0 Then Label5.Text = 对应城市为： city(i) Else Label5.Text = 没有所对应城市 End If End Sub 随机数生成、在原基础扩增数组、逐行扩增文本显示 Int(Rnd() * 80) + 20、ReDim Preserve score(n + 1)、mystr = mystr + String(i) Chr(13) Chr(10) Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim n%, score!(), i%, sum! Dim mystr As String = n = Val(TextBox8.Text) ReDim score(n - 1) For i = 0 To n - 1 score(i) = Int(Rnd() * 80) + 20 sum = sum + score(i) Next ReDim Preserve score(n + 1) score(n) = sum / n score(n)平均数计算，score(n+1)计算超过平均数的个数 For i = 0 To n - 1 If score(i) score(n) Then score(n + 1) = score(n + 1) + 1 End If Next For i = 0 To n - 1