VB题库—程序设计[1]

合集下载

VB程序设计1

1．第1题单选题应用程序设计完成后，应将程序保存，保存的过程是（）A、只保存窗体文件即可B、只保存工程文件即可C、先保存工程文件，之后保存窗体文件D、先保存窗体文件（或标准模块文件），之后还要保存工程文标准答案：D您的答案：题目分数：5此题得分：0.0批注：2．第2题单选题下列不能打开属性窗口的操作是（）A、执行“视图”菜单中的“属性窗口”命令B、按F4键C、按Ctrl TD、单击工具栏上的“属性窗口”按钮标准答案：C您的答案：题目分数：5此题得分：0.0批注：3．第3题单选题 Visual Basic的编程机制是（）A、可视化B、面向对象C、面向图形D、事件驱动标准答案：D您的答案：题目分数：5此题得分：0.0批注：4．第4题单选题运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（）事件A、CLICKB、DBLCLICKC、GOTFOCUSD、CHANGE标准答案：D您的答案：题目分数：5此题得分：0.0批注：5．第5题单选题下面不是VB工作模式的是（）A、设计模式B、运行模式C、汇编模式D、中断模式标准答案：C您的答案：题目分数：5此题得分：0.0批注：6．第6题单选题为了防止用户随意将光标置于控件上，应（）A、将控件的TABINDEX属性设置为0B、将控件的TABSTOP属性设置为TRUEC、将控件的TABSTOP属性设置为FALSED、将控件的ENABLED属性设置为FALSE标准答案：D您的答案：题目分数：5此题得分：0.0批注：7．第7题单选题在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0A、INDEXB、TABINDEXC、TABSTOPD、ENABLED标准答案：B您的答案：题目分数：5此题得分：0.0批注：8．第8题单选题可视化编程的最大优点是（）A、具有标准工具箱B、一个工程文件由若干个窗体文件组成C、不需要编写大量代码来描述图形对象D、所见即所得标准答案：C您的答案：题目分数：5此题得分：0.0批注：9．第9题单选题 VB应用程序的运行模式是（）A、解释运行模式B、编译运行模式C、两者都有D、汇编模式标准答案：C您的答案：题目分数：5此题得分：0.0批注：10．第10题单选题在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（）A、Private Sub Text1_GotFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubB、Private Sub Text1_LostFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubC、Private Sub Text1_Change( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubD、Private Sub Text1_SetFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End Sub标准答案：A您的答案：题目分数：5此题得分：0.0批注：11．第11题单选题以下能够触发文本框Change事件的操作是（）A、文本框失去焦点B、文本框获得焦点C、设置文本框的焦点D、改变文本框的内容标准答案：D您的答案：题目分数：5此题得分：0.0批注：12．第12题单选题如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（）A、文本框的MULTILINE属性值为TRUEB、文本框的LOCKED属性值为TRUEC、文本框的MULTILINE属性值为FALSED、文本框的LOCKED属性为FALSE标准答案：B您的答案：题目分数：5此题得分：0.0批注：13．第13题单选题决定标签（Label）显示的属性是（）A、TextB、NameC、CaptionD、Alignment标准答案：C您的答案：题目分数：5此题得分：0.0批注：14．第14题单选题 Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（）A、属性、事件、事件过程B、控件、窗体、事件C、属性、过程、方法D、属性、事件、方法标准答案：D您的答案：题目分数：5此题得分：0.0批注：15．第15题单选题任何控件都具有的属性是（）A、TEXTB、CAPTIONC、NAMED、FORECOLOR标准答案：C您的答案：题目分数：5此题得分：0.0批注：16．第16题单选题命令按钮的标题文字由（）属性来设置。

vb程序设计试题(含答案)

第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。

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程序设计-1

界面设计窗口
代码设计窗口
（3）运行程序标准工具栏中启动程序按钮，或按[F5]键。
（4）保存工程(P14) 保存VB程序需要保存窗体文件和工程文件。至少包括：工程文件(.vbp )和窗体文件(.frm)
例二计算1～10的和值。
(1)界面设计在界面设计窗口添加1个标签控件、1个文本框控件、1个命令按钮控件。
‘赋值号左侧不是变量
(2) 设置控件属性
Form1.Width=400 √ Command1.Left=Command1. Left -100 √ Form1.Left=Form1.Left+300 √
小结
空格的书写
（1）单个常量或变量。 Dim x As Integer Print 123 ; “ABC”; x
（2）计算表达式后输出。 x=10 : y=20 Print 2*(x+y)
（3）一种有提示的输出方式。 Print x*x+2*x+1 Print “y=”; x*x+2*x+1 ‘比较两式
2 Print语句使用符号进行输出格式控制（1）分号，紧凑的输出方式，如Print “x=” ; x （2）逗号，分散的输出方式，如Print “y=” , x^2 （3）无符号，如Print 。则实现光标换行显示
Dim N1 As Long ‘给变量取名为N1，变量 N1中存储的数据类型为长整数类型
Dim Str1 As String , Str2 As String*10 ‘定义Str1为变长字符串 , Str2为定长字符串 , Str2字符长度为10
一般来说，变量应遵从先定义后使用的原则。注意，变量定义后默认初始值为0或空字符串。错误的写法：Dim i , j as Integer

VB程序设计试题及答案（一）-vb程序设计答案

VB程序设计试题及答案（一）一、单选题1. VB6.0是一种面向B 的编程环境。

(A) 机器(B) 对象(C) 过程(D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。

(A) Forml.Cap on=“欢迎使用VB”(B) Forml.Cap on='欢迎使用欢迎使用VB'(C) Forml.Cap on=欢迎使用VB(D) Forml.Cap on="欢迎使用VB"3. 若要使命令按钮不可操作，要对A 属性进行设置。

(A) EnabIed (B)Visible(C) Backcolor (D)Cap on4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。

(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面A 是合法的变量名。

(A) X_yz (B) 123ab。

(A) "ABC">"AbC" (B) "女">"男"(C) "BASIC"=UCase("basic) (D) "123"<"23"7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。

(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。

(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是D 。

2024年VB语言程序设计试题库

ＶB程序设计一、判断题1．同一Ｆoｒm窗体中的各控件能够相互重叠，其显示的上下层次的次序不能够调整。

（X ）ﻫ2．一个对象的若能识别多个事件,我们只能对其中一个事件编程( )ﻫ3．单项选择按钮与复选框对象的Vａlｕe属性类型不一样，且只能取值Ｔrｕｅ和Falｓe。

（√ )4. 事件过程由某个用户事件或系统事件触发执行,它不能被其他过程调用。

( )5．　图片框的Move措施不但能够移动图片框,并且还能够变化该图片框的大小，同时也会变化该图片框有关属性的值。

( √ )6. “A=B=C”是一个合法的Vｉsual Bａsic语句。

( )７. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。

（ )ﻫ8. Visｕal　Bａsｉｃ程序的运行能够从　Ｍａiｎ（）过程开启,也能够从某个窗体开启。

( √　）ﻫ９. 在图片框中放置的控件既能够在该图片框内移动,也能够移出该图片框外。

( ）１0. 对于文献系统控件，当驱动器控件Drivｅl中的驱动器符变化时，文献夹列表控件Dir1中显示的文献夹也作对应的变化,能够在Dｒive1中的Cｈange事件中使用如下命令。

Dｉｒ1.　Path＝ Drivｅ1．Ｄrｉve(　√）11. 滚动条控件可作为用户输入数据的一个措施。

（ √）ﻫ１２．单项选择按钮控件和复选框控件都具备Vaｌuｅ属性，它们的作用完全相同。

( ）ﻫ13. 静态变量是一个局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。

(　√ )ﻫ14．　Vｉsual Basｉｃ提供的几个标准坐标系统的原点都是在绘图区域的左上角，假如要把坐标原点放在其他位置，则需使用自定义坐标系统。

（√　）ﻫ15．注释语句ＲＥM可自成一语句。

( √ )ﻫ１6．用鼠标选中某菜单控件时，触发Clｉcｋ事件；而用键盘选中该菜单控件时，触发 KeyPress（）17．组合框兼有文本框和列表框二者的功效,用户能够通过键人文本或选择列表中的项目来进行选择。

VB程序设计考试(1)

VB程序设计考试（1）一、单选题（每题1分，共50题）1.Visual Basic 6．0集成环境的主窗口中不包括（ C ）。

正确A.标题栏B.菜单栏C.状态栏D.工具栏2.以下不属于Visual basic的工作模式的是（）模式。

正确答案：AA.编译B.设计C.运行D.中断3.如果文本框的Enabled属性被设置为False，则运行时（）。

正确答案：AA.文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框中的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容4.控制名称都是系统的默认控件名，下列语句错误是（）。

正确答案：Dmand1.Caption=List1.Text;bel1.Caption=List1.List(1);C.List1.List(2)=List1.Text+Str(List1.ListIndex);D.Text1.Text=+Text1.Caption。

5.以下叙述中正确的是（）。

正确答案：A属性用来标识对象B.窗体Name属性值显示在标题栏中C.运行时对象Name属性可变D.对象的Name属性值可以为空6.Abc%，abc!，abc$，abc#分别声明abc是（）。

正确答案：AA.整型、单精度、字符串、双精度变量B.整型、整型、字符串、双精度变量C.单精度、整型、字符串、双精度变量D.整型、双精度、字符串、双精度变量7.Visual Basic的逻辑类型数据占（ A ）字节内存。

正确A.2B.4C.8D.168.如果逻辑与(AnD)运算的结果为真，与它所连接的两个条件必须是（ C ）。

正确A.前一个为真，后一个为假B.前一个为假，后一个也为假C.前一个为真，后一个也为真D.前一个为假，后一个为真9.设a=6，则执行 x=iif(a>5,-1,0)后，x 的值为（ D ）。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

程序设计〖第1题〗『程序设计』(5分)(题号:148)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。

' (响应)求10~20之间所有素数的乘积并输出在窗体上。

' 将结果存入变量L中。

'-------------------------------------------------'注意：请在指定的事件内编写代码。

'-------------------------------------------------答案：----------------------Dim i As IntegerDim j As IntegerDim b As Booleanl = 1b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNextIf b = False Thenl = l * iEnd Ifb = FalseNextPrint Str(l)----------------------〖第2题〗『程序设计』(5分)(题号:150)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。

' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。

' 将结果存入变量J中。

'-------------------------------------------------'注意：请在指定的事件内编写代码。

'-------------------------------------------------答案：----------------------Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Thenj = j - 1 / iEnd IfNextPrint j----------------------〖第3题〗『程序设计』(5分)(题号:131)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。

' (响应)已知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)----------------------〖第4题〗『程序设计』(5分)(题号:152)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)双击窗体。

' (响应)求1+2+3+5+8+13+……前20项的和，并将结' 果在窗体上输出。

将结果存入变量SUM中。

'-------------------------------------------------'注意：请在指定的事件内编写代码。

'-------------------------------------------------答案：----------------------Dim i As IntegerDim j(1 To 20) As IntegerFor i = 1 To 20If i < 3 Thenj(i) = iElsej(i) = j(i - 1) + j(i - 2)End Ifsum = sum + j(i)NextPrint sum----------------------〖第5题〗『程序设计』(5分)(题号:157)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。

' (响应)求10!的值，并将结果输出到窗体上。

' 将结果存入变量SUM中。

'-------------------------------------------------'注意：请在指定的事件内编写代码。

'-------------------------------------------------答案：----------------------Dim i As Integersum = 1For i = 1 To 10sum = sum * iNextPrint sum----------------------〖第6题〗『程序设计』(5分)(题号:489)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。

' (响应)已知sum=1-1/3!+1/5!-1/7!+1/9!,' 请将sum结果值输出到窗体上。

' 使用do while...loop语句完成程序'-------------------------------------------------'注意：请在指定的事件内编写代码。

'-------------------------------------------------答案：----------------------Dim i As IntegerDim n As Integeri = 1p = 1Do While i <= 10p = p * iIf i Mod 2 = 1 Thenn = n + 1sum = sum + (-1) ^ (n - 1) / pEnd Ifi = i + 1LoopPrint sum----------------------〖第7题〗『程序设计』(5分)(题号:154)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。

' (响应)求100以内偶数的和，并将结果输出在窗体上。

' 将结果存入变量SUM中'-------------------------------------------------'注意：请在指定的事件内编写代码。

'-------------------------------------------------答案：----------------------Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum----------------------〖第8题〗『程序设计』(5分)(题号:134)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)双击窗体。

' (响应)s=20+21+22+…+263，求s的值，并将结果' 存储到变量S中。

'-------------------------------------------------'注意：请在指定的事件内编写代码。

'-------------------------------------------------答案：----------------------Dim i As Integeri = 20While i <= 263s = s + ii = i + 1WendPrint (CStr(s))----------------------〖第9题〗『程序设计』(5分)(题号:142) '------------------------------------------------- '【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。

' (响应)编写程序求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))〖第1题〗『程序设计』(5分)(题号:149)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。