VB开发基础文档.pptVIP

Company Logo Do total=total+pnum pnum=pnum+1 Loop until pnum5 Do until pnum5 total=total+pnum pnum=pnum+1 Loop Do While pnum 6 pnum = pnum + 1 total = total + pnum Loop Do pnum = pnum + 1 total = total + pnum Loop While pnum 6 Company Logo While…Wend循环语句是从旧的Basic 语言中保留下来的， 它同Do…While循环结构功能相同，但后者功能更强些。故在 编程一般不用这种循环。 实例： Dim Counter Counter=0 While Counter 20 Counter=Counter+1 Wend Msgbox counter Company Logo 1.4.6 过程控制—循环结构 Company Logo 1.4.6 过程控制—嵌套控制结构 Company Logo Income=InputBox(“enter you income”) If income 0 Then if income 2000 Then MsgBox “you will pay taxes this year” else MsgBox”you won’t pay taxes this year” end if Else MsgBox”bummer” End if Company Logo 应用实例—评分程序 Function level(score As Single) As String If score 0 Or score 100 Then level = 输入为无效数字！ ElseIf score 60 Then level = 成绩为：不及格 ElseIf score 70 Then level = 成绩为：及格 ElseIf score 85 Then level = 成绩为：良好 Else level = 成绩为：优秀 End If End Function Private Sub Command1_Click() Dim score As Single Dim levelchengji As String score = CSng(Text1.Text) levelchangji = level(score) MsgBox levelchangji End Sub Company Logo 总结 Company Logo Company Logo 实例： 你只闻到我的香水，却没看到我的汗水。 你否定我的现在，我决定我的未来！ 你嘲笑我一无所有，不配去爱，我可怜你总是等待。 你可以轻视我们的年轻，我们会证明这是谁的时代。 梦想是注定孤独的旅行，路上少不了质疑和嘲笑， 但那又怎样？ 哪怕遍体鳞伤，也要活得漂亮！ 你只闻到我的香水，却没看到我的汗水。 你否定我的现在，我决定我的未来！ 你嘲笑我一无所有，不配去爱，我可怜你总是等待。 你可以轻视我们的年轻，我们会证明这是谁的时代。 梦想是注定孤独的旅行，路上少不了质疑和嘲笑， 但那又怎样？ 哪怕遍体鳞伤，也要活得漂亮！ * Company Logo 对象变量 Dim Obj1 As CommandButton Dim Obj2 As TextBox Dim Obj3 As Object Set Obj1=Command1 Set Obj2=TextBox1 Set Obj3=Command1 Obj1.Caption=“new caption” Obj2.FontBold=True Company Logo 其他特殊数据 Empty不同于空字符串（“”），用IsEmpty函数可以判断变量是否进行了初始化。 If IsEmpty(var) Then MsgBox”变量还没有初始化” End If Empty适用于数字，字符串和日期变量。 如：Var=Empty Company Logo Null在数据库中常表示字段中没有数据或者对象变量没有赋值，Null不同于Empty值，一般数据类型中不会有Null值，除非用户强制定义。 如：Val=Null IsNull函数可以检查数据库中的某个字段中是否有有效的数值。 如：If Not IsNull(varF