VB程序设计题库全
VB题库(带答案)

VB题库(带答案)VB练习题1.下面哪一个叙述为正确的?D(A)VB的编程非常简单,只要将窗体上的控件设置好,再将控件的属性按要求设置即可完成程序的编制。
(B)VB的特点中的可视化编程是指随时可使用打印预览看一下效果。
(C)VB的特点中的事件驱动机制是系统已经编制好的一些针对控件的程序,可以直接调用。
(D)VB系统提供了数据库管理功能。
2.下面哪一个叙述为错误的?D(A)VB的编程非常简单,因为系统提供了很多编制好的控件,可直接放到界面上使用。
(B)VB是面向对象的程序设计,并且具有结构化的程序设计语言。
(C)VB的特点中的事件驱动机制是系统可以感知一些动作,当该动作产生时自动去执行对应的事件过程。
(D)VB系统没有提供数据库管理功能。
3.下面哪一个叙述为正确的?B(A)VB源程序有工程文件、窗体文件、模块文件等,工程文件包含所有的文件,源程序备份只需要备份工程文件即可。
(B)VB源程序有工程文件、窗体文件、模块文件等,工程文件包含所有的文件,源程序备份需要备份所有相关文件。
(C)VB源程序有工程文件、窗体文件、模块文件等,源程序备份只需要备份窗体文件和模块文件即可。
(D)VB源程序如果有多个窗体文件,没有模块文件,源程序备份只需要备份窗体文件即可。
4.VB窗体设计器的主要功能是:A(A)建立用户界面(B)编写程序代码(C)画出图形控件(D)显示标准控件5下面哪一个叙述为正确的?A(A)在安装有VB系统程序的计算机上,修改一个以前编制的VB源程序,只需要双击工程文件即可。
(B)在安装有VB系统程序的计算机上,修改一个以前编制的VB源程序,只需要双击窗体文件即可。
(C)在安装有VB系统程序的计算机上,修改一个以前编制的VB源程序,只需要双击模块文件即可。
(D)在安装有VB系统程序的计算机上,修改一个以前编制的VB源程序,双击源程序中的任何文件都不能打开源程序。
6.什么是对象?A(A)对象是具有特殊属性和行为方式的实体。
VB程序设计考试题库——考试专用

