重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你得先补基础。
创新互联,专注为中小企业提供官网建设、营销型网站制作、成都响应式网站建设、展示型网站制作、成都网站制作等服务,帮助中小企业通过网站体现价值、有效益。帮助企业快速建站、解决网站建设与网站营销推广问题。
最好去学校,找计算机系的学生,抄下专业专业课程和对应的课本(说不定顺便能讨些旧课本),卖齐这些课本(一般学校里面就有书店)慢慢学。
(以下课程不全)
至少需要读一遍的:计算机导论、程序设计基础、软件工程、编译原理
重点学习的:算法与数据结构、面向对象程序设计
还有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的控件,可以定时执行某一段代码,可以让时间连续走起来