18广东自考vb程序设计卷

写程序最忌讳使用没有意义的字母做变量，这样会让程序可读性变得很差。使用迭代算法要千万注意迭代是否收敛，可以在循环体内部打印退出条件的值是否符合预期。看不懂。T_T

问题太多了，没那么多时间，路过了！！！

Private Sub Command1_Click()    Dim price As Double    If MCText = "90号" Then price = 3 * CLng(MTText)    If MCText = "95号" Then price = 45 * CLng(MTText)    If MCText = "100号" Then price = 6 * CLng(MTText)    MTText = priceEnd SubPrivate Sub Form_Load()    MCAddItem ("90号")    MCAddItem ("95号")    MCAddItem ("100号")        MCText = "90号"    MTText = 0    MTText = ""End Sub

分数这么少，你想谁会回答你？！你到底有没有用过VB？！这么简单的题都不会？！

新建工程：工程1；新建一下ComboBox控件：Combo1,并将属性Style改为2；新建五个Label:Label1，Label2，Label3,Label4，Label5;新建两个Text文本框:Text1,T新建一个CommandButton按钮:Command1;以上的相关控件不要改名字，位置也不用设定，程序会自动设定好。将下面的代码COPY进去就行了Private Sub Form_Load()    FCaption = "加油站计费程序"    FWidth = 3800    FHeight = 3300    LCaption = "种类"    LMove 900, 200    LAutoSize = 1    With Combo1        AddItem ("90号")        AddItem ("95号")        AddItem ("100号")        Move 500, 500, 1200    End With    LCaption = "单价(元/升)"    LMove 2000, 200    LAutoSize = 1    LCaption = "0"    LMove 2200, 550    LWidth = 500        LCaption = "数量"    LMove 900, 1000    LAutoSize = 1        TMove 500, 1300, 1200, 300    TText = 0    TAlignment = 1        LCaption = "总价(元)"    LMove 2100, 1000    LAutoSize = 1        TMove 1900, 1300, 1200, 300    TText = 0    TEnabled = False    TAlignment = 1        CCaption = "计算"    CMove 1320, 1920, 1095, 375End SubPrivate Sub Combo1_Click()    Select Case CText        Case "90号": LCaption = "30"        Case "95号": LCaption = "45"        Case "100号": LCaption = "60"    End Select    TSetFocus    TSelLength = Len(TText)End SubPrivate Sub Command1_Click()    On Error Resume Next    TText = Format(Val(TText) * Val(LCaption), "00")End Sub