• 回答数

    7

  • 浏览数

    259

Kiwi琪薇
首页 > 广东专升本 > vb程序设计自考真题广东省

7个回答 默认排序
  • 默认排序
  • 按时间排序

半半童学

已采纳
(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

303 评论(12)

喵喵:小妹

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

347 评论(11)

C罗C梅西梅

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

210 评论(10)

shh小辣椒

(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

232 评论(11)

123456789小姐

新建工程:工程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

119 评论(14)

小不点yys

第一题: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

249 评论(9)

老余popopxm

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

85 评论(11)

相关问答

2025湖北自考上岸资料包

限时免费领取!

已帮助10w+意向学历提升用户成功上岸