程序设计题1、题目:(事件)单击窗体(响应)用输入框输入一自然数,判断是"正数"、"负数或"零",并根据输入的数用消息框显示"正数"、"负数〞或"零"。
2、题目:(事件)单击窗体。
(响应)求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中3、题目:单击窗体。
(响应)S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上。
4、题目:(事件)单击窗体。
(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项,并求其和,将和保存在变量s中。
5、题目:(事件)双击窗体。
(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚〕,求出其所有的换法,把结果输出在窗体上。
将所有的换法的数目存入变量N中6、题目:单击窗体。
)求1!+2!+3!+4!+5!并将结果输出到窗体上。
结果存入变量S中7、题目:(事件)单击窗体。
(响应)生成一个一维数组(10个数组元素依此为:' 15、23、72、43、96、23、3、65、88、17写程序求出这个数组中的最大值、最小值和平均值,并输出在窗体上。
将最大值,最小值,平均值分别存入变量Ma*,Min,Aver中8、题目:(事件)单击窗体。
(响应)在窗体上输出100~200之间的所有合数。
求出所有数之和存入SUM 中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。
9、题目:(事件)单击窗体。
(响应)求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L 中。
10、题目:(事件)单击窗体。
(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。
将结果存入变量J中。
1题n = InputBo*("输入一个自然数")If n > 0 Thenresult = "正数"ElseIf n < 0 Thenresult = "负数"ElseIf n = 0 Thenresult = "零"End IfMsgBo* "输入的数据" & n & "为:" & result2题Dim i As IntegerFor i = 201 To 300If ((i Mod 3) = 0) And ((i Mod 7) = 0) ThenPrint (CStr(i))sum = sum + iEnd IfNe*tPrint sum3题Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i ^ i)Ne*tPrint (s)4题Dim i, j, k, m As Integers = 0 :i = 2:j = 1For k = 1 To 10s = s + i / jm = jPrint (CStr(i)) & "/" & CStr(j)j = ii = i + mNe*t5题Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If ((i + 2 * j + k * 5) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNe*tNe*tNe*t6题Dim i, j, k As IntegerFor i = 1 To 5k = 1For j = 1 To ik = k * jNe*ts = s + kNe*tPrint (CStr(s))7题Dim a(9) As IntegerDim i, s As Integera(0) = 15:a(1) = 23:a(2) = 72 a(3) = 43:a(4) = 96:a(5) = 23 a(6) = 3:a(7) = 65:a(8) = 88a(9) = 17:ma* = a(0):min = a(0) s = 0For i = 0 To 9If a(i) > ma* Thenma* = a(i)End IfIf a(i) < min Thenmin = a(i)End Ifs = s + a(i)Ne*taver = Int(s / 10)Print (CStr(ma*))Print (CStr(min))Print (CStr(aver))8题Dim i, j, s As IntegerFor i = 100 To 200For j = 2 To Sqr(i)If (i Mod j) = 0 ThenPrint (CStr(i))sum = sum + iE*it ForEnd IfNe*tNe*tPrint sum9题Dim i%,j%,b As Booleanl = 1:b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNe*tIf b = False Thenl = l * iEnd Ifb = FalseNe*tPrint Str(l)10题Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Then j = j - 1 / iEnd IfNe*tPrint j11、题目: (事件)单击窗体。
VB题库

作业一简单VB程序设计1.在VB程序设计中,响应对象的外部动作称为_____,而对象可以执行的动作或对象本身的行为则称为_____。
(A)方法,事件(B)事件,方法(C)属性,方法(D)过程,事件2.在VB6.0集成开发环境中不能完成的工作是_____。
(A)输入和编辑源程序(B)编译生成可执行程序(C)调试运行程序(D)自动查找并改正程序中的错误3.VB6.0集成开发环境不包括_____。
(A)DOS界面窗口(B)窗体窗口(C)代码窗口(D)属性窗口4.当运行程序时,系统自动执行启动窗体的_________事件过程。
(A)Load (B)Click(C)Unload (D)GotFocus5.用一个程序段对一对象被单击(或双击)作出响应,从而实现指定的操作,称为______。
(A)可视画化程序设计(B)事件驱动编程机制(C)过程化程序实际方法(D)非过程化程序设计语言6.Visual Basic有三种工作模式,它们分别是______模式。
(A)设计、编译和运行(B)设计、运行和中断(C)设计、运行和调试(D)编译、运行和调试7.Visual Basic的一个应用程序至少包含一个_______文件,该文件存储窗体上使用的所有控件对象和有关的_______、对象相应的_______过程和_______代码。
(A)模块、方法、事件、程序(B)窗体、属性、事件、程序(C)窗体、程序、属性、事件(D)窗体、属性、事件、模块8.在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体中的窗口、属性窗口外,必不可少的窗口是______。
(A)窗体布局窗口(B)立即窗口(C)代码窗口(D)监视窗口9.保存新建的工程时,默认的路径是_________。
(A)My Documents (B)VB98(C)\ (D)Windows10.若要使标签控件显示时不覆盖其背景内容,要对______属性进行设置。
(A)BackColor (B)BorderStyle(C)ForeColor (D)BackStyle11.文本框没有______属性。
vb考试试题题库及答案

vb考试试题题库及答案VB(Visual Basic)是一种由微软公司开发的编程语言,广泛用于开发Windows应用程序。
以下是一些VB考试的试题题库及答案,供参考:一、单选题1. 在VB中,以下哪个是正确的数据类型?- A. Integer- B. Real- C. String- D. All of the above答案:D2. VB中的“Sub”过程与“Function”过程的区别是什么?- A. Sub过程可以返回值,Function过程不能- B. Function过程可以返回值,Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案:B3. 在VB中,以下哪个是正确的变量声明方式?- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案:C二、多选题1. VB中的控件可以具有哪些属性?- A. Name- B. Caption- C. Font- D. All of the above答案:D2. VB中,以下哪些是事件驱动的编程语言的特点?- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案:A, B, C三、判断题1. VB是一种编译型语言。
- 正确- 错误答案:错误2. 在VB中,可以使用“Print”方法在文本框中显示文本。
- 正确- 错误答案:正确3. VB中的“Option Explicit”语句可以强制声明所有变量。
- 正确- 错误答案:正确四、简答题1. 简述VB中的事件和方法的区别。
答案:事件是用户或系统触发的动作,如点击按钮、键盘输入等。
方法是一种过程,可以包含代码来执行特定的任务或计算。
事件通常与控件相关联,并可以触发方法的执行。
2. 解释VB中“类”的概念。
Vb操作题题库(含答案)

VB填空题:1、Visual Basic 6.0分为3种版本,这3种版本是______、______和______。
其中,最完整的是______。
答案:1:学习版#专业版#企业版2:学习版#专业版#企业版3:学习版#专业版#企业版4:企业版知识点:VB知识点/第一章2、可以通过______快捷键或______快捷键退出Visual Basic。
答案:1:Alt+F4#Alt+Q2:Alt+F4#Alt+Q知识点:VB知识点/第一章3、传统的程序设计语言主要是面向______的,而现在涌现出的许多可视化程序设计语言,如Visual Basic主要是面向______进行程序设计的。
答案:1:过程#问题2:对象知识点:VB知识点/第一章4、在面向对象程序设计中,对象是由______和______组成的概念。
答案:1:代码#数据2:代码#数据知识点:VB知识点/第一章5、Visual Basic开发环境中,在标题栏的方括号内能指出目前正处在______、______状态或______状态。
答案:1:设计#中断#运行#设计状态#中断状态#运行状态2:设计#中断#运行#设计状态#中断状态#运行状态3:设计#中断#运行#设计状态#中断状态#运行状态知识点:VB知识点/第一章6、在设计模式下,工程中的某个窗体没有出现,可通过双击______窗口中的相应窗体名来使之出现。
答案:1:工程资源管理器知识点:VB知识点/第一章7、Visual Basic开发环境中,当属性窗口在界面上末出现时,可使用______菜单中的______选项让它显示出来。
答案:1:视图2:属性窗口知识点:VB知识点/第一章8、在属性窗口中,属性显示方式分为两种,即按______顺序和按______顺序,分别通过单击相应的按钮来实现。
答案:1:字母#分类2:字母#分类知识点:VB知识点/第一章9、菜单命令中有"…"标记表示该命令是一个______的命令。
VB题库,全

『单项选择』以下关于vb 语言的说法中,正确的是(B).A:vb 是一种面向过程的语言B:vb 是一种面向对象语言C:vb是一种低级语言D:vb 是一种机器语言变量未赋值时,数值型变量的值为(A).A:0B:空C:1D:无任何值窗体的Caption属性的作用是(B).A:确定窗体的名称B:确定窗体的标题C:确定窗体的边界类型D:确定窗体的字体(D)对象具有Clear方法.A:图片框B:窗体C:复选框D:列表框vb 程序设计中的窗体在OOP 中称为(C).A:屏幕B:事件C:对象D:控件VisualBasic集成环境的大部分窗口都可以从主菜单项(B)的下拉菜单中找到相应的打开命令.A:编辑B:视图C:格式D:调试当一个对象(如窗体或图片框)被移动或改变大小之后,或当一个覆盖该窗体被移开之后,如果要保持该所画图形的完整性,可以选择触发(A)事件来完成图形的重画工作.A:PaintB:LoadC:ClickD:ActiveVisualBasic的编程机制是(D).A:可视化B:面向对象C:面向图形D:事件驱动答案:D〖第9题〗『单项选择』(2分)(题号:231)vb 中的坐标系最小刻度为(A).A:缇B:象素C:厘米D:一个标准字符宽度窗体设计器是用来设计(B).A:应用程序的代码段B:应用程序的界面C:对象的属性D:对象的事件Rnd函数不可能产生的(B)值.A:0B:1C:0.1234D:.00005RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB (红.绿.蓝),括号中红、绿、蓝三基色的成分使用0~255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置(A)属性.A:Max和MinB:Smallchange和LargeChangeC:Scroll和ChangeD:Value不管一个对象的属性如何设置,程序运行时始终都能接收焦点的方法是(D).A:用Tab键B:用鼠标C:用方向键D:不能实现vb 中的坐标圆点位于(B).A:容器右上角B:容器左上角C:容器正中央D:容器右下角VisualBasic是一种(B)程序设计语言.A:过程式B:非过程式C:机器D:低级VB认为下面(A)组变量是同一个变量.A:A1和a1B:SUM和SUMMARYC:A VER和A VERAGED:A1和A_1vb 应用程序是分层管理的,其最高的层次为(A). A:工程B:模块C:窗体D:过程(C)对象不能作为控件的容器.A:FormB:PictureBoxC:ShapeD:FrameVB应用程序的运行模式是(C).A:解释运行模式B:编译运行模式C:两者都有D:汇编模式窗体的Enable属性的属性值是(C)类型的数据.A:整型B:字符型C:逻辑型D:实型INT(100*RND(1))产生的随机整数的闭区间是(A). A:[0,99]B:[1,100]C:[0,100]D:[1,99](D)对象不具有Caption属性.A:LabelB:OptionC:FormD:Timer"对象"是计算机系统运行的(D).A:程序单位B:逻辑单位C:物理实体D:基本实体函数InStr("VB程序设计教程","程序")的值为(C). A:1B:2C:3D:4语句PRINT"INT(-13.2)";INT(-13.2)的输出结果为(D).A:INT(-13.2)=-13.2B:INT(-13.2)=13.2C:INT(-13.2)=-13D:INT(-13.2)=-14产生[10,37]之间的随机整数的VisualBasic表达式是(B). A:In t(Rnd(1)*27)+10B:Int(Rnd(1)*28)+10C:Int(Rnd(1)*27)+11D:Int(Rnd(1)*28)+11表达式4+5\6*7/8Mod9的值是(B).A:4B:5C:6D:7表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(C).A:4^5B:3*4C:x+1D:SIN代数式exSin(300)2x/(x+y)lnx对应的VB表达式是(C).A:E^X*Sin(30*3.14/180)*2*x/x+y*log(x)B:Exp(x)*Sin(30)*2*x/(x+y)*ln(x)C:Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*log(x)D:Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*ln(x)设a=6,则执行x=IIf(a>5,-1,0)后,x的值为(D).A:5B:6C:0D:-1Line(100,100)-Step(400,400)将在窗体(C)画一直线.A:(200,200)到(400,400)B:(100,100)到(300,300)C:(100,100)到(500,500)D:(100,100)到(400,400)代数式x1-|a|+ln10+sin(x2+2л)/cos(57o)对应的VisualBasic 表达式是(A).A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)B:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57*3.14/180)C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)D:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57)表达式25.28Mod6.99的值是(C).A:1B:5C:4D:出错常量-0.00013579的科学计数法是(C).A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4以下各表达式中, 计算结果为0的是(D).A:INT(12.4)+INT(-12.6)B:CINT(12.4)+CINT(-12.6)C:FIX(13.6)+FIX(-12.6)D:FIX(12.4)+FIX(-12.6)系统符号常量的定义通过(A)获得.A:对象浏览器B:代码窗口C:属性窗口D:工具箱表达式Mid("SHANGHAI",6,3)的值是(D).A:SHANGHB:SHAC:ANGHD:HAI表达式X+1>X是(D).A:算术表达式B:非法表达式C:字符表达式D:关系表达式\、/、Mod、*等4个算术运算符中,优先级最低的是(C). A:B:/C:ModD:*函数Int(10*Rnd)是在(D)范围内的整数.A:[0,1]B:[1,10]C:[1,9]D:[0,9]函数Ucase(Mid("visualbasic",8,8))的值为(D).A:visualB:basicC:VISUALD:BASIC如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是(B). A:0.01*int(x+0.05)B:0.01*int(100*(x+0.005))C:0.01*int(100*(x+0.05))D:0.01*int(x+0.005)不能正确表示条件"两个整型变量A和B之一为0,但不能同时为0"的布尔表达式(D).A:A*B=0ANDA<>BB:(A=0ORB=0)ANDA<>BC:A=0ANDB<>0ORA<>0AND B=0D:A*B=0AND(A=0ORB=0)标准工具箱中的控件(B).A:数目是固定不变的B:数目可以增加或减少C:包含了VisualBasic所有控件D:在窗体建立对象时不一定被使用表达式(7\3+1)*(18\5-1)的值是(C).A:8.76B:7.8C:6D:6.67表达式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是(C).A:0.48B:0.048C:.5D:.05函数Len(Str(Val("123.4")))的值为(C).A:11B:5C:6D:8求以10 为底X 的常用对数的表达式为(A).A:LOG(X)/LOG(10)B:LN(X)C:LOG(X)/LOG(E)D:LOG(X)语句listl.removeitem 1 将删除list.listindext等于(D)的项目..A:0B:2C:3D:1以下可以作为VB变量名的是(B).A:SIN B:CO1 C:COS(X) D:X(-1)MSGBOX函数中有4个参数,其中必须写明的参数是(C).A:指定对话框中显示按钮的数目B:设置对话框标题C:提示信息D:所有参数都是可选的要在图片框P1中打印字符串"HowAreYou",应使用语句(C).A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou"InputBox函数返回的函数值的类型是(C).A:数值B:字符串C:数值或字符串D:根据需要可以是任何类型数据要使得标签能自动扩充以满足字体大小则可对其(C)属性进行设置. A:alignmentB:usemnemonicC:autosizeD:tag如果要在命令按钮上显示图形文件,应设置命令按钮的(B).A:Style属性和Graphics属性B:Style属性和Picture属性C:Picture属性D:Graphics属性要在命令按钮控件上显示图像应(C).A:设置Picture属性B:实现不了C:先将Type设置为1,然后再设置Picture属性D:以上都不对工具栏中的"启动"按钮的作用是(A).A:运行一个应用程序B:运行一个窗体C:工程管理窗口D:打开被选中对象的代码窗口下列字符串常量中,最大的是(C).A:"北京"B:"上海"C:"天津"D:"广州"货币型数据需(D)字节.A:2B:4C:6D:8设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是(B).A:TrueB:FalseC:1D:出错信息列表框控件中的列表内容是通过(C)属性设置的.A:NameB:CaptionC:ListD:Text下列哪一种文件打开方式是以顺序文件方式打开文件并作写操作(A). A:Open "c:\file1.dat"For Output as #1B:Open "c:\file1.dat" For Input as #1C:Open "c:\file1.dat" For Append as #1D:Open "c:\file1.dat" For Write as #1清除列表框的所有选项应选择下列哪种方法(A).A:ClearB:ClsC:ClearItemD:RemoveItem要使标签所在处透明显示背景,应把其Backstyle属性设置为(A).A:0B:1C:2D:3骰子是一个正六面体,分别用1~6 代表这六个面,掷一次骰子出现的数可表示为(A).A:int(rnd*6+1)B:int(rnd*6)C:int(rnd*7)D:int(rnd(6)+1)下列数据类型中,占用内存最小的是(B).A:BooleanB:ByteC:IntegerD:Single要使得窗体一开始运行就充满整个屏幕则须设置()属性.A:borderstyleB:appearanceC:windowstateD:drawmode下面(C)是日期型常量.A:"12/19/99"B:12/19/99C:#12/19/99#D:{12/19/99}以下叙述中错误的是(C).A:打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件B:保存VisualBasic程序时,应分别保存窗体文件及工程文件C:VisualBasic应用程序只能以解释方式执行D:事件可以由用户引发,也可以由系统引发将焦点主动设置到指定的控件或窗体上,应采用(B)方法.A:SetDataB:SetFocusC:SetTextD:GetGata下列(A)是窗体的扩展名.A:frmB:basC:clsD:dll下列语句中正确的是(D).A:txt1.text+txt2.text=txt3.textB:=cmdokC:12label.caption=1234D:a=inputbox(hello)形状控件所显示的图形不可能是(D).A:圆B:椭圆C:圆角正方形D:等边三角形以下控件中不属于容器的是(C).A:Form控件B:PictureBoxC:ImageD:Frame如果TAB函数的参数小于1,则打印位置在第(B)列.A:0B:1C:2D:3将CommonDialog通用对话框的类型设置为字体对话框,可设置该控件的(D)属性.A:FontB:FilterC:flagsD:Action要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBar属性设置为(D).A:0B:1C:2D:3已知A?B?C中C最小,则判断A?B?C可否构成三角形三条边长的逻辑表达式是(B).A:A>=B And B>=C And C>0B:A+C>B And B+C>A And C>0C:(A+C)>=C And A-C <=C) And C>0D:A+B>C And A-B>C And C>0退出VisualBasic的快捷键是(C).A:Ctrl+QB:Shift+QC:Alt+QD:Ctrl+Alt+Q下列方法中可用于列表框动态添加数据的是(B).A:addB:additemC:addlistD:removeitem运行下面的程序:CLSLINE (100,100)-(200,50)LINE - (150,150)LINE -(100,100)屏幕上显示的是(D).A:三条放射形直线B:四条放射形直线C:矩形D:三角形不具有输入数据功能的控件是(D)控件.A:文本框B:选项按钮C:列表框D:窗体以下这段在FORM的CLICK事件中的程序运行后的结果是(D). CurrentX=1500CurrentY=500Line-(3000,2000)Line-(1500,2000)Line-(1500,500)A:三条直线B:矩形C:三角形D:等腰直角三角形为使文本框显示滚动条,必须首先设置的属性是(A).A:MulitilineB:AutosizeC:AlignmentD:Scrollbars设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不能是(C).A:cmdcB:cmdbC:cmdAD:Command1设组合框Combo1中有3个项目,则以下能删除最后一项的语句是(B). A:Combo1.RemoveItemTextB:Combo1.RemoveItem2C:Combo1.RemoveItem3D:Combo1.RemoveItemCombo1.Listcount如果在图片框上使用绘图方法绘制一个圆,则图片框的(B)属性不会对该圆的外观产生影响.A:BackColorB:ForeColorC:DrawWidthD:DrawStyle为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为(D).A:5B:500C:300D:5000激活属性窗口使用的键是(C).A:F2B:F3C:F4D:F5如果没有在列表框中选择项目,且列表框的MultiSelect属性值为默认值(0~None),则执行语名List1.RemoveItemList1.ListIndex的结果是(C).A:删除列表框的最后一项B:删除列表框的第一项C:出错D:删除列表框中的最后添加的一项为了在按下回车键时执行某个按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是(D).A:ValueB:CancleC:EnableD:Default要想返回文本框中输入的内容则可利用其(B)属性进行编程.A:captionB:textC:nameD:righttoleft每个窗体对应一个窗体文件,窗体文件的扩展名是(C).A:.basB:.clsC:.frmD:.vbp控件是(A).A:建立对象的工具B:设置对象属性的工具C:编写程序的编辑器D:建立图形界面的编辑窗口下列可缩放图片的属性是(C).A:autosizeB:pictureC:stretchD:OleDrawMode设置列表框选中的文本用(D)属性.A:selectedB:captionC:textD:list为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择,则应将列表框的Multiselect属性设置为(C).A:0B:1C:2D:3列关于窗体上控件的基本操作错误的是(A).A:按一次DEL键只能删除一个控件B:按下一次DEL键可以同时删除多个控件C:按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件D:按住ALT键,然后单击每个要选择的控件,可以同时选中多个控件要在窗体上显示图片,需设置窗体的(C)属性.A:CaptionB:IconC:Picture D:ControlBox如果要改变窗体的标题,则需要设置的属性是(A).A:CaptionB:NameC:BackColorD:BorderStyle1、在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。
大学VB考试题库(2020年九月整理).doc

