單考單招vb復(fù)習(xí)資料總結(jié)

1、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 x2、文本框換行 VbCrlf3、取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 10后兩位： A=x 1004、四舍五入取n位小數(shù)Int（x*10n+0.5）/10n如取2位小數(shù)：int(x*100+0.5)/1005、打印圖形4

2、、列表框添加內(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 Ifl 全部移動(dòng)List1.Clear' 列表1清空For i = 1 To 10 List1.AddItem a(i) ' 列表1添加項(xiàng)目 NextList2.clear5、冒泡排序排列10個(gè)數(shù)（由小到大）循環(huán)次數(shù)For i=2 to nFor j=n to

3、 I setp -1判斷交換Next jNext I方法二：For i=1 to n-1For j=1 to n-i判斷交換Next jNext I6、選擇排序排列10個(gè)數(shù)（由小到大）（1）從n個(gè)數(shù)中選出最小數(shù)的下標(biāo)，出了循環(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、判斷閏年在窗體上輸出19002010年之間哪些年是閏年，每行5個(gè)。閏年判斷條件： 年份能被4整除但不能被100整除，或者年份能被400整除。Private Su

4、b Form_Click() Dim year As Integer, n As Integer n = 0 For year = 1900 To 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 yearEnd Sub8、輸出一個(gè)文本圖形需要考慮4點(diǎn)：（1）圖形有幾行(一般由外循環(huán)控制)（2）每行首字符位置(一般由tab( )函數(shù)控制)tab(n)函數(shù)：輸出時(shí)表達(dá)式定位于第

5、n列（3）每行由幾個(gè)字符(一般由內(nèi)循環(huán)控制) （4）用什么字符組成圖形 編程題 圖1圖2圖3 圖4圖5圖6圖7圖8圖9123456789把以上九種圖形都用編程來(lái)實(shí)現(xiàn)。9、列表框（圖片框或者文本框）排序、列表框交換內(nèi)容 模擬書(shū)卷出現(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<>int(x)Msgbox “提示內(nèi)容”X=inputbox(“提示內(nèi)容”)Wend12、判斷文本框輸入的數(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) then13、一元二次方程的根14、控件數(shù)組：?jiǎn)芜x框數(shù)組，文本框數(shù)組（通過(guò)評(píng)委分手計(jì)算得分）15、特殊的數(shù)16、雞兔問(wèn)題，求方程的解，一般嵌套循環(huán)，個(gè)循環(huán)的初值為0或1，終止值為每種元素的最高