《單考單招vb復(fù)習(xí)資料總結(jié)(共6頁)》由會員分享，可在線閱讀，更多相關(guān)《單考單招vb復(fù)習(xí)資料總結(jié)(共6頁)（6頁珍藏版）》請在裝配圖網(wǎng)上搜索。
1、精選優(yōu)質(zhì)文檔-----傾情為你奉上
1、 求n的倍數(shù)\能被n整除的數(shù)
X mod n =0
每行n個顯示
方法一：If I mod n=0 then print
方法二：If I mod n=0 then print x; else print x
2、文本框換行 VbCrlf
3、取n位數(shù)各個位的數(shù)字（n整除位數(shù)，對10取余）
個位： 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 移動項(xiàng)目
If List2.ListIndex >= 0 Then
List1.AddItem List2.Text '在左邊列表中增加新項(xiàng)目(列表2的選定內(nèi)容)
List2.RemoveItem List2.ListIndex '刪除右邊列表中的所選項(xiàng)目（列表2的選定序號）
End If
l 全部移動
List1.Clear
3、' 列表1清空
For i = 1 To 10
List1.AddItem a(i) ' 列表1添加項(xiàng)目
Next
List2.clear
5、冒泡排序排列10個數(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個數(shù)（由小到大）
（1）從n個數(shù)中選出最小數(shù)的下標(biāo)，出了循
4、環(huán)，將最小數(shù)與第一個數(shù)交換位置；
（2）除第一個數(shù)外，在剩下的n-1個數(shù)中再按方法（1）選出次小的數(shù)，與第二個數(shù)交換位置；
（3）以此類推，最后構(gòu)成遞增序列。
7、求某數(shù)是否是素數(shù)
100以內(nèi)的素數(shù)
判斷j是否是素數(shù)
8、判斷閏年
在窗體上輸出1900——2010年之間哪些年是閏年，每行5個。閏年判斷條件： 年份能被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、輸出一個文本圖形需要考慮4點(diǎn)：
（1）圖形有幾行(一般由外循環(huán)控制)
（2）每行首字符位置(一般由tab( )函數(shù)控制)
tab(n)函數(shù)：輸出時表達(dá)式定位于第n列
（3）每行由幾個字
6、符(一般由內(nèi)循環(huán)控制)
（4）用什么字符組成圖形
編程題
圖1 圖2 圖3 圖4 圖5 圖6 圖7 圖8 圖9
1
2
3
4
5
6
7
8
9
把以上九種圖形都用編程來實(shí)現(xiàn)。
9、列表框（圖片框或者文本框）排序、列表框交換內(nèi)容 模擬書卷出現(xiàn)12次
10、+-號交錯的數(shù)學(xué)運(yùn)算
方法一、利用（-1）^(i+1)調(diào)節(jié)正負(fù)號
方法二、利用f*變化的部分，F(xiàn)=1
循環(huán)一次 f = - f調(diào)節(jié)正負(fù)號
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)槭鞘謩虞斎胨圆恍枰h(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ù)組：單選框數(shù)組，文本框數(shù)組（通過評委分手計算得分）
15、特殊的數(shù)
16、雞兔問題，求方程的解，
一般嵌套循環(huán)，個循環(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頁)