大学VB考试题库一、单项选择题1、与传统的程序设计语言相比,Visual Basic最突出的特点是()。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术2、赋值语句:a=123& MID("123456",3,2)执行后,a变量中的值是()。
A、"12334"B、123C、12334D、1573、保存一个工程至少应保存两个文件,这两个文件分别是(B)。
A、文本文件和工程文件B、窗体文件和工程文件C、窗体文件和标准模块文件D、类模块文件和工程文件4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是(C)。
A、="VisualBasic窗体"B、Form1.Title="VisualBasic窗体"C、Form1.Caption="VisualBasic窗体"D、Form1.Text="VisualBasic窗体"5、为了装入一个VisualBasic应用程序,应当(D)A、只装入窗体文件(.frm)B、只装入工程文件(.vbp)C、分别装入工程文件和标准模块文件(.bas)D、分别装入工程文件、窗体文件和标准模块文件6、赋给一个数组的数据类型一定要(A)。
A、相同B、不相同C、两可D、都不对7、下面正确的赋值语句是(C)。
A、x+y=30B、y=π*r*rC、y=x+30D、3y=x8、VisualBasic 6.0集成环境的主窗口中不包括(C)。
A、标题栏B、菜单栏C、状态栏D、工具栏9、以下叙述中错误的是(C)。
A、Visual Basic 是事件驱动型可视化编程工具B、Visual Basic应用程序不具有明显的开始和结束语句C、Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性(计时器)D、Visual Basic中控件的某些属性只能在运行时设置10、要使Print方法在Form_Load事件中起作用,要对窗体的(C)属性进行设置。
VB程序设计考试题库(5)

