13518219792
1、do
站在用户的角度思考问题，与客户深入沟通，找到昭通网站设计与昭通网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站制作、网站设计、企业官网、英文网站、手机端网站、网站推广、域名注册、网络空间、企业邮箱。业务覆盖昭通地区。
while...loop：当条件为True时循环,，在进入循环之前检查条件。
2、do...loop
while:当条件为True循环，在循环至少运行一次后检查条件。
3、do
until...loop:当条件为false循环，在进入循环之前检查条件。
4、do..
loop
until:当条件为false循环，在循环至少运行一次后检查条件。
5、While...Wend:
当条件为Ture时循环。
6、for....next:指定循环次数，使用计数器重复运行语句。
DT.Rows.ToString未必是指结果集中的所有数据，也许只是一行中所有的，或是一列中所有的
保险起见，可以一格格枚举
dim a as boolean=true
Dim row As DataRow
For Each row In DT.Rows
Dim column As DataColumn
For Each column In DT.Columns
if row(column).contains("Agree") then a=false
Next column
Next row
if a then
Me.rblAgReject.Items(0).Enabled = False
else
Me.rblAgReject.Items(0).Enabled = True
end if
Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言
Private Sub Command1_Click()
Dim fs As Single
Dim cj As String
fs = InputBox("请输入分数", "分数转化")
If fs = 100 Then
If fs = 90 Then
cj = "A等"
ElseIf fs = 80 Then
cj = "B等"
ElseIf fs = 70 Then
cj = "C等"
ElseIf fs = 60 Then
cj = "E等"
Else
cj = "D等"
End If
End If
Print cj
End Sub
Private Sub Command2_Click()
Dim fs As Single
Dim cj As String
lp:
fs = InputBox("请输入分数", "分数转化")
If fs 100 Or fs 0 Then
MsgBox "输入分数有误，请重新输入", vbOKOnly, "错误提示"
GoTo lp
End If
Select Case fs
Case 90 To 100
cj = "优"
Case 80 To 89
cj = "良"
Case 70 To 79
cj = "中"
Case 60 To 69
cj = "及格"
Case Is 60
cj = "不及格"
End Select
Print "所得成绩为", cj
End Sub
