下载文档原格式
上机操作练习题1．某数组有20个元素，其值为随机产生的两位整数。
现要求将前10个元素及后10个元素对换。
即第1个元素及第20个元素互换，第2个数及第19个元素互换，…，第10个元素及第11个元素互换。
在窗体上输出数组原来各元素的值及对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer, j as integer, t as integerPrivate Sub Form_Load()ShowPrint "原始数组是："RandomizeFor i = 1 To 20a(i) = Int(Rnd * 90) + 10Print a(i);If i Mod 10 = 0 Then PrintNext iPrintPrint "现在数组是："For i = 1 To 10j = 21 - it = a(i): a(i) = a(j): a(j) = tNext iFor i = 1 To 20Print a(i);If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”注意：1）如果数组中存在多个及该数相同的元素，每一个都能删除；2）能实现多次删除Private Sub Form_Load()ShowReDim a(9) As Integerm = 1Print "原来数组为："For i = 0 To 9a(i) = InputBox("请输入第" & m & "个数：")Print a(i);m = m + 1Next in = InputBox("查找的数是：")i = 0: flag = FalseDoIf a(i) = n Thenj = i: flag = TrueFor k = j To UBound(a) - 1a(k) = a(k + 1)Next kReDim Preserve a(UBound(a) - 1) i = i - 1End Ifi = i + 1Loop While (i <= UBound(a))If flag = False ThenMsgBox n & "不在该数组中"ElsePrint "删除" & n & "后的数组是:"For i = 0 To UBound(a)Print a(i);Next iEnd If3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
vb上机试题及答案一、选择题（每题2分，共10分）1. VB中，用来声明变量的关键字是：A. DimB. SetC. CallD. Function答案：A2. 下列哪个不是VB中的控件事件？A. ClickB. LoadC. PrintD. Resize答案：C3. VB中，用于循环结构的关键字是：A. ForB. NextC. LoopD. Do答案：A4. VB中，用于定义过程的关键字是：A. SubB. FunctionC. DimD. Call答案：A5. VB中，用于定义窗体的关键字是：A. FormB. ClassC. ModuleD. Property答案：A二、填空题（每题2分，共10分）1. VB中，使用________关键字可以定义一个数组。
答案：Dim2. 在VB中，________函数用于将字符串转换为大写。
答案：UCase3. VB中的________函数用于计算字符串的长度。
答案：Len4. 使用________语句可以退出当前循环。
答案：Exit For5. VB中，________语句用于创建一个子程序。
答案：Sub三、简答题（每题5分，共15分）1. 请简述VB中如何声明一个变量，并赋值。
答案：在VB中，使用Dim关键字声明变量，例如Dim myVar As Integer，然后使用赋值语句赋值，例如myVar = 10。
2. 解释VB中什么是事件驱动编程。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件触发，而不是由程序的顺序执行决定。
在VB中，用户操作（如点击按钮）会触发事件，程序响应这些事件执行相应的代码。
3. 描述VB中如何使用条件语句。
答案：在VB中，使用If...Then...Else语句来实现条件判断。
例如，If condition Then '执行代码块 1 Else '执行代码块 2 End If。
四、编程题（每题15分，共30分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
vb上机试题及答案# VB上机试题及答案一、选择题1. 在Visual Basic中，以下哪个不是合法的变量名？- A. 123abc- B. myVariable- C. _myVariable- D. 2myVariable答案： A2. Visual Basic中的哪种数据类型用于存储日期和时间？ - A. Integer- B. Date- C. String- D. Variant答案： B3. 以下哪个是Visual Basic中的流程控制语句？- A. Sub- B. If- C. Dim- D. End答案： B4. 在Visual Basic中，以下哪个不是数组的声明方式？- A. Dim myArray(1 To 10)- B. Dim myArray(0) As Integer- C. Dim myArray As Integer- D. Dim myArray(1) As Integer答案： C5. Visual Basic中，以下哪个是正确的循环结构？- A. For Each- B. While- C. Do While- D. All of the above答案： D二、填空题1. 在Visual Basic中，使用______关键字可以定义一个过程。
- 答案：Sub 或 Function2. 要声明一个名为`myString`的字符串变量，可以使用______语句。
- 答案：Dim myString As String3. 在Visual Basic中，如果要在循环中提前退出，可以使用______语句。
- 答案：Exit For 或 Exit Do4. 要将一个数字转换为字符串，可以使用______函数。
- 答案：CStr 或 Str5. 在Visual Basic中，使用______语句可以定义一个常量。
- 答案：Const三、程序设计题编写一个Visual Basic程序，该程序可以计算并显示一个正整数的阶乘。
vb上机题库及答案【篇一：vb期末考试上机题编程答案】xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程，编写求某一自然数因子和的程序。
VB上机综合测试题（一）一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。
三个复选框check1,check2和check3，如图设置属性。
要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分）二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分）三、请设计如下图所示窗体界面。
运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。
请编写程序完成上述功能。
（40分）答案：一、界面设计------10分Private Sub Check1_Click()Text1.FontBold = Check1.Value ------5分End SubPrivate Sub Check2_Click()Text1.FontItalic = Check2.Value------5分End SubPrivate Sub Check3_Click()Text1.FontUnderline = Check3.Value ------5分End Sub二、界面设计------10分Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分For i = 0 To 19------3分a(i) = Int(Rnd * 1001) ------3分sum = sum + a(i) ------3分Next i ------2分aver = sum / 20 ------3分Print aver ------2分End Sub三、界面设计------10分Dim n%------2分Private Sub Form_Load()End SubPrivate Sub Option1_Click()------2分Dim i% ------2分n = Val(Text1) ------3分m = 1 ------1分For i = 1 To n ------2分m = m * i -----2分Next i ------2分Text2 = m ------2分End SubPrivate Sub Option2_Click()------1分Dim i% ------2分m = 1 ------1分For i = 1 To n + 2 ------2分m = m * i ------2分Next i ------2分Text2 = m ------2分End SubVB上机综合测试题（二）1．设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占最终成绩的30%，考试成绩占最终成绩的70%；单击“清除”按钮，清除文本框中的内容；单击“退出”按钮，关闭窗口。
国家二级VB机试（上机操作）模拟试卷280(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1，标题为“组合框”的窗体上画1个名称为Combo1的组合框，利用属性窗口设置适当属性使其在程序刚开始运行时的界面如图3—37所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Image1的图像框，并通过属性窗口为其装入考生文件夹中的图标文件CARS．ico再画一个名称为Timer1的计时器，一个名称为Command1、标题为“开始”的命令按钮，如图3—37图3—38所示。
要求：通过属性窗口设置适当的属性，再编写适当的事件过程，使得程序运行时，单击“开始”按钮，图片可以每0．2秒向右移动50。
注意：程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个组合框。
按表4—25设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个图像框、一个定时器和一个命令按钮。
按表4—26设置其相关属性。
步骤2：在打开的代码编辑窗口中，编写命令按钮的Click事件代码和定时器的Timer事件代码。
参考代码：Private Sub Command1_Click( )Timer1．Enabled=TrueEnd SubPrivate Sub Timer1_Timet( )Image1．Left=50+Image1．LeftEnd Sub步骤3：按要求将文件保存至考生文件夹中。
全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料：PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。
窗体的标题为"按钮窗口"。
运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
图1【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。
表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。
程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
图2【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。
步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。
国家二级VB机试（上机操作）模拟试卷115(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个名称为List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。
再建立一个下拉菜单，菜单标题为“文件”，名称为File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为Show，初始状态为选中，运行时的效果如图3-130所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjtl．frm，工程文件名为sjtl．vbp。
(2)新建一个名称为Forml，标题为“使用输入对话框”的窗体，该窗体上无任何控件。
请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。
如图3．131所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sit2．frm，工程文件名为sjt2．vbp。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：新建一个“标准EXE”工程，选择【工具】→【菜单编辑器】命令，打开菜单设计器按要求设置建立菜单项。
步骤3：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，将窗体Forml的Caption属性设置为“使用输入对话框”。
步骤2：打开代码编辑窗口，编写以下事件过程：参考代码：Private Sub Form Click( )InputBox“请输入”，“等级考试”，“Basic”End Sub步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．(1)在考生目录下有一个工程文件sit3．vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图3-18所示。
vb上机试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明一个变量？A. DimB. ConstC. SubD. Function答案：A2. 下列哪个控件常用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A3. VB中，用于执行循环的关键字是？A. ForB. IfC. WhileD. Select答案：A4. 在VB中，如何将一个变量的值赋给另一个变量？A. a = bB. a = b = cC. a = b + cD. a = c / b答案：A5. VB中，以下哪个函数用于计算字符串的长度？A. LenB. UCaseC. LCaseD. Mid答案：A6. 以下哪个事件用于处理按钮点击？A. ClickB. DoubleClickC. MouseDownD. KeyPress答案：A7. 在VB中，以下哪个属性用于设置控件的背景颜色？A. BackColorB. ForeColorC. BorderColorD. TextColor答案：A8. VB中，用于声明一个过程的关键字是？A. FunctionB. SubC. DimD. Const答案：B9. VB中，用于声明一个函数的关键字是？A. FunctionB. SubC. DimD. Const答案：A10. 在VB中，以下哪个控件用于接收用户输入的文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：B二、填空题（每题2分，共20分）1. VB中，声明全局变量的关键字是______。
答案：Public2. 在VB中，用于创建一个新窗体的关键字是______。
答案：Form3. VB中，用于结束当前过程的关键字是______。
答案：Exit Sub 或 Exit Function4. VB中，用于声明一个常量的关键字是______。
VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
129：单击窗体。
求出100以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM 中Dim j As IntegerDim k As IntegerDim b As Integerb = FalseFor i = 2 To 100b = Falsej = Int(Sqr(i))For k = 2 To jIf i Mod k = 0 Thenb = TrueEnd IfNextIf b = False ThenSum = Sum + iEnd IfNextPrint Sum130:求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中Dim i As IntegerFor i = 201 To 300If i Mod 3 = 0 And i Mod 7 = 0 ThenPrint iSum = Sum + iEnd IfNextPrint Sum131:已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上Private Sub Form_Click()Dim s As SingleDim I as integerS =0For I =1to 10S= s+1/(i^2)NextPrint (s)End Sub132:在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和。
Private Sub Form_Click()Dim s As SingleDim i, j, k, m as IntegerS =0I = 2J = 1For k = 1 to 10M = jPrint (cstr (i)) & "/" & cstr(j)J =iI =i+mS =s+i/jnextEnd Sub133: 一球从100米高度自由落下，每次落地返回,原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。
Private Sub Form_Click()Dim s As SingleDim j , I as integerS = 0J =100For I =2 to 10J = j / 2S = s + 2 *jNextS =100 +sPrint (cstr(s))End Sub134: s=20+21+22+…+263，求s的值，并将结果存储到变量S中。
Dim i As Integeri = 20While i <= 263s = s + ii = i + 1WendPrint (CStr(s))136：求出具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，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 isum = sum + iEnd ifNext137：把一元钞票换成一分、二分和五分的硬币（每种至少有一枚），求出其所有的换法，把结果输出在窗体上。
将所有的换法的数目存入变量N中Dim I,j,k as integerFor i=1 to 100For j=1 to 50For k=1 t0 20If ((i+2*j+k*5)=100) ThenPrint(CStr(i))Print(CStr(j))Print(CStr(k))n = n + 1End ifNextNextNext138:公鸡3元1只，母鸡5元1只，小鸡一元3只，怎样用100元买。
100只鸡。
把结果输出到窗体上。
将答案数存放在变量N中Dim i as integerDim j as integerDim 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)Print (cstr(i))Print (cstr(j)Print (cstr(k))N = n +1End ifNxetNextNext139:编写代码功能如(图1)。
将结果存入变量S中。
Dim i As IntegerFor i = 1 To 10s = s + i * iNextPrint (CStr(s))140:编写代码功能如(图1)。
将结果存入变量S中Dim i as integerS = 1For i = 1 to 10S = s * i * iNextPrint (cstr(s))141: 求1!+2!+3!+4!+5!并将结果输出到窗体上。
结果存入变量S中Dim i, j, k, s As IntegerFor i = 1 To 5k = 1For j = 1 To ik = k * jNexts = s + kNextPrint (CStr(s))142: 编写程序求10×11×12+11×12×13+…+15×16×17的结果，并将结果输出到窗体上。
将结果存入变量M中Private Sub Form_Click()Dim m As LongDim i, j as integerDim s as longFor i = 10 to 15S =1For j =i to i+2s=s*jNextm = m+sNextPrint (cstr(m))End Sub143: 生成一个一维数组(10个数组元素依此为：15、23、72、43、96、23、3、65、88、17)，写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。
将最大值，最小值，平均值分别存入变量Max,Min,Aver中Dim a(9) as integerDim i , s as integera(0) = 15a(1) = 23a(2) = 72a(3) = 43a(4) = 96a(5) = 23a(6) = 3a(7) = 65a(8) = 88a(9) = 17Max = a(0)Min = a(0)S = 0Fot i = 0 to 9If a(i) > max thenMax = a(i)End ifIf a(i) < min thenMin = a(i)End ifS = s + a(i)NextAver = int(s / 10)Print (cstr(max))Print (cstr(min))Print (cstr(aver))144:在窗体上输出100~200之间的所有合数。
求出所有数之和存入SUM中Dim i as integerDim j as integerDim s as integerFor j = 100 to 200For j = 2 to sqr (i)If (i mod j ) = 0 thenPrint (cstr(i))Sum =sum + iExit forEnd ifNextNextPrint sum146：:单击窗体。
求50以内所有偶数的和，并在窗体上输出出来。
将结果存入变量S中Dim i As IntegerFor i = 2 To 50If (i Mod 2) = 0 Thens = s + iEnd IfNextPrint (CStr(s))147:求出50以内所有奇数的和。
将结果存入变量SUM中Dim i as integerFor i = 1 to 50If i mod 2 = 1 thenSum = sum +1End ifNextPrint sum148:求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 = tureEnd ifNextIf b = false thenl = l * iEnd ifb = falseNextPrint Str (l)149:求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)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 / iElselfI mod 2 =0 thenJ = j - 1 / iEnd ifNextPrint j151:求1+2+3+……+100的值，并把结果输出在窗体上。
结果存入变量SUM中Dim i As IntegerFor i = 1 To 100Sum = Sum + iNextPrint Sum152:求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 sum153:求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中Dim i as integerFor i = 1 to 100If i mod 2 =1 thenSum = sum + iEnd ifNextPrint sum154:求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中Dim i as integerFor i = 1 to 100if i mod 2 = 0 thenSum = sum +iEnd ifNextPrint sum155:求1+5+10+15+……+500的和，并将结果输出到窗体上。
将结果存入变量SUM中Dim i As IntegerFor i = 1 To 500If i Mod 5 = 0 ThenSum = Sum + iEnd IfNextprint sum156:求3+6+9+12+15+18+……+300的和,并将结果输出到窗体上。
