çåå¨ç»ææ¯æ____ã
Aãåå¨å¨å¤åä¸çæ°æ®
Bãæ°æ®æå çåå¨ç©ºé´
Cãæ°æ®å¨è®¡ç®æºä¸ç顺åºåå¨æ¹å¼
Dãæ°æ®çé»è¾ç»æå¨è®¡ç®æºä¸ç表示
2.ä¸åå
³äºæ çæè¿°ä¸é误çæ¯ï¼____ã
Aãæ æ¯å
è¿ååºç线æ§è¡¨
Bãæ åªè½é¡ºåºåå¨
Cãæ å
·æè®°å¿ä½ç¨
Dã对æ çæå
¥ä¸å é¤æä½ä¸ï¼ä¸éè¦æ¹åæ åºæé
3.对äºé¿åº¦ä¸ºnç线æ§è¡¨ï¼å¨æåæ
åµä¸ï¼ä¸ååæåºæ³æ对åºçæ¯è¾æ¬¡æ°ä¸æ£ç¡®çæ¯____ã
Aãå泡æåºä¸ºn/2
Bãå泡æåºä¸ºn
Cãå¿«éæåºä¸ºn
Dãå¿«éæåºä¸ºn(n-1)/2
4.对é¿åº¦ä¸ºnç线æ§è¡¨è¿è¡é¡ºåºæ¥æ¾ï¼å¨æåæ
åµä¸æéè¦çæ¯è¾æ¬¡æ°ä¸º____ã
Aãlog2n
Bãn/2
Cãn
Dãn+1
5.ä¸å对äºçº¿æ§é¾è¡¨çæè¿°ä¸æ£ç¡®çæ¯____ã
Aãåå¨ç©ºé´ä¸ä¸å®æ¯è¿ç»ï¼ä¸åå
ç´ çåå¨é¡ºåºæ¯ä»»æç
Bãåå¨ç©ºé´ä¸ä¸å®æ¯è¿ç»ï¼ä¸å件å
ç´ ä¸å®åå¨å¨å件å
ç´ çåé¢
Cãåå¨ç©ºé´å¿
é¡»è¿ç»ï¼ä¸å件å
ç´ ä¸å®åå¨å¨å件å
ç´ çåé¢
Dãåå¨ç©ºé´å¿
é¡»è¿ç»ï¼ä¸åå
ç´ çåå¨é¡ºåºæ¯ä»»æç
6.ä¸å对äºè½¯ä»¶æµè¯çæè¿°ä¸æ£ç¡®çæ¯____ã
Aã软件æµè¯çç®çæ¯è¯æç¨åºæ¯å¦æ£ç¡®
Bã软件æµè¯çç®çæ¯ä½¿ç¨åºè¿è¡ç»ææ£ç¡®
Cã软件æµè¯çç®çæ¯å°½å¯è½å¤å°åç°ç¨åºä¸çé误
Dã软件æµè¯çç®çæ¯ä½¿ç¨åºç¬¦åç»æååå
7.为äºä½¿æ¨¡åå°½å¯è½ç¬ç«ï¼è¦æ±____ã
Aã模åçå
èç¨åº¦è¦å°½éé«ï¼ä¸å模åé´çè¦åç¨åº¦è¦å°½é强
Bã模åçå
èç¨åº¦è¦å°½éé«ï¼ä¸å模åé´çè¦åç¨åº¦è¦å°½éå¼±
Cã模åçå
èç¨åº¦è¦å°½éä½ï¼ä¸å模åé´çè¦åç¨åº¦è¦å°½éå¼±
Dã模åçå
èç¨åº¦è¦å°½éä½ï¼ä¸å模åé´çè¦åç¨åº¦è¦å°½é强
8.ä¸åæè¿°ä¸æ£ç¡®çæ¯____ã
Aãç¨åºå°±æ¯è½¯ä»¶
Bã软件å¼åä¸å计ç®æºç³»ç»çéå¶
Cã软件æ¢æ¯é»è¾å®ä½ï¼åæ¯ç©çå®ä½
Dã软件æ¯ç¨åºãæ°æ®ä¸ç¸å
³ææ¡£çéå
9.æ°æ®ç¬ç«æ§æ¯æ°æ®ææ¯çéè¦ç¹ç¹ä¹ä¸ãæè°æ°æ®ç¬ç«æ§æ¯æ____ã
Aãæ°æ®ä¸ç¨åºç¬ç«åæ¾
Bãä¸åçæ°æ®è¢«åæ¾å¨ä¸åçæ件ä¸
Cãä¸åçæ°æ®åªè½è¢«å¯¹åºçåºç¨ç¨åºæ使ç¨
Dã以ä¸ä¸ç§è¯´æ³é½ä¸å¯¹
10.ç¨æ å½¢ç»æ表示å®ä½ä¹é´èç³»ç模åæ¯____ã
Aãå
³ç³»æ¨¡å
Bãç½ç¶æ¨¡å
Cãå±æ¬¡æ¨¡å
Dã以ä¸ä¸ä¸ªé½æ¯
11.å¨çªä½ï¼å称为Form1ï¼ä¸ç»ä¸ä¸ªå称为Text1çææ¬æ¡åä¸ä¸ªå称为Command1çå½ä»¤æé®ï¼ç¶åç¼åä¸ä¸ªäºä»¶è¿ç¨ãç¨åºè¿è¡åï¼å¦æå¨ææ¬æ¡ä¸è¾å
¥ä¸ä¸ªå符ï¼åæå½ä»¤æé®çæ é¢è®¾ç½®ä¸ºâ计ç®æºç级èè¯âã以ä¸è½å®ç°ä¸è¿°æä½çäºä»¶è¿ç¨æ¯
AãPrivate Sub Text1_Change()
Command1.Caption = "计ç®æºç级èè¯"
End Sub
BãPrivate Sub Command1_Click()
Caption = "计ç®æºç级èè¯"
End Sub
CãPrivate Sub Form_Click()
Text1.Caption = "计ç®æºç级èè¯"
End Sub
DãPrivate Sub Command1_Click()
Text1.Text = "计ç®æºç级èè¯"
End Sub
12.设a=5ï¼b=4ï¼c=3ï¼d=2ï¼ä¸å表达å¼çå¼æ¯
3>2*b Or a=c And b<>c Or c>d
Aã1
BãTrue
CãFalse
Dã2
13.设a=âMicrosoftVisualBasicâï¼å以ä¸ä½¿åéçbå¼ä¸ºâVisualBasicâçè¯å¥æ¯
Aãb=Left(a,10)
Bãb=Mid(a,10)
Cãb=Right(a,10)
Dãb=Mid(a,11,10)
14.åå®æå¦ä¸ççªä½äºä»¶è¿ç¨ï¼
Private Sub Form_Click()
a$ = "Microsoft VisualBasic"
b$ = Right(a$, 5)
c$ = Mid(a$, 1, 9)
MsgBox a$, 34, b$, c$, 5
End Sub
ç¨åºè¿è¡åï¼åå»çªä½ï¼åå¨å¼¹åºçä¿¡æ¯æ¡çæ é¢æ ä¸æ¾ç¤ºçä¿¡æ¯æ¯
AãMicrosoft Visual
BãMicrosoft
CãBasic
Dã5
15.设a="a"ï¼b="b"ï¼c="c"ï¼d="d"ï¼æ§è¡è¯å¥x = IIf((a < b) Or (c > d), "A", "B")åï¼xçå¼ä¸º
Aã"a"
Bã"b"
Cã"B"
Dã"A"
16.为äºä½¿å½ä»¤æé®ï¼å称为Command1ï¼å³ç§»200ï¼åºä½¿ç¨çè¯å¥æ¯
AãCommand1.Move -200
BãCommand1.Move 200
CãCommand1.Left = Command1.Left + 200
DãCommand1.Left = Command1.Left - 200
17.å¨çªä½ä¸ç»ä¸ä¸ªææ¬æ¡ï¼ç¶åç¼åå¦ä¸äºä»¶è¿ç¨ï¼
Private Sub Form_Click()
x = InputBox("请è¾å
¥ä¸ä¸ªæ´æ°")
Print x + Text1.Text
End Sub
ç¨åºè¿è¡æ¶ï¼å¨ææ¬æ¡ä¸è¾å
¥456ï¼ç¶ååå»çªä½ï¼å¨è¾å
¥å¯¹è¯æ¡ä¸è¾å
¥123ï¼åå»âç¡®å®âæé®åï¼å¨çªä½ä¸æ¾ç¤ºçå
容为
Aã123
Bã456
Cã579
Dã123456
18.å¨çªä½ä¸ç»ä¸ä¸ªææ¬æ¡åä¸ä¸ªè®¡æ¶å¨æ§ä»¶ï¼å称åå«ä¸ºText1åTimer1ï¼å¨å±æ§çªå£ä¸æ计æ¶å¨çIntervalå±æ§è®¾ç½®ä¸º1000ï¼Enabledå±æ§è®¾ç½®ä¸ºFalseãç¨åºè¿è¡åï¼å¦æåå»å½ä»¤æé®ï¼åæ¯éä¸ç§ä¸å¨ææ¬æ¡ä¸æ¾ç¤ºä¸æ¬¡å½åçæ¶é´ã以ä¸æ¯å®ç°ä¸è¿°æä½çç¨åºï¼
Private Sub Command1_Click()
Timer1._______
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
å¨_____å¤åºå¡«å
¥çå
容æ¯
AãEnabled = True
BãEnabled = False
CãVisible = True
DãVisible = False
19.åå®å¨å¾çæ¡Picture1ä¸è£
å
¥ä¸ä¸ªå¾å½¢ï¼ä¸ºäºæ¸
é¤è¯¥å¾å½¢ï¼ä¸å é¤å¾çæ¡ï¼ï¼åºéç¨çæ£ç¡®æ¹æ³æ¯
Aãéæ©å¾çæ¡ï¼ç¶åæDelé®
Bãæ§è¡è¯å¥ Picture1.Picture = LoadPicture("")
Cãæ§è¡è¯å¥ Picture1.Picture = ""
Dãéæ©å¾çæ¡ï¼å¨å±æ§çªå£ä¸éæ©Pictureå±æ§æ¡ï¼ç¶åæå车é®
20.å¨çªä½ä¸ç»ä¸ä¸ªå称为List1çå表æ¡ï¼ä¸ä¸ªå称为Label1çæ ç¾ï¼å表æ¡ä¸æ¾ç¤ºè¥å¹²ä¸ªé¡¹ç®ï¼å½åå»å表æ¡ä¸æ个项ç®æ¶ï¼å¨æ ç¾ä¸æ¾ç¤ºè¢«éä¸é¡¹ç®çå称ãä¸åè½æ£ç¡®å®ç°ä¸è¿°æä½çç¨åºæ¯
AãPrivate Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
BãPrivate Sub List1_Click()
Label1.Name= List1.ListIndex
End Sub
CãPrivate Sub List1_Click()
Label1.Name = List1.Text
End Sub
DãPrivate Sub List1_Click()
Label1.Caption = List1.Text
End Sub
21.å¨çªä½ä¸ç»ä¸ä¸ªå½ä»¤æé®ï¼å
¶å称为Command1ï¼ç¶åç¼åå¦ä¸äºä»¶è¿ç¨ï¼
Private Sub Command1_Click()
Dim i As Integer, x As Integer
For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
ç¨åºè¿è¡åï¼åå»å½ä»¤æé®ï¼å
¶è¾åºç»æ为
Aã9
Bã6
Cã12
Dã15
22.å¨çªä½ä¸ç»ä¸ä¸ªå称为Command1çå½ä»¤æé®ï¼ç¶åç¼åå¦ä¸äºä»¶è¿ç¨ï¼
Private Sub Command1_Click()
c = "ABCD"
For n = 1 To 4
Print ____
Next
End Sub
ç¨åºè¿è¡åï¼åå»å½ä»¤æé®ï¼è¦æ±å¨çªä½ä¸æ¾ç¤ºå¦ä¸å
容ï¼
D
CD
BCD
ABCD
åå¨____å¤åºå¡«å
¥çå
容为
AãLeft(c,n)
BãRight(c,n)
CãMid(c,n,1)
DãMid(c,n,n)
23.æ§è¡ä»¥ä¸ç¨åºæ®µ
Dim x As Integer, i As Integer
x = 0
For i = 20 To 1 Step -2
x = x + i \ 5
Next i
åï¼xçå¼ä¸º
Aã16
Bã17
Cã18
Dã19
24.å¨Visual Basicå·¥ç¨ä¸ï¼å¯ä»¥ä½ä¸ºâå¯å¨å¯¹è±¡âçç¨åºæ¯
Aãä»»ä½çªä½ææ å模å
Bãä»»ä½çªä½æè¿ç¨
CãSub Mainè¿ç¨æå
¶ä»ä»»ä½æ¨¡å
DãSub Main è¿ç¨æä»»ä½çªä½
25.åå®å»ºç«ä¸ä¸ªå称为Command1çå½ä»¤æé®æ°ç»ï¼å以ä¸è¯´æ³ä¸é误çæ¯
Aãæ°ç»ä¸æ¯ä¸ªå½ä»¤æé®çå称ï¼Nameå±æ§ï¼å为Command1
Bãæ°ç»ä¸æ¯ä¸ªå½ä»¤æé®çæ é¢ï¼Captionå±æ§ï¼é½ä¸æ ·
Cãæ°ç»ä¸ææå½ä»¤æé®å¯ä»¥ä½¿ç¨åä¸ä¸ªäºä»¶è¿ç¨
Dãç¨å称Command1ï¼ä¸æ ï¼å¯ä»¥è®¿é®æ°ç»ä¸çæ¯ä¸ä¸ªå½ä»¤æé®
26.æçªä½çKeyPreviewå±æ§è®¾ç½®ç¨ä¸ºTrueï¼ç¶åç¼åå¦ä¸äºä»¶è¿ç¨
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii = Asc(UCase(ch))
Print Chr(KeyAscii + 2)
End Sub
ç¨åºè¿è¡åï¼æé®çä¸çâAâé®ï¼åå¨çªä½ä¸æ¾ç¤ºçå
容æ¯
AãA
BãB
CãC
DãD
27.å¨çªä½ä¸ç»ä¸ä¸ªå½ä»¤æé®åä¸ä¸ªææ¬æ¡ï¼å称åå«ä¸ºCommand1åText1ï¼ç¶åç¼åå¦ä¸ç¨åºï¼
Private Sub Command1_Click()
a = InputBox("请è¾å
¥æ¥æï¼1ï½31ï¼")
t = "æ
游æ¯ç¹ï¼" _
& IIf(a > 0 And a <= 10, "é¿å", "") _
& IIf(a >10 And a <= 20, "æ
宫", "") _
& IIf(a >20 And a <= 31, "é¢åå", "")
Text1.Text = t
End Sub
ç¨åºè¿è¡åï¼å¦æä»é®çä¸è¾å
¥16ï¼åå¨ææ¬æ¡ä¸æ¾ç¤ºçå
容æ¯
Aãæ
游æ¯ç¹ï¼é¿åæ
宫
Bãæ
游æ¯ç¹ï¼é¿åé¢åå
Cãæ
游æ¯ç¹ï¼é¢åå
Dãæ
游æ¯ç¹ï¼æ
宫
28.å¨çªä½ä¸ç»ä¸ä¸ªå称为Label1çæ ç¾ï¼ç¶åç¼åå¦ä¸äºä»¶è¿ç¨ï¼
Private Sub Form_Click()
Dim arr(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 2 To 4
For j = 2 To 4
arr(i, j) = i * j
Next j
Next i
Label1.Caption = Str(arr(2, 2) + arr(3, 3))
End Sub
ç¨åºè¿è¡åï¼åå»çªä½ï¼å¨æ ç¾ä¸æ¾ç¤ºçå
容æ¯
Aã12
Bã13
Cã14
Dã15
29.å¨çªä½ä¸ç»ä¸ä¸ªå称为Command1çå½ä»¤æé®ï¼ç¶åç¼åå¦ä¸éç¨è¿ç¨åå½ä»¤æé®çäºä»¶è¿ç¨ï¼
Private Function fun(ByVal m As Integer)
If m Mod 2 = 0 Then
fun = 2
Else
fun = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5
s = s + fun(i)
Next i
Print s
End Sub
ç¨åºè¿è¡åï¼åå»å½ä»¤æé®ï¼å¨çªä½ä¸æ¾ç¤ºçæ¯
Aã6
Bã7
Cã8
Dã9
30.é
读ç¨åºï¼
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) + arr(3, 4)
End Sub
ç¨åºè¿è¡åï¼åå»çªä½ï¼è¾åºç»æ为
Aã21
Bã13
Cã8
Dã25
31.å¨çªä½ä¸ç»ä¸ä¸ªå称为 Command1 çå½ä»¤æé®ï¼ç¶åç¼åå¦ä¸ç¨åºï¼
Option Base 1
Private Sub Command1_Click()
Dim c As Integer,d As Integer
d=0
c=6
x=Array(2,4,6,8,10,12)
For i=1 To 6
If x(i)>c Then
d=d+x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
ç¨åºè¿è¡åï¼å¦æåå»å½ä»¤æé®ï¼åå¨çªä½ä¸è¾åºçå
容为____ã
Aã10
Bã16
Cã12
Dã20
32.设æå¦ä¸ç¨åº
Private Sub Command1_Click()
Dim c As Integer,d As Integer
c=4
d=InputBox("请è¾å
¥ä¸ä¸ªæ´æ°")
Do While d>0
If d>c Then
c=c+1
End If
d=InputBox("请è¾å
¥ä¸ä¸ªæ´æ°")
Loop
Print c+d
End Sub
ç¨åºè¿è¡åï¼åå»å½ä»¤æé®ï¼å¦æå¨è¾å
¥å¯¹è¯æ¡ä¸ä¾æ¬¡è¾å
¥1ã2ã3ã4ã5ã6ã7ã8ã9ã0ï¼åè¾åºç»ææ¯____ã
Aã12
Bã11
Cã10
Dã9
33.å¨çªä½ä¸ç»ä¸ä¸ªå称为 Command1 çå½ä»¤æé®åä¸ä¸ªå称为 Text1 çææ¬æ¡ï¼å¨ææ¬æ¡ä¸è¾å
¥ä»¥ä¸å符串ï¼
Microsoft Visual Basic Programming
ç¶åç¼åå¦ä¸äºä»¶è¿ç¨ï¼
Private Sub Command1_Click()
Open "d:\temp\outf.txt" For Output As #1
For i=1 To Len(Text1.Text)
c=Mid(Text1.text,i,1)
If c>="A" And c<="Z" Then
Print #1,LCase(c)
End If
Next i
Close
End Sub
ç¨åºè¿è¡åï¼åå»å½ä»¤æé®ï¼æ件outf.txtä¸çå
容æ¯____ã
AãMVBP
Bãmvbp
CãM
V
B
P
Dãm
v
b
p
A B C D
34.å¨çªä½ä¸ç»ä¸ä¸ªå称为 Command1 çå½ä»¤æé®ï¼ç¶åç¼åå¦ä¸ç¨åºï¼
Dim SW As Boolean
Function func(X As Integer)As Integer
If X<20 Then
Y=X
Else
Y=20+X
End If
func=Y
End Function
Private Sub Form_MouseDown(Button As Integer,_
Shift As Integer,X As Single,Y As Single)
SW=False
End Sub
Private Sub Form_MouseUp(Button As Integer,_
Shift As Integer,X As Single,Y As Single)
SW=True
End Sub
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("")
If SW Then
Print func(intNum)
End If
End Sub
ç¨åºè¿è¡åï¼åå»å½ä»¤æé®ï¼å°æ¾ç¤ºä¸ä¸ªè¾å
¥å¯¹è¯æ¡ï¼å¦æå¨å¯¹è¯æ¡ä¸è¾å
¥ 25ï¼åç¨åºçæ§è¡ç»æ为____ã
Aãè¾åº 0
Bãè¾åº 25
Cãè¾åº 45
Dãæ ä»»ä½è¾åº
35.设æå¦ä¸éç¨è¿ç¨ï¼
Public Sub Fun(a() As Integer,x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
çªä½ä¸ç»ä¸ä¸ªå称为 Text1 çææ¬æ¡åä¸ä¸ªå称为 Command1 çå½ä»¤æé®ãç¶åç¼åå¦ä¸çäºä»¶è¿ç¨ï¼
Private Sub Command1_Click()
Dim arr(5) As Integer,n As Integer
For i=1 To 5
arr(i)=i+i
Next
Fun arr,n
Text1.Text=Str(n)
End Sub
ç¨åºè¿è¡åï¼åå»å½ä»¤æé®ï¼åå¨ææ¬æ¡ä¸æ¾ç¤ºçå
容æ¯____ã
Aã30
Bã25
Cã20
Dã15
äºã填空é¢ï¼æ¯ç©º2åï¼å
±è®¡30åï¼
1.æäºåæ ä¸åº¦ä¸º2çç»ç¹æ18个ï¼å该äºåæ ä¸æ____个å¶åç»ç¹ã
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
2.å¨é¢å对象æ¹æ³ä¸ï¼ç±»çå®ä¾ç§°ä¸º____ã
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
3.è¯æåæ¹æ£ç¨åºä¸é误çå·¥ä½é常称为____ã
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
4.å¨å
³ç³»æ°æ®åºä¸ï¼ææ°æ®è¡¨ç¤ºæäºç»´è¡¨ï¼æ¯ä¸ä¸ªäºç»´è¡¨ç§°ä¸º____ã
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
5.é®é¢å¤çæ¹æ¡çæ£ç¡®èå®æ´çæ述称为____ã
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
6.以ä¸è¯å¥çè¾åºç»ææ¯____ã
Print Int(12345.6789*100+0.5)/100
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
7.å¨çªä½ä¸ç»ä¸ä¸ªææ¬æ¡åä¸ä¸ªå¾çæ¡ï¼ç¶åç¼åå¦ä¸ä¸¤ä¸ªäºä»¶è¿ç¨ï¼
Private Sub Form_Click()
Text1.text="VBç¨åºè®¾è®¡"
End Sub
Private Sub Text1_Change()
Picture1.Print"VB Programming"
End Sub
ç¨åºè¿è¡åï¼åå»çªä½ï¼åå¨ææ¬æ¡ä¸æ¾ç¤ºçå
容æ¯____ï¼èå¨å¾çæ¡ä¸æ¾ç¤ºçå
容æ¯____ã
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
8.ä¸ä¸é¢
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
9.é
读ä¸é¢çç¨åºï¼
Private Sub Form_Click()
Dim Check As Boolean,Counter As Integer
Check=True
Counter=5
Do
Do While Counter < 20
Counter =Counter+1
If Counter=10 Then
Check=False
Exit Do
End If
Loop
Loop Until Check =False
Print Counter
End Sub
ç¨åºè¿è¡åï¼åå»çªä½ï¼è¾åºç»æ为____ã
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
10.设æå¦ä¸ç¨åºï¼
Private Sub Form_Click()
Dim a As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以ä¸ç¨åºçåè½æ¯____ãç¨åºè¿è¡åï¼åå»çªä½ï¼è¾åºç»æ为____ã
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
11.ä¸ä¸é¢
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
12.设æå¦ä¸ç¨åºï¼
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer,i As Integer
arr1=Array(12,435,76,-24,78,54,866,43)
Min=____
For i=2 To 8
If arr1(i)<Min Then ____
Next i
Print "æå°å¼æ¯ï¼";Min
End Sub
以ä¸ç¨åºçåè½æ¯ï¼ç¨ Array å½æ°å»ºç«ä¸ä¸ªå«æ8个å
ç´ çæ°ç»ï¼
ç¶åæ¥æ¾å¹¶è¾åºè¯¥æ°ç»ä¸åå
ç´ çæå°å¼ã请填空ã
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
13.ä¸ä¸é¢
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
14.å¨å称为 Form1 ççªä½ä¸ç»ä¸ä¸ªææ¬æ¡ï¼å
¶å称为 Text1ï¼å¨å±æ§çªå£ä¸æ该ææ¬æ¡ç MultiLine å±æ§è®¾ç½®ä¸º Trueï¼ç¶åç¼åå¦ä¸çäºä»¶è¿ç¨ï¼
Private Sub Form_Click()
Open"d:\test\smtext1.txt"For Input As #1
Do While Not ____
Line Input #1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr&(10)
Loop
Text1.Text=whole$
Chose #1
Open "d:\test\smtext2.txt"For Output As #1
Print #1,____
Close #1
End Sub
ä¸è¿°ç¨åºçåè½æ¯ï¼æç£çæ件 smtext1.txt çå
容读å°å
å并å¨ææ¬æ¡ä¸æ¾ç¤ºåºæ¥ï¼
ç¶åæ该ææ¬æ¡ä¸çå
容åå
¥ç£çæ件 smtext2.txtã请填空ã
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
15.ä¸ä¸é¢
è¾å
¥çæ¡ï¼ä¸é´ä¸å«ç©ºæ ¼:
çæ¡
1 D
2 B
3 D
4 C
5 A
6 C
7 B
8 D
9 D
10 C
11 A
12 B
13 B
14 C
15 D
16 C
17 D
18 A
19 B
20 D
21 A
22 B
23 C
24 D
25 B
26 C
27 D
28 B
29 B
30 A
31 C
32 D
33 D
34 D
35 A
36 19
37 对象
38 ç¨åºè°è¯
39 å
³ç³»
40 ç®æ³
41 12345.68
42 VBç¨åºè®¾è®¡
43 VB Programming
44 10
45 计ç®1å°8çç´¯å ï¼ ææç¸åçè¯å¥ï¼
46 36
47 12
48 Min=arr1(i)
49 EOF(1)
50 Text1.text
温馨提示:答案为网友推荐,仅供参考