单考单招vb复习资料总结

1、 求n的倍数能被n整除的数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位数各个位的数字（n整除位数，对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位小数Int（x*10n+0.5）/10n如取2位小数：int(x*100+0.5)/1005、打印图形4、列表框添加内容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个数（由小到大）循环次数For i=2 to nFor j=n to I setp -1判断交换Next jNext I方法二：For i=1 to n-1For j=1 to n-i判断交换Next jNext I6、选择排序排列10个数（由小到大）（1）从n个数中选出最小数的下标，出了循环，将最小数与第一个数交换位置； （2）除第一个数外，在剩下的n-1个数中再按方法（1）选出次小的数，与第二个数交换位置； （3）以此类推，最后构成递增序列。 7、求某数是否是素数100以内的素数判断j是否是素数8、判断闰年在窗体上输出19002010年之间哪些年是闰年，每行5个。闰年判断条件： 年份能被4整除但不能被100整除，或者年份能被400整除。Private Sub 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）图形有几行(一般由外循环控制)（2）每行首字符位置(一般由tab( )函数控制)tab(n)函数：输出时表达式定位于第n列（3）每行由几个字符(一般由内循环控制) （4）用什么字符组成图形 编程题 图1图2图3 图4图5图6图7图8图9123456789把以上九种图形都用编程来实现。9、列表框（图片框或者文本框）排序、列表框交换内容 模拟书卷出现12次10、+-号交错的数学运算方法一、利用（-1）(i+1)调节正负号方法二、利用f*变化的部分，F=1循环一次 f = - f调节正负号11、判断正整数X=inputbox(“提示内容”)While x0 or xint(x)Msgbox “提示内容”X=inputbox(“提示内容”)Wend12、判断文本框输入的数据是否合法，去除空格后进行比较，因为是手动输入所以不需要循环判断，如500的正整数X=val(text1.text)If Trime(str(x)=Trime(Text1.Text) and x500 and x=int(x) then13、一元二次方程的根14、控件数组：单选框数组，文本框数组（通过评委分手计算得分）15、特殊的数16、鸡兔问题，求方程的解，一般嵌套循环，个循环的初值为0或1，终止值为每种元素的最高值比