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