VB程序设计考试题库(5)一、单选题(每题1分,共50题)1.以下关于Visual Basic特点的叙述中,正确的是(未填)。
错误正确答案:DA.构成Visual Basic程序的多个过程有其固定的执行顺序B.Visual Basic程序只可以编译运行,不可以解释运行C.Visual Basic采用面向对象的程序设计方法D.Visual Basic程序是结构化程序,具备结构化程序的三种基本结构2.在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体窗口、属性窗口外,必不可少的窗口是(未填)错误正确答案:CA.窗体布局窗口B.立即窗口C.代码窗口D.监视窗口3.在设计阶段,当双击窗体上的某一个文本框控件时,系统将在代码窗口中显示该文本框控件的(未填)事件过程模板。
错误正确答案:CA.ClickB.DblclickC.ChangeD.GotFocus4.文本框的(未填)属性用于设置或返回文本框中的文本内容。
错误正确答案:AA.TextC.Caption5.程序运行时,若要通过回车键调用某命令按钮的Click事件过程,则可设置该命令按钮的(未填)属性值为True来实现。
错误正确答案:CA.valueB.EnabledC.DefaultD.Cancel6.下列函数中,返回值的类型与其它3个不同的是(未填)。
错误正确答案:AA.NOW()B.HOUR()C.YEAR()D.DAY()7.表达式"Turbo"+"c">"Ture"+"Basic"的值是(未填)。
错误正确答案:BA.TRUEB.FALSEC.NullD.出错信息8.下列不能作为VB中的变量名的符号是(未填)。
错误正确答案:CA.A45C.89TaD.xy9.函数Len(str(val("-135.6")))的值是(未填)错误正确答案:BA. 11B. 6C. 5D. 810.为了给x,y,z三个变量赋初值1,下面正确的赋值语句是(未填)。
(完整word版)VB程序设计试题题库及答案.doc

