單考單招vb復習資料總結

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

2、、列表框添加內容l 移動項目If List2.ListIndex >= 0 Then List1.AddItem List2.Text '在左邊列表中增加新項目(列表2的選定內容) List2.RemoveItem List2.ListIndex '刪除右邊列表中的所選項目（列表2的選定序號）End Ifl 全部移動List1.Clear' 列表1清空For i = 1 To 10 List1.AddItem a(i) ' 列表1添加項目 NextList2.clear5、冒泡排序排列10個數(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個數(shù)（由小到大）（1）從n個數(shù)中選出最小數(shù)的下標，出了循環(huán)，將最小數(shù)與第一個數(shù)交換位置； （2）除第一個數(shù)外，在剩下的n-1個數(shù)中再按方法（1）選出次小的數(shù)，與第二個數(shù)交換位置； （3）以此類推，最后構成遞增序列。 7、求某數(shù)是否是素數(shù)100以內的素數(shù)判斷j是否是素數(shù)8、判斷閏年在窗體上輸出19002010年之間哪些年是閏年，每行5個。閏年判斷條件： 年份能被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、輸出一個文本圖形需要考慮4點：（1）圖形有幾行(一般由外循環(huán)控制)（2）每行首字符位置(一般由tab( )函數(shù)控制)tab(n)函數(shù)：輸出時表達式定位于第

5、n列（3）每行由幾個字符(一般由內循環(huán)控制) （4）用什么字符組成圖形 編程題 圖1圖2圖3 圖4圖5圖6圖7圖8圖9123456789把以上九種圖形都用編程來實現(xiàn)。9、列表框（圖片框或者文本框）排序、列表框交換內容 模擬書卷出現(xiàn)12次10、+-號交錯的數(shù)學運算方法一、利用（-1）(i+1)調節(jié)正負號方法二、利用f*變化的部分，F(xiàn)=1循環(huán)一次 f = - f調節(jié)正負號11、判斷正整數(shù)X=inputbox(“提示內容”)While x<0 or x<>int(x)Msgbox “提示內容”X=inputbox(“提示內容”)Wend12、判斷文本框輸入的數(shù)據是否合法，去除空格后進行比較，因為是手動輸入所以不需要循環(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ù)組：單選框數(shù)組，文本框數(shù)組（通過評委分手計算得分）15、特殊的數(shù)16、雞兔問題，求方程的解，一般嵌套循環(huán)，個循環(huán)的初值為0或1，終止值為每種元素的最高