过程练习题.doc

过程练习题-第2题：编写函数fun，函数的功能是：求1到100 之间的偶数之积答案： Dim y As Double y = 1 Dim i As Integer For i = 1 To m If i Mod 2 = 0 Then y = y * i End If Nextfun = 第5题：编写函数fun，函数的功能是：计算n门 的平均值，计算结果作为函数值返 例如，若有5门课程的成绩是：92，76，69，58，88，则函数的值为76.6。答案： Dim i As Integer Dim y As Single For i = 1 To n y = y + a(i) Next fun = y / n第8题题目：编写函数fun其功能是：根据整型形参m，计算 如下公式的值：y=1/21/41/6.1/2m 例如：若m=9，则应输出：1.414484答案： Dim y As Double Dim i As Integer For i = 1 To m y = y + 1 / (2 * i) Next fun = 第11题-题目：编写函数fun，函数的功能是：计算并输出给定 整数n的所有因子之和（不包括1与自身）。规定 n的值不大于1000? 例如：n的值为855时，应输出704。答案 Dim s, i As Integer For i = 2 To n - 1 If n Mod i = 0 Then s = s + i End If Next Fun = s第25题题目：编写函数fun其功能是：根据整型形参m，计算 y=11/31/51/7.1/(2m+1) 例如：若m=9，则应输出：2.133256答案；Dim y As Double Dim i As Integer y = 1 For i = 1 To m y = y + 1 / (2 * i + 1) Nextfun = y第29题题目：编写函数fun其功能是:能计算从1开始到n的 自然数中偶数的平方的和，n由键盘输入， (n是偶数)答案：Dim sum As Integer, i As Integer sum = 0 For i = 2 To n Step 2 sum = sum + i * i Next fun = sum第30题题目：编写函数fun其功能是：根据整型形参m， 计算如下公式的值：y=1/2!1/4!.1/m! (m是偶数)答 Dim y As Double, t As Double t = 1 Dim i As Integer For i = 2 To m Step 2 t = t * 1# / i y = y + t Next i fun = y第38题：编写函数fun其功能是:判断一个整数w的各位 数字平方之和能否被5整除 , 可以被5整除则返 回1 , 否则返回0答案Dim k As Integer, s As Integer Do s = s + (w Mod 10) * (w Mod 10) w = Int(w / 10) Loop While w 0 If s Mod 5 = 0 Then k = 1 Else k = 0 End If fun = k第45题：编写函数fun其功能是：根据整型形参m， 计算如下公式的值: y=1/5+1/61/71/81/9+1/10.1/(m+5) 例如：若m=9，则应输出：1.168229Dim y As Double Dim i As Integer For i = 0 To m y = y + 1 / (i + 5) Next Fun = y第46题：编写函数fun，函数的功能是：求一个 四位数的各位数字的立方和Dim d As Integer, k As Integer, s As Integer While n 0 d = n Mod 10 s = s + d * d * d n = n / 10 Wend fun = s数组练习题第1题(事件)双击窗体。 (响应)求1+2+3+5+8+13+前20项的和，并将结 果在窗体上输出。将结果存入变量SUM中。答案 Dim i As Integer Dim j(1 To 20) As Integer For i = 1 To 20 If i max Then max = a(i) End If If a(i) a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next i-一般程序设计习题第1题：(事件)单击窗体。 (响应)求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量SUM中答案：Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Print sum第2题：(事件)双击窗体。 (响应)求s=1+12+123+12310， 并将结果存到变量S中答案：Dim i, j As IntegerDim k As Longk = 1s = 0For i = 1 To 10 For j = 1 To i k = k * j Next s = s + k k = 1NextPrint (CStr(s)第3题：(事件)单击窗体。 (响应)求1+2+3+100的值，并把结果输出在窗体上。 结果存入变量SUM中。答案：Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum第4题：判断一个数是否是素数。答案：Dim i As Integer Prime = True For i = 2 To Int(Sqr(m) If m Mod i = 0 Then Prime = False: Exit For Next i第5题：(事件)单击窗体。 (响应)求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。 将结果存入变量J中。Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j第6题：(事件)单击窗体。 (响应)求200300之间既能被3整除又能被7整除的数。 并求出所有数之和存入变量SUM中答案：Dim i As IntegerFor i = 201 To 300 If (i Mod 3) = 0) And (i Mod 7) = 0) Then Print (CStr(i) sum = sum + i End IfNextPrint sum第7题：(事件)单击窗体。 (响应)求数列1+3+3+9+27+前6项的和，并将 结果输出到窗体上。将结果存入变量SUM中。答案： Dim i As Integer Dim j(1 To 6) As Integer For i = 1 To 6 If i 3 Then j(i) = 3 (i - 1) Else j(i) = j(i - 1) * j(i - 2) End If sum = sum + j(i) Next Print sum第8题：(事件)单击窗体。 (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。答案： Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum第9题：(事件)双击窗体。 (响应)求出100200之间，能被5整除，但不能被3 整除的数。并求所有数之和，存入变量中 SUM中。答案：Dim i As IntegerFor i = 100 To 200 If (i Mod 5) = 0) And (i Mod 3) 0) Then Print (CStr(i) sum = sum + i End IfNext第10题：(事件)双击窗体。 (响应)把一元钞票换成一分、二分和五分的硬币 （每种至少有一枚），求出其所有的换法， 把结果输出在窗体上。 将所有的换法的数目存入变量N中答案：Dim i, j, k As IntegerFor i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If (i + 2 * j + k * 5) = 100) Then Print (CStr(i) Print (CStr(j) Print (CStr(k) n = n + 1 End If Next NextNext第11题：求两个数m,n的最大公约数p和最小公倍数q答案：nm = n * m If m n Then t = m: m = n: n = t r = m Mod n Do While (r 0) m = n n = r r = m Mod n Loop p = n q = nm / n第12题：(事件)双击窗体。 (响应)s=20+21+22+263，求s的值，并将结果 存储到变量S中。答案：Dim i As Integeri = 20While i = 263 s = s + i i = i + 1WendPrint (CStr(s)第13题：(事件)双击窗体。 (响应)求3+6+9+12+15+18+300的和，并将结 果输出到窗体上。将结果存入变量 SUM中。答案： Dim i As Integer For i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum第14题：(事件)双击窗体。 (响应)编写代码功能如(图1)。 将结果存入变量S中答案：Dim i As Integers = 1For i = 1 To 10s = s * i * iNextPrint (CStr(s)第15题：(事件)双击窗体。 (响应)求1+5+10+15+500的和，并将结果输 出到窗体上。将结果存入变量SUM中。答案： Dim i As Integer For i = 1 To 500 If i Mod 5 = 0 Then sum = sum + i End If Next Print sum第16题：(事件)单击窗体。 (响应)编写程序求101112+111213+151617的结果， 并将结果输出到窗体上。 将结果存入变量M中答案：Dim i, j As IntegerDim s As LongFor i = 10 To 15 s = 1 For j = i To i + 2 s = s * j Next m = m + sNextPrint (CStr(m)第17题：(事件)双击窗体。 (响应)求出50以内所有奇数的和。 将结果存入变量SUM中答案： Dim i As Integer For i = 1 To 50 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum第18题：用迭代法求某个数的平方根。 已知求平方根的迭代公式如图：算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一 迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x； 再以新值作为初值，即：x1x0,重新按原来的方法求x1,重复这一过和 直到|x1-x0| 0.00001 Fsqrt = x1第19题：(事件)单击窗体。 (响应)求1020之间所有素数的乘积并输出在窗体上。 将结果存入变量L中。答案：Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l)第20题：编写函数fun其功能是:能计算从1开始到n的 自然数中偶数的平方的和，n由键盘输入， (n是偶数)答案： Dim sum As Integer, i As Integer sum = 0 For i = 2 To n Step 2 sum = sum + i * i Next fun = sum第21题：(事件)单击窗体。 (响应)求出1000-9999之间具有如下特点的四位数字， 它的平方根 恰好就是它中间的两位数字，例如，2500开 平方为50，恰为2500的中间两位，找出所有 这样的四位数。 并求出所有这样的数的和存入SUM中答案： Dim i As Integer Dim j As Integer For i = 1000 To 9999 j = Val(Mid(Trim(Str(i), 2, 2) If j 2 = i Then Print i, sum = sum + i End If Next第22题：(事件)双击窗体。 (响应)求100以内奇数的和，并将结果输出在窗体上。 将结果存入变量SUM中答案： Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then sum = sum + i End If NextPrint sum第23题：(事件)单击窗体。 (响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8 的前10项，并求其和。答案：Dim i, j, k, m As Integers = 0i = 2j = 1For k = 1 To 10 m = j Print (CStr(i) & / & CStr(j) j = i i = i + m s = s + i / jNext第24题：(事件)双击窗体。 (响应)写程序解决百钱买百鸡问题：公鸡3元1只， 母鸡5元1只，小鸡一元3只，怎样用100元买 100只鸡。把结果输出到窗体上。 将答案数存放在变量N中答案：Dim i, j, k As IntegerFor i = 1 To 20 母鸡 For j = 1 To 33 公鸡 For k = 3 To 100 小鸡 If (k Mod 3) = 0) And (i * 5 + j * 3 + k / 3) = 100) And (i + j + k) = 100) Then Print (CStr(i) Print (CStr(j) Print (CStr(k) n = n + 1 End If Next NextNext第25题：(事件)单击窗体。 (响应)一球从100米高度自由落下，每次落地返回 原高度的一半，求第10次落地时，共经过多 少米？并将结果在窗体上输出。答案：Dim j, i As Integers = 0j = 100For i = 2 To 10 j = j / 2 s = s + 2 * jNexts = 100 + sPrint (CStr(s)第26题：(事件)单击窗体。 (响应)在窗体上输出100200之间的所有合数。 求出所有数之和存入SUM中答案：Dim i, j, s As IntegerFor i = 100 To 200 For j = 2 To Sqr(i) If (i Mod j) = 0 Then Print (CStr(i) sum = sum + i Exit For End If NextNextPrint sum第27题：(事件)单击窗体。 (响应)求50以内所有偶数的和，并在窗体上输出出来。 将结果存入变量S中。答案：Dim i As IntegerFor i = 2 To 50 If (i Mod 2) = 0 Then s = s + i End IfNextPrint (CStr(s)第28题：(事件)单击窗体。 (响应)已知S=1+1/4+1/9+1/16+1/25+1/100， 结果输出在窗体上。答案：Dim i As Integers = 0For i = 1 To 10 s = s + 1 / (i i)NextPrint (s)第29题：(事件)单击窗体。 (响应)编写代码功能如(图1)。 将结果存入变量S中答案：Dim i As IntegerFor i = 1 To 10 s = s + i * iNextPrint (CStr(s)第30题：(事件)单击窗体。 (响应)求1!+2!+3!+10!的值，并在窗体上输出。 结果存入变量L中。答案：Dim i As Integer Dim s As Long Dim j As Integer s = 1 For i = 1 To 10 s = s * i l = l + s Next Print Str(l)第31题：将一张面值为100元的人民币等值换成100张5元、 1元和0.5元的零钞，要求每种零钞不少于1张， 问有哪几种组合？将组合数存入变量OUT中。答案：Dim n As IntegerDim i%, j%, k%Print 5? 1? 0.5?For i = 1 To 20 For j = 1 To 100 - i k = 100 - i - j If 5# * i + 1# * j + 0.5 * k = 100 Then Print i, j, k n = n + 1 End If Next j Next i out = n第32题：(事件)双击窗体。 (响应)求1!+2!+3!+4!+5!并将结果输出到窗体上。 结果存入变量S中答案：Dim i, j, k, s As IntegerFor i = 1 To 5 k = 1 For j = 1 To i k = k * j Next s = s + kNextPrint (CStr(s)第33题： (事件)单击窗体。 (响应)求出100以内所有素数的和，并将结果输出 到窗体上,并存入所给变量SUM中。答案：Dim i As Integer Dim j As Integer Dim k As Integer Dim b As Boolean b = False For i =2 To 100 b = False j = CInt(Sqr(i) For k = 2 To j If i Mod k = 0 Then b = True End If Next If b = False Then sum = sum + i End If Next Print sum-第129题 要改变控件的宽度,应修改该控件的()属性.A:Top B:Width C:Left D:Height答案：B第130题 在VB中,下列不能作为存放对象的容器是().A:窗体 B:框架 C:图形框 D:图象框答案：D第131题列表框控件中的列表内容是通过()属性设置的.A:Name B:Caption C:List D:Text答案：C第132题下列数据类型中,占用内存最大的是().A:Boolean B:Byte C:Integer D:Single答案：D第133题下列可缩放图片的属性是().A:autosize B:picture C:stretch D:OleDrawMode答案：C第134题 用鼠标拖动滚动条中滚动框并释放,将触发滚动条的()事件.A:Scroll B:Change C:DragOver D:A和B答案：D第135题 VisualBasic的编程机制是().A:可视化 B:面向对象 C:面向图形 D:事件驱动答案：D第136题Interger类型的变量可存的的最大整数是().A:250 B:256 C:32768 D:32767答案：D第137题由For k=10 to 0 step 3:next k循环语句控制的循环次数是().A:12 B:0 C:-11 D:-10答案：B第138题 可以用作其它控件容器的控件有().A:窗体控件,列表控件,图像控件 B:窗体控件,文本框控件,框架控件C:窗体控件,框架控件,图片框控件 D:窗体控件,标签控件,图片控件答案：C第139题要把一个命令按钮设置成无效,应设置其哪一属性值().A:Visible B:Enabled C:Default D:Cancel答案：B第140题 删除字符串前导和尾随空格的函数是().A:Ltrim() B:Rtrim( ) C:Trim() D:Lcase答案：C第141题求以10 为底X 的常用对数的表达式为().A:LOG(X)/LOG(10) B:LN(X)C:LOG(X)/LOG(E) D:LOG(X)答案：A第142题组合框控件是将()组合成一个控件.A:列表框控件和文本框控件 B:标签控件和列表框控件C:标签控件和文本框控件 D:复选框控件和选项按钮控件答案：A第143题要清除组合框Combol中的所有内容,可以使用()语句.A:Combo1.Cls B:Combo1.ClearC:Combo1.Delete D:Combo1.Remove答案：B第144题标签控件最重要的属性是().A:caption B:text C:name D:width 答案：A第145题欲使标签的内容自动换行,必须设置属性().A:AutoSize B:Alignment C:left D:WordWrap答案：D第146题组合框有三种风格,它们由Style属性所决定,其中为下拉列表框时,Style属性值应为().A:0 B:1 C:2 D:3答案：C第147题函数Int(10*Rnd)是在()范围内的整数.A:0,1 B:1,10 C:1,9 D:0,9答案：D第148题 假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是().A:BOOLVAR=TRUE B:BOOLVAR=.TRUE. C:BOOLVAR=#TRUE# D:BOOLVAR=3=B And B=C And C0 B:A+CB And B+CA And C0C:(A+C)=C And A-C 0 D:A+BC And A-BC And C0答案：B第150题 窗体的Enable属性的属性值是()类型的数据.A:整型 B:字符型 C:逻辑型 D:实型答案：C第151题要使文本框中的文本显示掩码(密码)符,在属性设置时,首先必须设置()属性为False.A:Text B:Enabled C:Visible D:Multiline答案：D第152题 如果在图片框上使用绘图方法绘制一个圆,则图片框的()属性不会对该圆的外观产生影响.A:BackColor B:ForeColor C:DrawWidth D:DrawStyle答案：B第153题 表达式(-1)*Sgn(-100+Int(Rnd*100)的值是().A:0 B:1 C:-1 D:随机数答案：B第154题如果要改变窗体的标题,则需要设置的属性是().A:Caption B:Name C:BackColor D:BorderStyle答案：A第155题 任何控件都具有的属性是().A:TEXT B:CAPTION C:NAME D:FORECOLOR答案：C第156题RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB(红.绿.蓝),括号中红、绿、蓝三基色的成分使用0255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置()属性.A:Max和Min B:Smallchange和 LargeChangeC:Scroll和Change D:Value答案：A第157题 下列各种窗体事件中,不能由用户触发的事件是().A:Load事件和Unload事件 B:Click事件和Unload事件C:Click事件和Dbclick事件 D:Load事件和Initialize事件答案：D第158题 ()对象具有Clear方法.A:图片框 B:窗体 C:复选框 D:列表框答案：D第159题要将一个组合框设置为简单组合框(SimpleCombo),则应将其Style属性设置为().A:0 B:1 C:2 D:3答案：B第160题以下不具有Picture属性对象是().A:窗体 B:图片框 C:图像框 D:文本框答案：D第161题Cls方法可以清除窗体或图片框中的()内容.A:在设计阶段使用Picture设置的背景位图 B:在设计阶段放置的控件C:在运行阶段产生的图形和文字 D:以上全部内容答案：C第162题 以下这段在FORM的CLICK事件中的程序运行后的结果是().CurrentX=1500CurrentY=500Line-(3000,2000)Line-(1500,2000)Line-(1500,500)A:三条直线 B:矩形 C:三角形 D:等腰直角三角形答案：D第163题 窗体设计器是用来设计().A:应用程序的代码段 B:应用程序的界面 C:对象的属性 D:对象的事件答案：B第164题 组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由()属性决定.A:Style B:BoderStyle C:FillStyle D:DrawStyle答案：A第165题InputBox函数返回的函数值的类型是().A:数值 B:字符串 C:数值或字符串D:根据需要可以是任何类型数据答案：C第166题 函数Ucase(Mid(visualbasic,7,8)的值为().A:visual B:basic C:VISUAL D:BASIC答案：D第167题下列对象中没有焦点属性的是().A:命令按钮控件 B:窗口控件 C:文本框控件 D:单选框控件答案：B第168题 表达式25.28Mod6.99的值是().A:1 B:5 C:4 D:出错答案：C第169题如果要在命令按钮上显示图形文件,应设置命令按钮的().A:Style属性和Graphics属性 B:Style属性和Picture属性C:Picture属性 D:Graphics属性答案：B第170题改变控件在窗体中的左右位置应修改该控件的()属性.A:Top B:Left C:Width D:Right答案：B第171题当用户改变滚动条的value 属性时将激发滚动条的()事件.A:change B:scroll C:change 和scroll D:gotfocus答案：A第172题 为了把焦点移到某个指定的控件,所使用的方法是().A:SetFocus B:Visible C:Refresh D:GetFocus答案：A第173题在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示()事件过程模板.A:Form_Click B:Form_Load C:Form1_Click D:Form1_Load答案：B第174题 表达式X+1X是().A:算术表达式 B:非法表达式 C:字符表达式 D:关系表达式答案：D第175题 设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不能是().A:cmdc B:cmdb C:cmdA D:Command1答案：C第176题当事件能被触发时,()就会对该事件作出响应.A:对象 B:程序 C:控件 D:窗体答案：A第177题 每建立一个窗体,工程管理器窗口中就会增加一个().A:工程文件 B:窗体文件 C:程序模块文件 D:类模块文件答案：B第178题以下关于vb 语言的说法中,正确的是().A:vb 是一种面向过程的语言 B:vb 是一种面向对象语言C:vb是一种低级语言 D:vb 是一种机器语言答案：B第179题 在文本框中欲使掩码符(如*)起作用,必须设置MultiLine属性值为().A:False B:True C:-1 D:1答案：A第180题 控件内的对齐方式()属性决定.A:Alignment B:WordWrap C:AtuoSize D:Style答案：A第181题 每个窗体对应一个窗体文件,窗体文件的扩展名是().A:.bas B:.cls C:.frm D:.vbp答案：C第182题表达式Mid(SHANGHAI,6,3)的值是().A:SHANGH B:SHA C:ANGH D:HAI答案：D第183题为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为().A:5 B:500 C:300 D:5000答案：D第184题 下列关于属性设置的叙述错误的是().A:一个控件具有什么属性是VB预先设计好的,用户不能改变B:一个控件具有什么属性是VB预先设计好的,用户可以改变C:一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置D:一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值答案：A第185题要使标签所在处透明显示背景,应把其Backstyle属性设置为().A:0 B:1 C:2 D:3答案：A第186题 定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.A:分 B:秒 C:毫秒 D:微秒答案：C第187题 产生10,37之间的随机整数的VisualBasic表达式是().A:Int(Rnd()*27)+10 B:Int(Rnd()*28)+10C:Int(Rnd()*27)+11 D:Int(Rnd()*28)+11答案：B第188题以下的vb 常量中非法的是().A:Good Luck B:PIC:.0015 D:16.3412答案：B第189题函数Len(Str(Val(abc123.4abc678)的值为().A:11 B:5 C:6 D:8答案：C第190题下列方法中可用于列表框动态添加数据的是().A:add B:additem C:addlist D:removeitem答案：B第191题下列说法正确的是().A:对象属性只能在属性窗口中设置B:一个新的工程可以在工程窗口中建立C:必须先建立一个工程,才能开始设计应用程序D:只能在代码窗口中编写程序代码答案：C第192题用键盘的光标键选中某一菜单项,并按回车将触发菜单的()的事件.A:KeyPress B:KeyDown C:Click D:KeyUp答案：C第193题()对象不能作为控件的容器.A:Form B:PictureBox C:Shape D:Frame答案：C第194题变量未赋值时,数值型变量的值为().A:0 B:空 C:1 D:无任何值答案：A第195题 要使得窗体在出现之前就完成相关的程序设置可在()事件中进行编程.A:linkopen B:KeyPress C:load D:click答案：C第38题如果在模块的声明段中有Option Base 0语句,则在该模块中使用Dim a(6, 3 To 5)声明的数组有【1】个元素.答案： 1). 21第1题 将命令按钮Comm