VB程序设计笔试题题库一、选择题1 下列常量中,是 Integer类型常量的是(C )。
A、123&B、-38844C、123%D、327682 下面选项中 () 是字符连接运算符 . ( A )A、&B、AndC、%D、Mod3下面关于 VB 的集成开发环境( IDE )的叙述中,不正确的是(B )。
A、IDE是设计、调试、运行 VB程序的工具。
B、用户不能随意关闭 IDE中的窗口。
C、" 窗体设计 " 窗口是用来设计应用程序界面(窗体)的。
D、打开 / 关闭各窗口的命令主要在 IDE的" 视图 " 菜单中。
4 len( “程vb序设计”)=( C ) 。
A、 5B、2C、 6D、105 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2)执行后, A= ( A )。
A、157B、12334C、123D、"12334"7 在一个语句内写多条语句时 , 用来分隔每条语句的符号是 ( C ).A、,B、;C、:D、、8 将逻辑型数据转换成整型数据时,转换规则是( D )。
A、将 True 转换为 1 ,将 False 转换为 0B、将 True 转换为 1 ,将 False 转换为 -1C、将 True 转换为 0 ,将 False 转换为 -1D、将 True 转换为 -1 ,将 False 转换为 09 表达式 2+3*4^5-SIN(X+1)/2 中最先进行的运算是 ( D ).A、SINB、4^5C、3*4D、x+110 如果 x=2 ,则表达式 x+1>2 Or sin(x)>0.9 And 3>x+3 的值( B )。
A、不能计算B、 TrueC、5D、False11 随机产生 [10,50] 之间整数的正确表达式是( D )。
vb题库——精选推荐

一、选择题4、下列可作为VB变量名的是(B )。
A.c*Del B.Alpha C.4a D.print首为字母,且不能含有符号,不能含有关键字及标记符5、用于字符串连接的运算符是(D )。
A.& B.+ C.And D.A、B都可以+ ;连接两个字符串,或是将数值字符串变为数值与数值进行运算。
&;链接两个字符串,如果为数值型,则将其转为字符串在链接,若其前为变量,则需要加空格。
6、表达式33 MOD 17\3*2的值是(B)。
A.10 B.1 C.2 D.3乘方》负号》乘除》整除\ 》求余mod 》加减9、以下属于VB合法的数组元素是(D )。
A.x8 B.x[8] C.x(0) D.x{6}10、用Dim A (-3 To 3) As Integer语句定义的数组的元素个数是(D)。
A.4 B.5 C.6 D.711、执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是(A )。
A.Visual B.Basic C.6 D.1112、设a=10,b=5,c=1,执行语句Print a>b>c后,窗体上显示的是( B )。
A.True B.False C.1 D.出错信息15、命令钮标题热字的下划线,可通过( B )符号来设置。
A.\<B.& C._ D.\>18、命令按钮不支持(D )事件。
A.Keyup B.Keypress C.Click D.Dblclick22、假定窗体上有一个标签,名为Labell,为了使该标签透明并且没有边框,则正确的属性设置为(A )。
A.Label1.BackStyle=0 B.Label1.BackStyle=1Label1.Borderstyle=0 Label1.Borderstyle=1C.Label1.BackStyle=True D.Label1.BackStyle=FalseLabel1.BorderStyle=True Label1.Borderstyle=False23、以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是(C )。
大学VB考试题库完整

大学VB考试题库一、单项选择题1、与传统的程序设计语言相比,Visual Basic最突出的特点是(C)。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术2、赋值语句:a=123& MID("123456",3,2)执行后,a变量中的值是(C)。
A、"12334"B、123C、12334D、1573、保存一个工程至少应保存两个文件,这两个文件分别是(B)。
A、文本文件和工程文件B、窗体文件和工程文件C、窗体文件和标准模块文件D、类模块文件和工程文件4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是(C)。
A、="VisualBasic窗体"B、Form1.Title="VisualBasic窗体"C、Form1.Caption="VisualBasic窗体"D、Form1.Text="VisualBasic窗体"5、为了装入一个VisualBasic应用程序,应当(D)A、只装入窗体文件(.frm)B、只装入工程文件(.vbp)C、分别装入工程文件和标准模块文件(.bas)D、分别装入工程文件、窗体文件和标准模块文件6、赋给一个数组的数据类型一定要(A)。
A、相同B、不相同C、两可D、都不对7、下面正确的赋值语句是(C)。
A、x+y=30B、y=π*r*rC、y=x+30D、3y=x8、VisualBasic 6.0集成环境的主窗口中不包括(C)。
A、标题栏B、菜单栏C、状态栏D、工具栏9、以下叙述中错误的是(C)。
A、Visual Basic 是事件驱动型可视化编程工具B、Visual Basic应用程序不具有明显的开始和结束语句C、Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性(计时器)D、Visual Basic中控件的某些属性只能在运行时设置10、要使Print方法在Form_Load事件中起作用,要对窗体的(C)属性进行设置。
VB程序设计考试题库(9)

