VB
缁煎悎
(
瀛﹁�冮儴鍒嗛潪閫夋嫨棰?/p>
)
1. [2017
骞?/p>
4
鏈堝鑰冮
]
濂囧伓鏍￠獙鏄竴绉嶆牎楠屾暟鎹紶杈撴纭�х殑鏂规硶銆傚叾涓鏍￠獙鏂规硶锛氱粺璁′簩杩涘埗鏁版嵁鐨勬暟浣嶄腑
鈥?/p>
1
鈥濈殑涓暟锛岃嫢涓暟涓哄鏁帮紝鍒欐牎楠屼綅鍊间负
0
锛屽惁鍒欐牎楠屼綅鍊间负
1
銆傚皬鏉庣紪鍐欎簡涓�涓绠楀鏍￠獙浣嶅�煎緱
VB
绋嬪簭锛?/p>
鍔熻兘濡備笅锛氬湪鏂囨湰妗?/p>
Text1
涓緭鍏?/p>
1
锝?/p>
255
鍗佽繘鍒跺緟鏍￠獙鏁帮紝鍗曞嚮鈥滆绠椻�濇寜閽?/p>
Command1
鍚庯紝鍦ㄦ枃鏈
Text2
涓樉
绀鸿鏁板搴旂殑浜岃繘鍒跺�硷紝骞跺湪鏍囩
Label3
涓樉绀鸿鏁扮殑鏍￠獙浣嶅�笺�傜▼搴忚繍琛岀晫闈㈠鍥炬墍绀恒�?/p>
锛?/p>
1
锛夊湪璁捐绋嬪簭鐣岄潰鏃讹紝瑕佹竻绌烘枃鏈涓殑鏄剧ず鍐呭锛屽簲淇敼璇ユ枃鏈涓殑
Text
灞炴�с�?/p>
锛?/p>
2
锛夊疄鐜颁笂杩板姛鑳界殑
VB
绋嬪簭濡備笅锛岃鍦ㄥ垝绾垮濉叆鍚堥�備唬鐮併�?/p>
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a = n Mod 2
n = n \ 2
t =
鈶?/p>
t+a
s = Str(a) + s
Loop
v = t Mod 2
Text2.Text = s
Label3.Caption = "
鏍￠獙浣嶅�硷細
" +
鈶?/p>
str(1-v)
End Sub
锛?/p>
3
锛夎繍琛岃绋嬪簭锛屽湪鏂囨湰妗?/p>
Text1
涓緭鍏?/p>
22
锛屽崟鍑烩�滆绠椻�濇寜閽紝鍒欐樉绀虹殑鏍￠獙浣嶅�兼槸
0
銆?/p>
2. [2016
骞?/p>
10
鏈堝鑰冮
]
缂栧啓鈥滃姞娉曠粌涔犻鐢熸垚鍣ㄢ�濈▼搴忥紝瀹炵幇濡備笅鍔熻兘锛氬湪鏂囨湰妗?/p>
Text1
涓緭鍏ラ鏁?/p>
n
锛?/p>
鍗曞嚮鈥滅敓鎴愨�濇寜閽?/p>
Commandl
锛屽湪鍒楄〃妗?/p>
Listl
涓樉绀?/p>
n
涓袱鏁颁箣鍜屽皬浜?/p>
100
鐨勫姞娉曠粌涔犻銆傜▼搴忚繍琛岀晫闈?/p>
濡傚浘
a
鎵�绀恒�?/p>
鍥?/p>
a
鍥?/p>
b
(1)
鍦ㄨ璁＄▼搴忕晫闈㈡椂锛屼娇搴斾娇鐢ㄥ浘
b
鎵�绀衡�滄帶浠跺伐鍏风鈥濅腑鐨?/p>
3
锛堝～鍐欑浉搴旂紪鍙凤級
娣诲姞
鈥滅敓鎴愨�濇寜閽�?/p>
锛?/p>
2
锛夊疄鐜颁笂杩板姛鑳界殑
VB
绋嬪簭濡備笅锛岃鍦ㄥ垝绾垮濉叆鍚堥�傜殑浠ｇ爜銆?/p>
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a As Integer, b As Integer
Randomize
n = Val(Text1.Text)
i =
飩?/p>
1
Do While i<= n
a = Int(Rnd * 100)