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填空题（2）(4)public（5）(6)5*x*x-3*x-2*sin(a)/3(8)open "c:\xt" for output as #1

VB啊题目太麻烦。恕我很懒。。根据我自己的学习经验，VB编程（或者是说所有的编程）有几个阶段1，打字阶段。按照书本输入代码，不过依然很难完全输入正确。。2，语法学习阶段。开始学习各种语句，if else ， when ，for3，理解代码阶段。慢慢能理解别人编写的简单函数。4，代码编写阶段。开始编写些简单的代码，经常漏标点符号，觉得代码很难，语法很难。并且不会使用debug功能，不理解编译器提供的提示。5，进阶阶段。简单代码很容易就搞定了，debug会了，编译器提供的信息也理解了。觉得写语法很简单，难点在算法。7，窗口编写阶段。开始研究比较高级的窗口交互，信息输入的问题。到最后的阶段，你就成为一个合格的入门程序员了。我不知道你在哪个阶段了，慢慢来吧，一口吃不成个大胖子。

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）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；新建一下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

第一题：Private Sub Command2_Click()n = 100For i = 1 To 10Sum = Sum + nn = n / 2Next iPrint "第十次落地共经过：" & Sum & "米"Print "第十次反弹高度是：" & n & "米"End Sub第二题：我想到了在给你说第三题：Private Sub Command3_Click()n = 1For i = 7 To 1 Step -1Sum = Sum + nn = (n + 1) * 2Next iPrint "小猴那天共摘下" & Sum & "个桃子"End Sub

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