VB程序设计考试题库(9)一、单选题(每题1分,共50题)1.以下不属于Visual basic的工作模式的是()模式。
正确答案:AA。
编译 B.设计 C.运行 D。
中断2.VB集成开发环境有三种工作状态,不属于其中之一的是( )。
正确答案:BA.设计状态B.写代码状态C。
运行状态D。
中断状态3。
下列属性中,文本框控件不具有的属性是()。
正确答案:BA.Backcolor B。
Caption C.Passwordchar D。
Enabled4。
以下能够触发文本框Change事件的操作是( )。
正确答案:DA。
文本框失去焦点B。
文本框获得焦点C。
设置文本框的焦点 D.改变文本框的内容5。
函数Int(Rnd*6+1)的取值范围是()。
正确答案:CA。
从1到7共7个整数B。
从0到7共8个整数C。
从1到6共6个整数D.从0到6共7个整数6.可以同时删除字符串前导和尾部空白的函数是()。
正确答案:CA.Ltrim B。
Rtrim C。
Trim D.Mid7.有如下程序:a$=”Flying”:b$="IS":c$=”funny!"Print a$+” ”+Lcase$(b$)+” "+Ucase$(c$)End运行后,输出结果是()。
正确答案:BA。
Flying Is funny! B.Flying is FUNNY!C。
Flying IS FUNNY!D。
FLYING IS FUNNY!8。
表示学习成绩(score)在75分和90分之间的逻辑表达式是().正确答案:AA.score〉=75 And score〈=90B.score〉=75 0r score<=90C.score〈=75 And score>=90D.score<=75 0r score>=909.表达式4+5 \ 6 * 7 / 8 Mod 9 的值是()。
正确答案:BA.4B.5 C。
vb程序设计题库及答案详解

vb程序设计题库及答案详解在编写VB程序设计题库及答案详解时,我们通常会按照以下结构进行排版:1. 题目编号:为每个题目分配一个唯一的编号,方便索引和查找。
2. 题目描述:清晰地描述题目要求,包括输入、输出、功能等。
3. 解题思路:简要说明解题的步骤和方法。
4. 代码实现:提供完整的VB代码实现,包括必要的注释。
5. 运行结果:展示程序运行后的结果,可以是截图或文本描述。
6. 注意事项:列出在编写程序时应注意的问题或常见的错误。
7. 拓展思考:提供一些拓展问题或变体,引导读者进一步思考。
以下是一篇符合标题的正文内容示例:题目编号:001题目描述:编写一个VB程序,实现用户输入两个整数,程序输出这两个整数的和。
解题思路:1. 使用InputBox函数获取用户输入的两个整数。
2. 将输入的字符串转换为整数类型。
3. 计算两个整数的和。
4. 使用MsgBox函数显示结果。
代码实现:```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Val(InputBox("请输入第一个整数:"))num2 = Val(InputBox("请输入第二个整数:"))sum = num1 + num2MsgBox "两个整数的和是:" & sum```运行结果:程序将弹出两个输入框,用户输入两个整数后,将显示一个消息框,展示这两个整数的和。
注意事项:- 确保输入的是整数,否则Val函数可能会失败。
- 输入框中不要包含非法字符。
拓展思考:- 如果用户输入的不是数字,程序应如何处理?- 能否修改程序,使其能够计算两个数的平均值而不是和?请注意,这只是一个示例,实际的题库及答案详解会根据具体题目的不同而有所变化。
VB语言程序设计试题库

VB 程序设计一、判断题1. 同一Form 窗体中的各控件可以相互重叠,其显示的上下层次的次序不可以调整。
( X )2. 一个对象的若能识别多个事件,我们只能对其中一个事件编程()3. 单选按钮与复选框对象的 Value 属性类型不同,且只能取值 True 和False。
(√)4. 事件过程由某个用户事件或系统事件触发执行,它不能被其他过程调用。
()5. 图片框的Move 方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值。
(√)6. “A=B=C”是一个合法的 Visual Basic 语句。
()7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时,组合框会自动把这一条目添加到它的列表框中。
()8. Visual Basic 程序的运行可以从 Main ()过程启动,也可以从某个窗体启动。
(√)9. 在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外。
()10. 对于文件系统控件,当驱动器控件 Drivel 中的驱动器符改变时,文件夹列表控件 Dir1 中显示的文件夹也作相应的改变,可以在Drive1 中的Change 事件中使用如下命令。
Dir1. Path= Drive1. Drive(√)11. 滚动条控件可作为用户输入数据的一种方法。
(√)12. 单选按钮控件和复选框控件都具有 Value 属性,它们的作用完全相同。
()13. 静态变量是一种局部变量,当原过程再次被执行时,静态变量的初值是上一次过程调用后的值。
(√)14. Visual Basic 提供的几种标准坐标系统的原点都是在绘图区域的左上角,如果要把坐标原点放在其他位置,则需使用自定义坐标系统。
(√)15.注释语句 REM 可自成一语句。
(√)16. 用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该菜单控件时,触发 KeyPress ()17. 组合框兼有文本框和列表框两者的功能,用户可以通过键人文本或选择列表中的项目来进行选择。
VB程序设计考试题库(2)

