广东省自考vb程序设计真题

（1）A（3）C（4）B（5）A（6）B（7）B（8）C（9）A（10）B（11）D（12）B（13）B（14 ）B 填写的空白 1（2）11 2（4）公共（5）私人 3（6）5 * X * X-3 * X -2 * SIN（A）/ 3 （8）打开“C：\ xt”输出为＃1

(1)A(3)C(4)B(5)A(6)B(7)B(8)C(9)A(10)B(11)D(12)B(13)B(14)B填空题（2）(4)public（5）(6)5*x*x-3*x-2*sin(a)/3(8)open "c:\xt" for output as #1

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

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

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

B show只能显示窗体ACCBBCBC 2

三print语句的输出结果是GFEDCBA

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