VB高手进，考试急用（高分）

谁能帮我做个简单的vb 考试急用 谢谢~

这是个小程序，输入规定格式的时间，计算中间经过多少小时，你还可以再发展深入些。
代码已发到你邮箱。你看看吧

二、填空题
26、用语句dim A(-3 to 5) as integer定义的数组的元素个数是____9_____。
知识点： 数组 参考：P172
27、刚被定义尚未赋值的整型变量的值为______0______。
知识点：整型变量 参考：P49
28、如果intTemp是整型变量，则执行intTemp=5+”8”语句之后，intTemp的值为_____13_______。
29、判断变量X是不是能被2、5同时整除，则Visual Basic的逻辑表达式可写为__ ((X Mod 2) = 0) And ((X mod 5) = 0) __。
知识点： 逻辑表达式 参考：P69

30、以下语句的输出结果是：____12345.68____
PrintInt(12345.6789*100+0.5)/100
知识点：算数运算 参考：P78

三、程序阅读题
31、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
PrivateSubForm_Click()
Text1.Text="VB程序设计"
End Sub
Private SubText1_Change()
Picture1.Print"VBProgramming"
End Sub
程序运行后，单击窗体，在文本框中显示的内容是___VB程序设计___，而在图片框中显示的内容是__VBProgramming_____
知识点：sub过程 参考：P204
32、下面的过程被执行后，假定在文本框txt1中输入的值是8，窗体上文本框txt2中显示的是____10______。
Private Sub Command1_Click()
Dim int1 As Integer
int1 = CInt(txt1.Text)
Select Case int1
Case Is = 0
txt2.Text = 0
Case 1 To 10
txt2.Text = 10
Case Is > 10
txt2.Text = 11
Case Else
txt2.Text = -1
End Select
End Sub
知识点：select case 多分支选择语句 参考：P148

33、设有如下程序
Private Sub Form_Click()
Dima As Integer，sAsInteger
n=8
s=0
Do
s=s+n
n=n-1
Loop Whilen>0
Prints
End Sub
以上程序的功能是__计算 1+2+3+4+5+6+7+8 _，程序运行后，单击窗体，输出结果为____36_____
知识点：loop while do 循环语句 参考：P160
34、下面的程序被执行后，窗体上文本框Text1中显示的是____4____。
Private Sub Command1_Click()
Dim int1 As Integer, int2 As Integer
int1 = 1
int2 = 0
Do While int1 < 15
int2 = int1 + int2
int1 = int1 * (int1 + 2)
Loop
Text1.Text = int2
End Sub
知识点：loop while do 循环语句 参考：P160

35、阅读下面程序，当单击窗体之后，窗体上输出的是__3____35___。
Private Sub Form_Click()
Dim i As Integer, j As Integer
j = 1
For i = 1 To 8 Step 2
j = j * i
If j >= 10 Then
Exit For
Else
j = j + 1
End If
Next i
Print i, j
End Sub

'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
    Dim a As String
    a = InputBox("请输入成绩：")
    If Not IsNumeric(a) Then
        MsgBox "输入有误！"
        Exit Sub
    Else
        Cls
        Select Case a
        Case Is > 90: MsgBox "A"
        Case Is > 80: MsgBox "B"
        Case Is > 70: MsgBox "C"
        Case Is > 60: MsgBox "D"
        Case Else
            MsgBox "E"
        End Select
    End If
End Sub

select case pts
case is <60
level="E"
case 60 to 69
level="D"
case 70 to 79
level="C"
case 80 to 89
level="B"
case is >90
level="A"
end select

楼上的回答差不多了吧，怎么不给分啊

---

潍城区18648026102： 【高分急求】VB考试选择试题!高手请进.？
简窦梅格： 1.VisualBasic是一种(A:过程式)程序设计语言. 2.(D:Timer )对象不具有Caption属性. 3.可以用作其它控件容器的控件有(C:窗体控件,框架控件,图片框控件). 4.INT(100*RND(1))产生的随机整数的闭区间是(A:[0,99] ). 5.要使标签能够显...