VB程序设计考试题库(2)VB程序设计考试(2)一、单选题(每题1分,共50题)1.关于Visual Basic应用程序,正确的叙述是(未填)。
错误正确答案:AA.Visual Basic程序运行时,总是等待事件被触发B.Visual Basic程序设计的核心是编写事件过程的程序代码C.Visual Basic程序是以线性方式顺序执行的D.Visual Basic的事件可以由用户随意定义,而事件过程是系统预先设置好的2.可视化编程的基本过程主要有3步,这3个步骤是(未填)。
错误正确答案:CA.创建工程、设计界面、编写代码B.创建工程、编写程序、保存程序C.设计界面、设置属性、编写代码D.设计界面、编写代码、调试程序3.窗体上有一个按钮和一个文本框,程序执行后,在文本框中输入12345,单击按钮后的输出结果为(未填)。
Private Sub Command1_Click()Dim A As Integer,B As IntegerText1.SelStart=2Text1.SelLength=2A=Val(Text1.SelText)B=Len(Text1.Text)Print A*BEnd Sub错误正确答案:CA.68C.170D.11704.VB中可用(未填)语句产生一消息框。
错误正确答案:DA.InputBoxB.ShiftC.BothD.MsgBox5.在窗体Form1的标题栏中显示“VisualBasic窗体"的命令是(未填)。
错误正确答案:C/doc/5173e546f68a6529647d27284b73f24 2336c3184.html ="VisualBasic窗体"B.Form1.Title="VisualBasic窗体"C.Form1.Caption="VisualBasic窗体"D.Form1.T ext="VisualBasic窗体6.以下(未填)是Visual Basic中合法的函数使用。
VB题库 (1)

'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目:(事件)单击窗体。
' (响应)求100以内偶数的和,并将结果输出在窗体上。
' 将结果存入变量SUM中'-------------------------------------------------【参考代码】Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum===============【考生代码】'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目:(事件)单击窗体。
' (响应)求1!+2!+3!+……+10!的值,并在窗体上输出。
' 结果存入变量L中。
'-------------------------------------------------【参考代码】Dim i As IntegerDim s As LongDim j As Integers = 1For i = 1 To 10s = s * il = l + sNextPrint Str(l)===============【考生代码】'------------------------------------------------'【程序改错】'------------------------------------------------'题目:求s=2!+4!+6!+8!,阶乘的计算用Function过程' fact实现'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim i As Integer, s As Long'**********ERROR**********For i = 2 To 8s = s + fact(i)Next iPrint sEnd Sub'**********ERROR**********Public Function fact()Dim t As LongDim i As Integert = 1For i = 1 To nt = t * iNext i'**********ERROR**********fact = iEnd Function【改错1】错误【学生答案】For i = 2 To 8【参考答案】For i=2 To 8 Step 2============================================================【改错2】错误【学生答案】Public Function fact()【参考答案】Public Function fact(ByVal n As Integer)Public Function fact(n As Integer)Public Function fact(n%)Public Function fact(n)Public Function fact(ByVal n%)Public Function fact(ByVal n)============================================================【改错3】错误【学生答案】fact = i【参考答案】fact = t============================================================'------------------------------------------------'【程序改错】'------------------------------------------------'题目:下面程序将10个整数从大到小排序'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim t%, m%, n%, w%Dim a(10) As IntegerFor m = 1 To 10a(m) = Int(10 + Rnd() * 90)Print a(m); " ";Next mPrintFor m = 1 To 9t = m'**********ERROR**********For n = 2 To 10'**********ERROR**********If a(t) > a(n) Then n = tNext n'**********ERROR**********If t = m Thenw = a(m)a(m) = a(t)a(t) = wEnd IfNext mFor m = 1 To 10Print a(m)Next mEnd Sub【改错1】错误【学生答案】For n = 2 To 10【参考答案】For n=m+1 To 10============================================================【改错2】错误【学生答案】If a(t) > a(n) Then n = t【参考答案】If a(t) < a(n) Then t=nIf a(n)>a(t) Then t=n============================================================【改错3】错误【学生答案】If t = m Then【参考答案】If t<>m ThenIf not t=m ThenIf not m=t then============================================================编写一个华氏温度和摄氏温度之间转换的程序,在窗体上添加2个标签、2个文本框、2个命令按钮,如图1所示,在属性窗体修改控件的属性,使其运行时图2所示。
最新版精选2019VisualBasic程序设计期末测试题库200题(含答案)

