简单应用题 VB上机题库--图文版
vb上机考试习题以及答案
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5?5的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load()= 1= 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then= X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
计算机一级VB上机练习题
2007—2008(2) VB上机练习题1．设计一个数字钟表程序，界面如图所示。
运行时单击窗体，显示当前的年月日星期及时间。
2．设计一个数学函数程序，界面如图所示。
程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。
文本框始终处于选中状态。
3．设计口令检测界面，口令自定，运行初始如第一幅图，若口令错，则如第二幅图；否则，将显示另一欢迎窗口，如第三幅图所示。
在连续三次输入错误口令后，给出警告并结束运行。
4．设计一个程序，用户界面如下图所示。
程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。
5．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。
6．设计一个程序，用户界面如下图所示。
程序运行后，单击Command1按钮，求出最大最小数。
7．设计一个100（随机函数产生）之内的四则运算题，界面如下。
8．设计一个窗体Forml，界面如右图所示。
编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。
9．界面如下图所示。
编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，如果可以在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。
10．某工程运行时，图片框中图可以任意。
单击“隐藏图像”按钮（command2）界面如右图，单击“显示图像”按钮（command1）界面如左图，编写适当的事件过程。
11．在文本框T1中打印100~999之间的所有水仙花数。
（该数为各位数字的立方和。
例如：153=1 3+5 3+3 3）12．有一数列，它的头2个数为0、1，以后的每个数都是其前2个数之和。
编程在文本框T1中输出所有这些数列，直到第30个数或最后一项等于1000为止，同时在另一文本框中输出它们的和。
VB上机综合测试题(十五套)
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机试(上机操作)模拟试卷142(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷142(题后含答案及解析) 题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题1．在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签，其标题内容为“欢迎使用本系统”，标题文字字体和字号分别为“宋体”、“三号”，标签大小能根据标题内容自动调整，效果如图所示。
程序执行时，窗体的最大化按钮不可用(如图所示)，请设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
正确答案：[操作步骤]步骤1：新建一个窗体，在属性窗口中设置窗体的属性，按照表4．3所示在属性窗口中设置相应属性，其运行效果如图4．3所示。
步骤2：在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表4．4所示在属性窗口中设置相应属性，其运行效果如图4．4所示。
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
2．在名称为Form1的窗体上，画1个名称为Label1的标签，其标题为“横坐标X”，且能根据标题内容自动调整标签的大小；再画1个名称为Text1的文本框，其中的文字显示为空白；再画1个名称为Picture1的图片框，大小适中即可。
要求：编写适当的事件过程，使得程序运行时，如果鼠标在图片框中移动，则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标，运行情况如图所示。
注意：要求程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：[操作步骤]步骤1：新建一个窗体，在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表4．5所示在属性窗口中设置相应属性，其运行效果如图4．5所示。
步骤2：在窗体上添加一个文本框控件，在属性窗口中设置文本框的属性，按照表4．6所示在属性窗口中设置相应属性，其运行效果如图4．6所示。
VB上机试题及答案
上机操作练习题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 iPrintn = 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 IfEnd Sub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
国家二级VB机试(上机操作)模拟试卷280(题后含答案及解析)
国家二级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上机题库及答案(全)
全国计算机等级考试二级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上机练习试题及答案
第一章概述一、基本要求（1）熟悉VB集成开发环境（2）掌握代码窗口的应用及录入、编辑代码的基本方法（3）了解VB程序设计的基本步骤二、实习内容（1）实习熟悉VB集成开发环境各组成部分（2）输入一个数，求该数的平方并显示结果第二章一、基本要求（1）熟练掌握各种运算符的应用和优先顺序（2）掌握各种常用函数的功能、参数和返回值（3）掌握立即窗口的使用方法二、实验内容（1）回答整形、长整型、单精度、双精度类型数据占用字节数。
（2）已知直角三角形的两条直角边长，求斜边长。
Privat e Sub Comman d1_Cl ick()Dim a%, b%, c%a = Val(InputB ox("输入第一条直角边长"))b = Val(InputB ox("输入第二条直角边长"))c = Sqr(a ^ 2 + b ^ 2)PrintcEnd Sub（3）给小学生随机出两位数和一位数的加法题。
Privat e Sub Comman d1_Cl ick()Dim a%, b%, c%a = Val(InputB ox("输入两位数"))b = Val(InputB ox("输入一位数"))c = a + bPrintcEnd Sub（4）用文本框输入一个带小数的数，对输入的数四舍五入保留2位小数。
Privat e Sub Comman d1_Cl ick()Dim x#, y!x = Text1.Texty = Round(x, 2)PrintyEnd Sub（5）输入某人姓名，判断是否你的本家。
Privat e Sub Comman d1_Cl ick()Dim a$, b$, p As Boolea nb = "李"a = InputB ox("输入某人的姓名")If Left(a, 1) = b Thenp = TrueEnd IfPrintpEnd Sub（6）任意输入西安地区的固定电话号码（原为7位），将其升为8位（在原号码前面加8）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第01套：（1）[计时器]Enabled:False,Interval:1000 [Command1_Click]Timer1.Enabled=True [Command2_Click]Timer1.Enabled=False（2）1)'a=Mid$(Text1.Text,?,1) (?为k)2)'ch=ch+?(?为LCase (a) )3)'Text2=?(?为ch)第02套：（1）[确定]Enabled:False1)'Command2.?=True(?为Enabled)2)'Combo1.List(?)=Text1(?为Combo1.ListIndex) 3)'? Text1(?为Combo1.AddItem)（2）1)'?=HScroll1.Value(?为red)2)'Timer1.Enabled=?(?为True)3)'?.Visible=False (?为Picture1)4)'green=?(?为green-1)第03套：（1）[文本框]Alignment:1[Command1_Click]If Option1.Item(0)=True ThenText2.Text=Format(Sin(Val(Text1.Text) *3.14159/180),"0.000")End IfIf Option1.Item(1)=True ThenText2.Text=Format(Cos(Val(Text1.Text) *3.14159/180),"0.000")End If（2）1)'Timer1.Enabled=? (?为True)2)'?.Interval=HScroll1.Value(?为Timer1)3)'Picture1.Left=?+10 (?为Picture1.Left)第04套：（1）复制产生单选数组,“选项1”的Value为True1)'For k=0 To ?(?为3) 2)'n=? (?为k)3)'n=? (?为0)（2）1)'Select Case ? (?为Combo1.ListIndex)2)'tmpStr=Mid(Trim(Text1.Text),?)(?为3,4)3)'Text2.Text=? (?为tmpStr)第05套：（1）[Command1_Click]Const PI=3.14159Select Case Combo1.TextCase "sin":a=Sin(CInt(Text1.Text)*PI/180)Case "cos":a=Cos(CInt(Text1.Text)*PI/180)Case "tg":a=Tan(CInt(Text1.Text)*PI/180)Case ctg":a=1/Tan(CInt(Text1.Text)*PI/180)End SelectText2=Int(a*1000)/1000另外Text1中输入的值必须是40，且结束程序时必须用窗体右上角的关闭按钮来结束程序（2）1)'num=? (?为num+1)2)'Text2.Text=Text2.Text+? (?为10)3)'Text1.Text=Text1.Text+? (?为1)第06套：（1）[说明]数组arr中每个元素与其下标相除所得的和指arr(1)/1+arr(2)/2+arr(3)/3+...+arr(40)/40[Function Fun(a( ) As Single) As Single]Sum=0For i=1 To UBound(a)Sum=Sum+a(i)/iNext iFun=SumEnd Function（2）1)'Timer1.Enabled=?(?为True)2)'Command1.Enabled=? (?为False)3)'Timer1.Enabled=?(?为False)4)'Label1.Left=? (?为Label1.Left+20)第07套：（1）1)'If ?=True Then(?为Option1(i))2)'Select Case ? (?为opt)3)'?=Str(HScroll1.Value)&""(?为Label4)（2）1)'Loop Until ? And n<13 (?为n>0)2)'Select Case ? (?为n)3)'Select Case ? (?为m)第08套：（1）[ Command1_Click]If Option1.Value And List1.Text<>"" ThenText1.Text=List1.Text&Option1.CaptionElseIf Option2.Value And List1.Text<>"" ThenText1.Text=List1.Text&Option2.CaptionEnd IfEnd If在结束程序前必须至少要进行一次选择操作（包括列表框和单选按钮），退出程序时需单击窗体右上角的关闭按钮，这样就运行了Form_Unload事件过程。
（2）1)‟iSum=? (?为0) 2)‟iSum=? (?为iSum+j)3)‟If iSum=?(?为1250)第09套：（1）[HScroll1_Change]Timer1.Interval=HScroll1.Value[Timer1_Timer]Image1.Visible=Not Image1.Visible（2）1)'Text1.FontSize=? (?为HScroll1.Value)2)'Text1.FontName=? (?为List1.Text)第10套：（1）1)'For i= ?To (?为0) 2)‟ To ? (?为2)3)‟If Op1(i). ?=True Then (?为Value)4)‟Print"我是"+Op1(i).? (?为Caption)（2）1)‟If Val(?)=0 Then (?为Text1.Text)2)‟Timer1.?=False (?为Enabled)3)‟Text1.? (?为SetFocus)第11套：（1）在工程属性窗口选项卡中启动对象选Form21)‟Form1.Visible=? (?为False)2)‟Form1.Visible=? (?为True)（2）1)'If HS1.Value+Text1.Text>HS1.? Then(?为Max)2)'ElseIf HS1.Value+Text1.Text<? Then(?为HS1.Min)3)'?=HS1.Value+Text1.Text (?为HS1.Value) 第12套：（1）[Timer1_Timer] L1.Caption=L1.Caption+1。
（2）[List1]MultiSelect:11)‟For i= ?To (?为0)2)‟ To ? (?为L1.ListCount-1)3)‟If L1.?=True Then (?为Selected(i) ) 第13套：（1）1)'S1=? (?为Text1.Text)2)'Do While Mid(S1,I1,1)<>? And (?为"")3)'List1.AddItem ?(?为S2)4)'S2=? (?为"")(2)1)‟For i=0 To ? (?为Cb1.ListCount-1)2)‟If Cb1.List(i)=? Then (?为Cb1.Text) 3)‟Cb1.?Cb1.Text (?为AddItem)第14套：（1）[ C1_Click]P1.Picture=LoadPicture("pic2.jpg")P2.Picture=LoadPicture("pic1.bmp")（2）[C1_Click]Text1.Text="我选的课是"If Ch1.Value ThenText1.Text=Text1.Text+Ch1.CaptionEnd IfIf Ch2.Value=1 ThenText1.Text=Text1.Text+Ch2.CaptionEnd If第15套：（1）1)'L1.AddItem? (?为Text1)2)'L1.RemoveItem? (?为L1.ListIndex)（2）[C1_Click]If Op1.Value ThenText1.Text="需要1小时"ElseIf Op2.Value ThenText1.Text="需要10小时"ElseIf Op3.Value ThenText1.Text="需要15小时"End If第16套：（1）[C1_Click]If Op1 And Op3 ThenText1.Text="坐飞机去广州"ElseIf Op1 And Op4 ThenText1.Text="坐飞机去昆明"ElseIf Op2 And Op3 ThenText1.Text="坐火车去广州"ElseIf Op2 And Op4 ThenText1.Text="坐火车去昆明"End If（2）[ Op1_Click]a$=Text1.TextText1.Text=Text2.TextText2.Text=a$Op1.Visible=False[Op2_Clik]Text3.Text=Text1.Text&Text2.Text第17套：(同第16套)第18套：(同第16套)第19套：(同第16套)第20套：(同第16套)第21套：（1）工程1属性选项卡中启动对象为Form21)'Load ? (?为Form1)2)'?=True (?为Form1.Visible)（2）1)'If Op1(k).?=True Then (?为Value)2) 'Calldraw(?) (?为k)3)'P1.Print"选择了"&Op1(?).Caption (?为a)第22套：（1）1) 'For i= ? To ? (?为0和2)2)'If Op1(i).?=True Then (?为Value)3)'Print"我的出生地是"+Op1(i).?(?为Caption)（2）[Cb1_Click]L1.Font.Size=Cb1.Text[Cb2_Click]L1.Font=Cb2.Text第23套：（1）复制产生单选按钮控件数组1)'Select Case ? (?为Index)2)'Text1.Text=?+Me.Op1(1).Caption+"去"(?为a)（2）[ C1_Click ]Text1.Text="我是" If Op1.Value ThenText1.Text=Text1.Text+Op1.Caption ElseText1.Text=Text1.Text+Op2.Caption End IfIf Op3.Value ThenText1.Text=Text1.Text+Op3.Caption ElseText1.Text=Text1.Text+Op4.Caption End If 第24套：（1）[计时器]Enabled:False,Interval:100 1)'Timer1.Enabled=? (?为True)2)'If P1. Top>P2. Top+P2.? Then (?Height) 3)‟Timer1.?=False (?为Enabled) （2）z=(x+2)^2+(x+3)^3+(x+4)^4+…+(x+N)^N 1)‟tmp=? (?为a*tmp) 2)‟xn=? (?为tmp) 3)‟z=z+? (?为xn(t,i))4)‟Label1.Caption=? (?为Str(z)) 第25套： （1）[Text1]PasswordChar:*[显示口令Click ] Text1.PasswordChar="" [隐藏口令Click ] Text1.PasswordChar="?" [复制口令Click ] Text2.Text=Text1.Text（2）[P1] Picture:Open.ico[通用对话框CD1]DialogTitle:打开文件，Filter,InitDir:"c:\"[P1_Click ]CD1.ShowOpen 第26套：（1）1)'List1.AddItem ? (?为Text1.Text)2)'For i=0 To ? (?为List1.ListCount-1) 3)'If List1.List(i)=? Then (?为Text1.Text) 4)'List1.RemoveItem ? (?为i) （2）1)'arr2(i)=CInt(?)(?为arr1(i) ) 2)'M=FindMax(?)(?为arr2( )) 3)'Start=?(a) (?为LBound) 4)'Finish=?(a)(?为UBound) 5)'Max=?(Start) (?为a)6)'If a(i)?Max Then Max=? (?为>, a(i) ) 第27套：（1）1)'List1.AddItem ? (?为Text1)2)'For i=0 To ? (?为List1.ListCount-1) 3)'If List1.List(i)=? Then (?为Text1) 4)'List1.RemoveItem ?(?为i) （2）(类似上一题)1)'M=FindMin(?) (?为arr2( )) 2)'Start=?(a) (?为LBound) 3)'Finish=?(a) (?为UBound) 4)'Min=?(Start) (?为a)5)'If a(i)?Min Then Min=? (?为<, a(i)) 第28套：（1）1)'List1.AddItem ?(?为Text1)2)'For i= 0 To ? (?为List1.ListCount-1) 3)'If List1.List(i)=? Then (?为Text1) 4)'List1.RemoveItem ? (?为i )（2）1)'Aver=Average(?) (?为arr2( ) ) 2)‟Start=?(a) (?为LBound) 3)‟Finish=?(a) (?为UBound) 4)‟Sum=? (?为0)5)‟Sum=Sum+? (?为a(i)) 6)'Average=? (?为Sum/Finish) 第29套：（1）[建立主菜单]1)'List1.AddItem ?(?为Text1.Text)1)'For i=0 To ? (?为List1.ListCount-1) 2)'If List1.List(i)=? Then (?为Text1.Text) 3)'List1.RemoveItem ? (?为i)（2）1)'Start=?(a) (?为LBound) 2)'Finish=?(a) (?为UBound)3)'For i= ? To 2 Step-1 (?为UBound(a)) 4)'For j= 1 To ? (?为i-1)5)'If a(j) ? a(j+1) Then (?为>) 第30套：（1）1)‟List1.AddItem ? (?为Text1.Text) 2)‟For i=0 To ? (?为List1.ListCount-1)3)‟If List1.List(i)=? Then (?为Text1.Text) 4)‟List1.RemoveItem ? (?为 i)（2）1)'Start=?(a) (?为LBound)2)'Finish=?(a) (?为UBound)3)'For i=? To 2 Step-1 (?为Finish)4)'For j=1 To ? (?为i-1)5)'If a(j)?a(j+1) Then (?为<)第31套：（1）[m1_Click]Text1.Font.Bold=True[m2_Click]Text1.Font.Italic=True[ m3_Click]Text1.Font.Underline=True [Text1_MouseDown]If Button=2 Then PopupMenu Format （2）[Form2]ControlBox:False1)'Form2.? (?为Show)2)'Form2.PrintForm1.Frame1.? (?为Caption)3)'If Form1.Op1(?).Value Then (?为k)4)'Text2.?="*"(?为PasswordChar)第32套：（1）1) 'While(k<List2.?) (?为ListCount)2)'If ?.Selected(k)=True Then (?为List2)3)'List2.RemoveItem ? (?为k)4)'List1.RemoveItem List1.? (?为ListIndex)（2）复制产生单选数组[ C1_Click]'需考生编写Dim k As Integerk=0While Not op1(k).Value And k<3k=k+1WendIf k<3 ThenText1.Text=calculat(Val(Left$(Op1(k).Caption,2))) End If[Function calculat(n As Integer)] '需考生编写Dim k As Integer,t As Longt=1For k=2 To nt=t*kNextkcalculat=tEnd Function第33套：如153=13+53+3是一个水仙花数[Command2_Click]'需考生编写Max=a(1) : Min=a(1)For i=2 To 100If isnarc(a(i))=True ThenIf a(i)>Max Then Max=a(i)If a(i)<Min Then Min=a(i)End IfNext iText1.Text=MaxText2.Text=Min（2）[C1_Click] …考生编写Dim n As Integer, k As Integer,s As Longn=Val(Cb1.Text)s=0For k= n To 5000If k/n=Int(k/n) Thens=s+kEnd IfNext kText1.Text=s第34套：（1）[Command1_Click] …考生编写If Op1.Value ThenText1.FontName=Op1.CaptionElseIf Op2.Value ThenText1.FontName=Op2.CaptionEnd IfIf Ch1.Value=1 ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEnd IfIf Ch2.Value=1 ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEnd If（2）1)'CD1.?="所有文件|*.*|文本文件|*.txt"(?为Filter)2)'CD1.? (?为ShowOpen)3)'Open ? For Input As #1(?:CD1.FileName)4) '? (?为Close #1)第35套：（1）[ Command1_Click]Combo1.AddItem Text1.Text[Command2_Click]Print Combo1.ListCount（2）1)'n=Val(Op1(k).?) (?为Caption)2)'For k=1 To ? (?为m)3)'c=Mid$(Text1.Text,?,1) (?为k)4)‟?=a+c (?为a)第36套：（1）1)'arrN(i)=Int(Rnd*?) (?为1000)2)'?=arrN(1) (?为Max)3)'If ? Then (?为arrN(i)>Max)（2）[Function Fun] …考生编写For i=1 To 1000If i Mod 5=0 Or i Mod 7 =0 ThenY=Y+1End IfNext iFun=Y第37套：（1）1)'arrN(i)=? (?为Int(Rnd*1000))2)'Min=? (?为arrN(1))3)'If ? Then (?为arrN(i)<Min)（2）Function Fun( )…考生编写For i=0 To 1000If i Mod 7 <> 0 ThenY=Y+1End IfNext iFun=YEnd Function第38套：（1）1)'arrN(i)=? (?为Int(Rnd*1000))2)'Sum=? (?为0)3)'Sum=? (?为Sum+arrN(i))4)'Aver=? (?为Sum/20)（2）Function Fun( ) …考生编写Sum=0For i=0 To 200If i Mod 3=0 ThenSum=Sum+iEnd IfNext iFun=SumEnd Function第39套：（1）1)'arrN(i)=Int(Rnd*?) (?为1000)2)'Sum=?(?为0) Sum=03) 'If ? Then (?为arrN(i)>500)4) 'Sum=?(?为Sum+arrN(i))（2）Fun是计算不能被7整除的整数的和Function Fun( ) …考生编写Sum=0For i=0 To 100If iMod7<>0 ThenSum=Sum+IEnd IfNext iFun=SumEnd Function第40套：（1）1)'arrN(i)=?(?为Int(Rnd*1000))2)'Sum=? (?为0)3)'If ? Then (?为arrN(i)<500)4)'Sum=? (?为Sum+arrN(i))（2）计算出0～100范围内所有偶数平方和Function Fun( ) …考生编写Sum=0For i= 0 To 100 Step 2Sum=Sum+ i*iNext iFun=SumEnd Function第41套：（1）功能：去掉1个最高分和1个最低分,求剩下的平均分,再乘以3,再乘以难度系数1)‟For k= 1 To ?(?为5)2)‟If ?<Val(Text1(k).Text) Then (?为a)3) 's=(s-a-b)/?(?为4)4) 's=?*3*Val(Text2.Text) (?为s)5)'?=Int(s*100)/100(?为Text3)（2）[Command1_Click] …考生编写If Option1.Value=True Thens=1For k=1 To ns=s*kNext kEnd IfIf Option2.Value=True Thens=0For k=1 To ns=s+kNextEnd IfText1=s第42套：（1）1)‟Line1.Y2=?(?为Y)2)'Line1.X2=Line1.?(?为X1)3)'Line1.Y2=y0-?(?为750)4)‟?="鼠标位置不对" (?为Label1)（2）[Command2_Click] …考生编写Dim s As Long , k As Integers=0For k=1 To ns=s+f(k)NextText1=s[Command1_Click]1)'If n>? Or n<8 Then (?为12)2) 's=? (?为1)3) 'f=? (?为s)第43套：（1）[Option1_Click]Text1.Alignment=0[Option2_Click]Text1.Alignment=2[Option3_Click]Text1.Alignment=1[Option4_Click]Text1.Font="宋体"[Option5_Click]Text1.Font="黑体"（2）1)'? (?为Timer1.Enabled=False)2)'For k= 0 To 359 Step ? (?为360/12)3) 'x=radius*Cos(k*3.14159/180)+? (?为x0)4)'Line1.?=y0-len1*Sin(a*3.14159/180)(?为Y2)5)'b=?-30/12 (?为b)第44套：（1）1)'ch=Right$(?) (?为Text1,1)2)'Label1.Caption=? (?为Right$(Text1,1) )3)'Label2.Caption=? (?为n)（2）1)'Timer1.Enabled=?(?为True)2)'Shape1.FillColor=? (?为red_color)3)'?=Shape1.Left+50 (?为Shape1.Left)4)'?=Shape1. Top+50 (?为Shape1. Top)5)‟Shape1.FillColor=? (?为blue_color)第45套：（1）1)'Combo1.? (?为AddItem Text1)2)‟If KeyAscii>57 Or KeyAscii<?(?为48)3)‟KeyAscii=?(?为0)（2）1)‟For i=? To n (?为m) 2)‟t=? (?为f(i))3)‟s=s+? (?为t) 4)‟t=? (?为t*i)5)‟f=? (?为t)第46套：（1）1)'Select Case ?(?为Index)2)'Timer1.Enabled=?(?为True)3)'If Picture1.Left+Picture1.Width>=?(?为Width)4)'Picture1.Left=? (?为0)（2）1)'If ? =True Then(?为Option1(0).Value)2)'If ?=True Then (?为Option2.Value)3)'Label2.Caption=? (?为s)第47套：（1）[Shape1]FillStyle:0, FillColor: &HFF&1)'Timer1.Enabled=?(?为True)2)‟If Shape1. To p< =? Then (?为Line1.Y1)3)'If Shape1. Top+?>=Line2.Y1 Then(?为Shape1.Height)（2）[计算_Click] '考生编写Select Case Combo1.ListIndex Case 0 Text1=even( ) Case 1 Text1=odd( ) Case 2 Text1=all( )End Select第48套：（1）[计时器]Enabled:False,Interval:10001)'Select Case ? (?为Index)2)' Case ? (?为0 )3)'Text1.Text=Text1.Text ? (?为+1)（2）1)‟Select Case ? (?为s) 2)‟? (?为f=10)3)‟f=10+? (?为(s-4)*1.2)4)‟? (?为Case Else)5)‟f=10+?+(s-15)*1.8 (?为(15-4)*1.2 ) 第49套：（1）1)'z=z+? (?为xn(t)) 2)‟tmp=? (?为1)3)‟tmp=? (?为tmp*i) 4)‟?=tmp (?为xn)（2）1)‟?=Array("第一项",…,"第四项") (?为arr)2)'? i As Integer (?为Static)3)'Label1.Caption=? (?为arr(i) )4)‟i=? (?为0)第50套：（1）[C1_Click]Dim a As Stringa="我是"If Op1.Value ThenText1.Text=a&Op1.CaptionElseText1.Text=a&Op2.CaptionEnd Ifa="我的爱好是"If Ch1.Value=1 ThenText2.Text=a&Ch1.Captiona=Text2.TextEnd IfIf Ch2.Value=1 ThenText2.Text=a&Ch2.CaptionEnd If（2）1)'i=? (?为0)2)'Timer1.Interval=?(?为1000)3)'Label1.Caption=?(?为List1.List(i))第51套：（1）1)'n%= As c("a")- As c(?) (?为"A")2)'b$=String(1, As c(b$)?) (?为+32)3)'Text1.Text=? (?为a)（2）1)'If num<a(i) Then ?(?为Exit For)2)'For j=60 To i ? (?为Step-1)3)'a(j+1)=? (?为a(j) )4)'?=num (?为a(i) )5) 'For k=1 To ?(?为61)第52套：（1）[通话结束]Enabled:False。