ǰλãҳ > vb程序题库选择?- 百度文库
103ǰ Option Base 1鹲У D Ԫء A15 B16 C13 Dȷ
104 Dim a(15) As Integer鹲У B Ԫء A15 B16 C13 Dȷ
105һ˵ΪDim a(51 to 5) As Integer鹲У C Ԫء A25 B36 C30 Dȷ
106VBУĬϵ±½0ʼҪͨν綨½磬Ӧʹã A AOption Base BOption Explicit
CExplicit DLow Base
107䣬ȷ( B ) ADim a[3, 4] as Integer BDim a(3, 4) as Integer CDim a(n, n) as Integer DDim a[3][4) as Integer
108һݵֵһҪ A Aͬ Bͬ C D
109±ȡıǣ A Aֵ Bַ C Dɱ
110Dim a(0 to 3, -2 to 2,0 to 5)УaԪصĸΪ( A ) A120 B75 C60
D13
111ٶµSuḅ Sub S (x As Single, y As Single) t = x x = t / y y = t Mod y End Sub ڴһťȻд¼̣ Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b = 4 S a, b Print a, b End Sub ʱťõĽ D A5 4 B1 1 C1.25 4 D1.25 1
112·ʽı B ͨã AڴģDim BڴģPublic CڴģPrivate DڴģStatic
113ڴһťǩд¼̣ Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer
N=10: z=N+z: y=y+z: x=x+z Label1.Caption = x
Label2.Caption = y Label3.Caption = z End Sub кεťǩʾݷֱǣ A A10 10 10
B30 30 30 C30 30 10 D10 30 30
114д( D )
A̱ΪStaticͣùеľֲStatic
BSubвǶSub CSubпǶSub
D¼̿ͨùһû
115ڴһťCommand1һıText1Ȼд ¼̣
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer x = 5 y = 7 z = 0
Text1.Text = \Call p1(x, y, z) Text1.Text = Str(z) End Sub
Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)
92ƪĵ