你得先补基础。
创新互联，专注为中小企业提供官网建设、营销型网站制作、成都响应式网站建设、展示型网站制作、成都网站制作等服务，帮助中小企业通过网站体现价值、有效益。帮助企业快速建站、解决网站建设与网站营销推广问题。
最好去学校，找计算机系的学生，抄下专业专业课程和对应的课本（说不定顺便能讨些旧课本），卖齐这些课本（一般学校里面就有书店）慢慢学。
（以下课程不全）
至少需要读一遍的：计算机导论、程序设计基础、软件工程、编译原理
重点学习的：算法与数据结构、面向对象程序设计
还有VB.Net需要一定的基础，建议先从 C++ 或 VB（版本6.0）入门
t= min : min = i : min = i
和t= min
min = i
min = i一个意思
cstr是一个把任意类型转成字符串的函数。
比起Str来说，转换时不会在头上加空格
rnd()随机函数 ≥0 ＜1 就按这算，
Int(10+89*Rnd())+1 先去整（Int）再加一，11到100 不包含100 包含1 1.
Xor 抑或 T XOR F = T T XOR T =F
一真一假为真 否者为假
给的分少点吧！！！
Public Class Form1
'这是第二题的源码。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = TextBox1.Text
' 输入的成绩在0-100之间，而且只能输入数字
If IsNumeric(s) And s = 0 And s = 100 Then
Dim scord As Single = s
Select Case scord
Case Is = 90
Label2.Text = "优秀"
Case Is = 80
Label2.Text = "良好"
Case Is = 70
Label2.Text = "中等"
Case Is = 60
Label2.Text = "及格"
Case Else
Label2.Text = "不及格"
End Select
Else
Label2.Text = "输入的分数不合法，请重新输入！"
End If
End Sub
'第三题的源码
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim n As UShort = 1
Dim sum As UShort = 0
While (True)
sum += n
If sum 200 Then
Label3.Text = "满足条件的n的最小值是： " n
Exit While
Else
n += 1
End If
End While
End Sub
End Class
事实上是会停走的，只有点的时候才会更新
有一个叫Timer的控件，可以定时执行某一段代码，可以让时间连续走起来
