缁嶅叴椴佽繀涓绋嬪簭闃呰缂栬緫锛氭矆浜戣壇
1
/
2
缁忓吀绠楁硶绋嬪簭瀹炵幇
2018
(
缁煎悎缁冧範
)
鐝骇锛?/p>
__________
濮撳悕锛?/p>
__________
1.
鐢ㄩ殢鏈哄嚱鏁颁骇鐢?/p>
100
涓?/p>
[0
锛?/p>
99]
鑼冨洿鍐呯殑闅忔満鏁存暟锛岀粺璁′釜浣?/p>
涓婄殑鏁板瓧鍒嗗埆涓?/p>
1
锛?/p>
2
锛?/p>
3
锛?/p>
4
锛?/p>
5
锛?/p>
6
锛?/p>
7
锛?/p>
8
锛?/p>
9
锛?/p>
0
鐨勬暟鐨勪釜鏁板苟
鎵撳嵃鍑烘潵銆?/p>
Public Sub GetTJput()
Dim a(1 To 100) As Integer
Dim x(1 To 10) As Integer
Dim i As Integer, p As Integer
'
浜х敓
100
涓?/p>
[0
锛?/p>
99]
鑼冨洿鍐呯殑闅忔満鏁存暟
For i = 1 To 100
a(i) = Int(Rnd * 100)
If a(i) < 10 Then
Lab1.Caption= Lab1.Caption& " " & Str(a(i))
Else
Lab1.Caption= Lab1.Caption& Str(a(i))
End If
'
姣忚
10
涓湪鏍囩
Lab1
鏄剧ず鍑烘潵
If ______________ Then
'
瀛楃涓插父閲?/p>
VbCrLf
鐨勪綔鐢細鎹㈣
Lab1.Caption= Lab1.Caption& VbCrLf
End If
Next i
'
缁熻涓綅涓婄殑鏁板瓧鍒嗗埆涓?/p>
1
锛?/p>
2
锛?/p>
3
锛?/p>
4
锛?/p>
5
锛?/p>
6
锛?/p>
7
锛?/p>
8
锛?/p>
9
锛?/p>
0
'
鐨勬暟鐨勪釜鏁帮紝骞跺皢缁熻缁撴灉淇濆瓨鍦ㄦ暟缁?/p>
x(1),x(2),...,x(10)
'
涓紝灏嗙粺璁＄粨鏋滃湪鏍囩
Lab2
鏄剧ず鍑烘潵
For i = 1 To 100
p =______________ '
姹備釜浣嶄笂鐨勬暟瀛?/p>
If p = 0 Then p = 10
x(p) =______________
Next i
Lab2.Caption="
缁熻缁撴灉
"
For i = 1 To 10
p = i
If i = 10 Then _____________
Lab2.Caption= Lab2.Caption & "
涓綅鏁颁负
"+ _
Str(p) + "
鍏?/p>
" + Str(x(i)) + "
涓?/p>
"
Next i
End Sub
2.
鍝ュ痉宸磋但鐚滄兂
:
浠绘剰涓�涓ぇ浜庣瓑浜?/p>
6
鐨勫伓鏁伴兘鍙互鍒嗚В涓轰袱涓?/p>
绱犳暟涔嬪拰銆?/p>
鍩烘湰鎬濇兂锛?/p>
n
涓哄ぇ浜庣瓑浜?/p>
6
鐨勪换涓�鍋舵暟锛屽彲鍒嗚В涓?/p>
n1
鍜?/p>
n2
涓や釜
鏁帮紝鍒嗗埆妫�鏌?/p>
n1
鍜?/p>
n2
鏄惁涓虹礌鏁帮紝濡傞兘鏄紝鍒欎负涓�缁勮В銆傚
n1
涓嶆槸绱犳暟锛?/p>
灏变笉蹇呭啀妫�鏌?/p>
n2
鏄惁绱犳暟銆?/p>
鍏堜粠
n1=3
寮�濮嬶紝妫�楠?/p>
n1
鍜?/p>
n2
锛?/p>
n2=N-n1
锛夋槸鍚︾礌鏁般�傜劧鍚庝娇
n1+2
鍐嶆楠?/p>
n1
銆?/p>
n2
鏄惁
绱犳暟锛屸�?/p>
鐩村埌
n1=n/2
涓烘銆?/p>
鈥?/p>
Prime
鍑芥暟鍔熻兘锛氳嫢涓虹礌鏁拌繑鍥?/p>
True
锛屼笉鏄垯杩斿洖
False
Function Prime( m as Integer) As _____________
Dim i As Integer
_____________
For i=2 To int(sqr(m))
If m Mod i = 0 Then Prime=False: Exit For
Next i
End Function
鈥欏埄鐢ㄤ笂闈㈢殑
Prime
鍑芥暟锛岄獙璇佸摜寰峰反璧寽鎯?/p>
Dim n As Integer,n1 As Integer,n2 As Integer
n=Val(InputBox("
杈撳叆澶т簬
6
鐨勬鏁存暟
"))
For n1=3 to n\2 step 2
n2=n-n1
If prime(n1) Then
If _____________ then
Print n & "=" & n1 & "+" & n2
Exit For '
缁撴潫寰幆
End if
End if
Next n1
3
锛庡悎骞舵硶鎺掑簭锛堝皢涓や釜鏈夊簭鏁扮粍
A
銆?/p>
B
鍚堝苟鎴愬彟涓�涓湁搴忕殑鏁扮粍
C
锛屽崌搴忥級
鍩烘湰鎬濇兂锛?/p>
1
锛夊厛鍦?/p>
A
銆?/p>
B
鏁扮粍涓悇鍙栫涓�涓厓绱犺繘琛屾瘮杈冿紝灏嗗皬鐨勫厓绱犳斁鍏?/p>
C
鏁扮粍锛?/p>
2
锛夊彇灏忕殑鍏冪礌鎵�鍦ㄦ暟缁勭殑涓嬩竴涓厓绱犱笌鍙︿竴鏁扮粍涓笂娆℃瘮杈冨悗
杈冨ぇ鐨勫厓绱犳瘮杈冿紝閲嶅涓婅堪姣旇緝杩囩▼锛岀洿鍒版煇涓暟缁勮鍏堟帓瀹岋紱
3
锛夊皢鍙︿竴涓暟缁勫墿浣欏厓绱犳妱鍏?/p>
C
鏁扮粍锛屽悎骞舵帓搴忓畬鎴愩�?/p>
绋嬪簭娈靛涓嬶細
'
褰?/p>
A
鍜?/p>
B
鏁扮粍鍧囨湭姣旇緝瀹?/p>
Private Sub Cmd_Click()
Dim A(1 To 200) As Integer
Dim B(1 To 200) As Integer
Dim ia As Integer,ib As Integer
Dim na As Integer,nb As Integer
'A
銆?/p>
B
鏁扮粍鏁版嵁浠庡閮ㄦ枃浠惰鍏ワ紝鍒嗗埆瀛樺偍鍦?/p>
A(1)
銆?/p>
B(1)
寮�濮嬬殑
鍏冪礌涓紝鏁版嵁涓暟瀛樺偍鍦?/p>
na
銆?/p>
nb
涓?/p>
ia=1: ib=1: ic=_______
Do While _______________________
If A(ia) < B(ib) Then
C(ic) = A(ia)
锛?/p>
ia = ia + 1
Else
C(ic) = B(ib)
锛?/p>
ib = ib + 1
End If
_____________
Loop
'A
鏁扮粍涓殑鍓╀綑鍏冪礌鎶勫叆
C
鏁扮粍