《單考單招vb復(fù)習(xí)資料總結(jié)(共6頁(yè))》由會(huì)員分享，可在線閱讀，更多相關(guān)《單考單招vb復(fù)習(xí)資料總結(jié)(共6頁(yè))（6頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。
1、精選優(yōu)質(zhì)文檔-----傾情為你奉上
1、 求n的倍數(shù)\能被n整除的數(shù)
X mod n =0
每行n個(gè)顯示
方法一：If I mod n=0 then print
方法二：If I mod n=0 then print x; else print x
2、文本框換行 VbCrlf
3、取n位數(shù)各個(gè)位的數(shù)字（n整除位數(shù)，對(duì)10取余）
個(gè)位： A=(x \1) mod 10 A=x mod 10
十位： A=(x \10) mod 10
百位： A=(x \100) mod 10
千位： A=(x \1000) mod 1
2、0
后兩位： A=x \100
4、四舍五入取n位小數(shù)
Int（x*10^n+0.5）/10^n
如取2位小數(shù)：int(x*100+0.5)/100
5、打印圖形
4、列表框添加內(nèi)容
l 移動(dòng)項(xiàng)目
If List2.ListIndex >= 0 Then
List1.AddItem List2.Text '在左邊列表中增加新項(xiàng)目(列表2的選定內(nèi)容)
List2.RemoveItem List2.ListIndex '刪除右邊列表中的所選項(xiàng)目（列表2的選定序號(hào)）
End If
l 全部移動(dòng)
List1.Clear
3、' 列表1清空
For i = 1 To 10
List1.AddItem a(i) ' 列表1添加項(xiàng)目
Next
List2.clear
5、冒泡排序排列10個(gè)數(shù)（由小到大）
循環(huán)次數(shù)
For i=2 to n
For j=n to I setp -1
判斷交換
Next j
Next I
方法二：
For i=1 to n-1
For j=1 to n-i
判斷交換
Next j
Next I
6、選擇排序排列10個(gè)數(shù)（由小到大）
（1）從n個(gè)數(shù)中選出最小數(shù)的下標(biāo)，出了循
4、環(huán)，將最小數(shù)與第一個(gè)數(shù)交換位置；
（2）除第一個(gè)數(shù)外，在剩下的n-1個(gè)數(shù)中再按方法（1）選出次小的數(shù)，與第二個(gè)數(shù)交換位置；
（3）以此類推，最后構(gòu)成遞增序列。
7、求某數(shù)是否是素?cái)?shù)
100以內(nèi)的素?cái)?shù)
判斷j是否是素?cái)?shù)
8、判斷閏年
在窗體上輸出1900——2010年之間哪些年是閏年，每行5個(gè)。閏年判斷條件： 年份能被4整除但不能被100整除，或者年份能被400整除。
Private Sub Form_Click()
Dim year As Integer, n As Integer
n = 0
For year = 1900 To
5、2010
If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then
Print year;
n = n + 1
If n Mod 5 = 0 Then Print
End If
Next year
End Sub
8、輸出一個(gè)文本圖形需要考慮4點(diǎn)：
（1）圖形有幾行(一般由外循環(huán)控制)
（2）每行首字符位置(一般由tab( )函數(shù)控制)
tab(n)函數(shù)：輸出時(shí)表達(dá)式定位于第n列
（3）每行由幾個(gè)字
6、符(一般由內(nèi)循環(huán)控制)
（4）用什么字符組成圖形
編程題
圖1 圖2 圖3 圖4 圖5 圖6 圖7 圖8 圖9
1
2
3
4
5
6
7
8
9
把以上九種圖形都用編程來(lái)實(shí)現(xiàn)。
9、列表框（圖片框或者文本框）排序、列表框交換內(nèi)容 模擬書卷出現(xiàn)12次
10、+-號(hào)交錯(cuò)的數(shù)學(xué)運(yùn)算
方法一、利用（-1）^(i+1)調(diào)節(jié)正負(fù)號(hào)
方法二、利用f*變化的部分，F(xiàn)=1
循環(huán)一次 f = - f調(diào)節(jié)正負(fù)號(hào)
11、判斷正整數(shù)
X=inputbox(“提示內(nèi)容”)
While x<0 or x<
7、;>int(x)
Msgbox “提示內(nèi)容”
X=inputbox(“提示內(nèi)容”)
Wend
12、判斷文本框輸入的數(shù)據(jù)是否合法，去除空格后進(jìn)行比較，因?yàn)槭鞘謩?dòng)輸入所以不需要循環(huán)判斷，如<500的正整數(shù)
X=val(text1.text)
If Trime(str(x))=Trime(Text1.Text) and x<500 and x=int(x) then
13、一元二次方程的根
14、控件數(shù)組：?jiǎn)芜x框數(shù)組，文本框數(shù)組（通過(guò)評(píng)委分手計(jì)算得分）
15、特殊的數(shù)
16、雞兔問(wèn)題，求方程的解，
一般嵌套循環(huán)，個(gè)循環(huán)的初值為0或1，終止值為每種元素的最高值
比如3x+5y=100
For x=0 to 33
For y=0 to 20
If 3*x+5*y=100 then print “x=”;x,”y=”;y
Next y
Next x
專心---專注---專業(yè)
單考單招vb復(fù)習(xí)資料總結(jié)(共6頁(yè))