2019年Visual Basic 程序设计期末测试复习题200题[含答案]一、选择题1.在程序中使用日期型数据时,必须用符号____将日期型数据括起来。
a) @b) $c) %d) # 答案:D2.以下哪个是合法的变量名_______。
a) Lenb) Test@qwc) 6cost_1d) count2s 答案:D3.下列程序运行后,变量s的值为______。
J=0:s=0For I=1 To 4j=j+Is=s+jNext Ia) 20b) 10c) 5d) 15 答案:A4.下列程序段的执行结果是_____。
N=10For k=n To 1 Step-1x=Sqr(k)x=x-2Next kPrint x-2a) -3b) -1c) 1d) 1.16 答案:A5.可以通过_____来删除列表框中的选择项。
a) Enable属性b) RemoveItem方法c) AddItem方法d) Text属性答案:B6.写列选项中,合法的变量是______。
a) c%aaab) sum_3c) Elsed) 5persons 答案:B7.下面的运算符中,哪个是关系运算符______。
a) Notb) modc) <>d) & 答案:C8.整型变量占用的字节数为______。
a) 2个字节b) 3个字节c) 4个字节d) 5个字节答案:A9.8.6787E+8写成普通的十进制数是_______。
a) 86787000b) 867870000c) 8678700d) 8678700000 答案:B10.下列数据中哪一个是布尔常量_______。
a) 123b) notc) TRUEd) xyz 答案:C11.下列数据类型不可能占8个字节的是_____数据类型。
a) Dateb) Longc) Doubled) Currency 答案:B12.下列控件不能改变大小的有_______。
a) TextBoxb) Labelc) Timerd) PictureBox 答案:C13.若要将窗体隐藏起来,则实现的方法为_______。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
V B程序设计题库全 Document serial number【LGGKGB-LGG98YT-LGGT8CB-LGUT-程序设计第一题、题目:(事件)单击窗体(响应)求50以内所有偶数的和,并在窗体上输出来。
将结果存入变量S中。
代码:Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目:(事件)双击窗体(响应)求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码:Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目:(事件)单击窗体(响应)求100以内偶数的和,并将结果输出在窗体上。
将结果存入变量SUM中代码:Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目:(事件)单击窗体(响应)编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。
将结果存入变量M中。
代码:Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目:(事件)双击窗体(响应)求100以内奇数的和,并将结果输出在窗体上。
将结果存入变量SUM中。
代码:Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目:(事件)单击窗体(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码:Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目:(事件)双击窗体(响应)求1+1*2+1*2*3+....+1*2*3*. (10)并将结果存到变量S中代码:Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目:(事件)单击窗体(响应)求1—1/2+1/3—1/4+….+1/99—1/100的值。
将结果存入变量J中代码:Dim j As SingleDim i As Singlej=0For i = 1 To 100k=(-1)^(i+1)/ij=k+jNext iPrint j第九题题目:(事件)双击窗体(响应)s=20+21+22+…+263,求s的值,并将结果存储到变量S中。
代码:Dim s As Longs=20For s= 21 To 263b=s+1Sum=Sum+bNextPrint Sum第十题题目:(事件)单击窗体(响应)求出100以内所有素数的和,并将结果输出到窗体上,并存入所给变量SUM中代码:Dim sum As IntegerFor i = 1 To 100For j = 2 To i - 1Exit ForNext jNext iIf i Mod j = 0 ThenEnd IfIf j - i Thensum = sum + iEnd IfPrint sum第十一题题目:(事件)单击窗体(响应)编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。
将结果存入变量M中。
代码:Dim m As LongFor i = 1 To 6t =(i+9)*(i+10)*(i+11)m=m+tNextPrint m第十二题题目:(事件)单击窗体(响应)求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L中代码:Dim l As Longl=1For i=10 To 20For j=2 To i-1If i Mod j = 0 ThenExit ForEnd IfNext jIf j = i Thenl=l*iEnd IfNext iPrint l第十三题题目:(事件)单击窗体(响应)求50以内所有偶数的和,并在窗体上输出来。
代码:Dim s As Integers = 0For i = 2 To 50 Step 2s = s + iNext iPrint s第十四题题目:(事件)单击窗体(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…….的前十项,并求其和。
代码:Dim s As SingleDim a ()Dim b ()Dim c ()a(1) = 2b(1) = 1c(1) = a(1) / b(1)a(2) = 3a(2) = 2a(2) = a(2) / b(2)s=s+c(1)+c(2)For i = 3 To 10a(i)=a(i-1)+a(i-2)b(i)=b(i-1)+b(i-2)c(i)= a(i)/ b(i)s = s+c(i)NextPrint s第十五题题目:(事件)单击窗体(响应)求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中。
代码:Dim sum As Integersum = 0For i = 200 To 300If i Mod 3 = 0 And i Mod 7 = 0 Thensum = sum +iEnd IfNextPrint sum第十六题题目:(事件)双击窗体(响应)求出100~200之间,能被5整除,但不能被3整除的数。
并求出所有数之和,存入变量SUM中代码:Dim sum As Integersum=0For i = 100 To 200If i Mod 5 = 0 And i Mod 3<> 0 Thensum = sum +iEnd IfNextPrint sum第十七题题目:(事件)双击窗体(响应)求1!+2!+3!+4!+5!并将结果输出到窗体上。
结果存入变量S中代码:Dim s As Integers = 0t = 1For i = 1 To 5t = i*tSum = sum + tNextPrint Sum第十八题题目:(事件)双击窗体(响应)求3+6+9+12+15+18+…..+300的和,并将结果输出到窗体上。
将结果存入变量SUM中代码:Dim sum As Integersum = 0For i = 3 To 300 Step 3sum= sum +iNext iPrint sum第二种方法:当step为2的时候:Dim s As IntegerDim i As IntegerFor i=2 To 50 Step 2s = s+iNext iPrint s第十九题题目:(事件)单击窗体(响应)求10!的值,并将结果输出在窗体上。
将结果存入变量SUM中代码:Dim sum As LongDim i As Integersum = 1For i = 1 To 10sum = i*sumNextPrint sum第二十题题目:(事件)单击窗体(响应)求出100以内所有素数的和,并将结果输出到窗体上,并存入所给变量SUM中代码:Dim i As IntegerDim j As IntegerDim k As IntegerDim b As Booleanb = FalseFor i = 2 To 100b = Falsej = CInt(Sqr(i))For k = 2 To jIf i Mod k = 0 Thenb=TrueEnd IfNextIf b = False Thensum=sum+iEnd IfNextPrint sum第二十一题题目:(事件)单击窗体(响应)求200~300之间既能被3 整除又能被7整除的数。
并求出所有数之和存入变量SUM中代码:Dim i As IntegerFor i =201 To 300If ((i Mod 3)=0)And((i Mod 7)=0) ThenPrint(CStr(i))sum = sum +iEnd IfNextPrint sum第二十二题题目:(事件)单击窗体(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上。
将结果存入变量S中代码:Dim i As Integers=0For i = 1 To 10s = s + 1/(i^i)NextPrint(s)第二十三题题目:(事件)单击窗体(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…..的前10项,并求其和。
代码:Dim i ,j,k,m As Integers=oi=2j=1For k = 1 To 10m = jPrint (CStr(i))& “/” & CStr(j)j = ii=i+ms=s+i/jNext第二十四题题目:(事件)单击窗体(响应)一球从100米高度自由落下,每次落地返回。
原高度的一半,求第10次落地时,共经过多少米并将结果在窗体上输出。
代码:Dim j,i As Integers=0j=100For i = 2 To 10j=j / 2s=s+2*jNexts=100+sPrint(CStr(s))第二十五题题目:(事件)双击窗体(响应)s=20+21+22+…+263,求s的值,并将结果存储到变量s 中。
代码:Dim i As Integeri = 20while i <=263s=s+ii=i+1WendPrint(CStr(s))第二十六题题目:(事件)双击窗体(响应)求 s=1+1*2+1*2*3+…+1*2*3*…*10,并将结果存到变量S中代码:Dim i,j As IntegerDim k As Longk = 1s=0For i = 1 To 10For j = 1 To ik = k*jNexts=s+kk=1NextPrint(CStr(s))第二十七题题目:(事件)单击窗体。
(响应)求出1000-9999之间具有如下特点的四位数字,它的平方根恰好就是它中间的两位数字,例如,2500开平方为50,恰为2500的中间两位,找出所有这样的四位数。
并求出所有这样的数的和存入SUM中。
代码:Dim i As IntegerDim j As IntegerFor i = 1000 To 9999j= Val(Mid(Trim( Str(i)), 2, 2))If j ^ 2 = i ThenPrint i,sum = sum + iEnd IfNext第二十八题题目:(事件)双击窗体(响应)把一元钞票换成一分、二分、和五分的硬币(每种至少有一枚),求出其所有的换法,把结果输出在窗体上。