vb程序设计自考广州题

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

1 c,2 c,3 a,4 a,其他没时间,下班了

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

PrivateSubCommand1_Click()IfLVisible=TrueThenLVisible=FalseElseLVisible=TrueEndIfEndSubPrivateSubForm_Load()LCaption="淮南联合大学你好"EndSub

我来个另类一点的，无语了，老说我和别人的相似，又不是抄的，这是作甚截图给你

B show只能显示窗体ACCBBCBC 2