潍城区18648026102： 急!!vb考试中!!简单!!高手进~~ - ？
简窦梅格： Private Sub Command1_Click() Dim k As Integer Randomize Do k = Int(Rnd * 90) + 10 Debug.Print k; Loop While (k Mod 110) End Sub

潍城区18648026102： 在vb中有这样的题目(高手进)急!!! - ？
简窦梅格： 的时候; ＂trUE＂ &quot,转换成boolean类型.又比如,dim a as integer,a的值就是false a=＂afbc＂的时候,就会提示类型不匹配 其实VB在给变量赋值的时候BD都对得不能再对,A的结果在真实运算的时候也是对的 dim a as boolean a=＂True＂faLSE＂这些,它会自动进行转换.比如上例中. 会将字符串 ＂的时候: a=1.2 ;True&quot,a的值就是true a=＂False&quot

潍城区18648026102： VB高手请进,高分？
简窦梅格： 添加一个Timer 加入以下代码 Private Sub Form_Load() Me.ScaleMode = 3 Me.AutoRedraw = True Timer1.Interval = 100End Sub Static Sub Paint()Const PI = 3.14169265 Dim X As Single Dim Y As Single Dim R As SingleDim x1 As Single Dim...

潍城区18648026102： 求VB高手解几道题 后天考试 急求!!!!!!!!!？
简窦梅格： #include <stdio.h> #include <math.h> void main() { int a,b,c,s; int sum; for(a=1;a<=9;a++) for(b=1;b<=9;b++) for(c=1;c<=9;c++) { s=pow((float)a,3)+pow((float)b,3)+pow((float)c,3); sum=100*a+10*b+c; if(s==sum) printf(＂%d \n＂,sum); } } 至于换行 可以用 if(c%5==0) printf(＂\n＂)来完成 以上供参考 希望你可以考出个好成绩.

潍城区18648026102： VB编程高手进..大学学科..急...谢了？
简窦梅格： 打开VB后,首先从工具箱中在窗体上添加一个PictureBox(图片框)控件(名称为Picture1),随后添加如下代码: Private Sub Form_Activate() Dim add_ As String add_ = InputBox(＂请输入要显示的图片名及其所在路径:＂, ＂图片＂) Picture1.Picture = LoadPicture(add_) End Sub

潍城区18648026102： VB 高手进! 急!半天内要!OK给50分. - ？
简窦梅格： Private Sub Form_Click() Dim x1 As Integer, y1 As Integer Dim x2 As Integer, y2 As Integer Dim x As Single, y As Single Dim Color As Integer Color = Int(Rnd * 15 + 1) x = 2500 '中心坐标 y = 2000 '中心坐标 x2 = Int(Rnd * 1500 + 500) y2 = Int(Rnd * ...

潍城区18648026102： VB编程共12题,高手请进,做完后有赏分 - ？
简窦梅格： 唉,帮帮你吧,控件自己画.1) private sub form_load() list1.additem ＂Item1＂ list1.additem ＂Item2＂ list1.additem ＂Item3＂ list1.additem ＂Item4＂ end sub private C1_click() text1.text1=text1.text+list1.text+chr(13)+chr(10) end sub2) private Cmd...

潍城区18648026102： 求vb高手帮忙~~考试中~~急需答案~~ - ？
简窦梅格： Private Sub Command1_Click() n = InputBox(＂请输入n＂) s = 0 For i = 1 To 2 * n - 1 s = s + jiechen(i) Next i Print s End Sub Private Function jiechen(a) As Integer x = 1 For i = 1 To a x = x * i Next i jiechen = x End Function

潍城区18648026102： VB编程题目,高手请进~急急急？
简窦梅格： For i = 2000 To 3000 If i Mod 4 = 0 And i Mod 100 <> 0 Then Print i; n = n + 1 If n Mod 5 = 0 Then Print End If Next i Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim n As Integer...