VB程序设计---模拟试题1
全国计算机等级考试二级VB模拟试题1
⼀、选择题（每题2分，共计70分）1.数据的存储结构是指____。
A、存储在外存中的数据B、数据所占的存储空间C、数据在计算机中的顺序存储⽅式D、数据的逻辑结构在计算机中的表⽰A B C D2.下列关于栈的描述中错误的是：____。
A、栈是先进后出的线性表B、栈只能顺序存储C、栈具有记忆作⽤D、对栈的插⼊与删除操作中，不需要改变栈底指针A B C D3.对于长度为n的线性表，在最坏情况下，下列各排序法所对应的⽐较次数中正确的是____。
A、冒泡排序为n/2B、冒泡排序为nC、快速排序为nD、快速排序为n(n-1)/2A B C D4.对长度为n的线性表进⾏顺序查找，在最坏情况下所需要的⽐较次数为____。
A、log2nB、n/2C、nD、n+1A B C D5.下列对于线性链表的描述中正确的是____。
A、存储空间不⼀定是连续，且各元素的存储顺序是任意的B、存储空间不⼀定是连续，且前件元素⼀定存储在后件元素的前⾯C、存储空间必须连续，且前件元素⼀定存储在后件元素的前⾯D、存储空间必须连续，且各元素的存储顺序是任意的A B C D6.下列对于软件测试的描述中正确的是____。
A、软件测试的⽬的是证明程序是否正确B、软件测试的⽬的是使程序运⾏结果正确C、软件测试的⽬的是尽可能多地发现程序中的错误D、软件测试的⽬的是使程序符合结构化原则A B C D7.为了使模块尽可能独⽴，要求____。
A、模块的内聚程度要尽量⾼，且各模块间的耦合程度要尽量强B、模块的内聚程度要尽量⾼，且各模块间的耦合程度要尽量弱C、模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D、模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强A B C D8.下列描述中正确的是____。
A、程序就是软件B、软件开发不受计算机系统的限制C、软件既是逻辑实体，⼜是物理实体D、软件是程序、数据与相关⽂档的集合A B C D9.数据独⽴性是数据技术的重要特点之⼀。
计算机程序设计-VisualBasic【VB】考试试题(1)
A、 AutoSize B、 Visible C、 Enabled D、 WordWrap 正确答案： A 解析：
42、当文本框的 MaxLength 属性值取________时，该文本框能容纳的字符数最多。
A、 256 B、 512 C、 0 D、 -1 正确答案： C 解析：
43、在一行语句内写多条语句时，每个语句之间用_____ ___符号分隔。
A、 ； B、 : C、 ， D、 、 正确答案： B 解析：
44、结构化程序由三种基本结构组成，下面术语中是三种基本结构之一的是______ _。
A、 递归结构 B、 选择结构 C、 输入输出结构 D、 过程结构 正确答案： B 解析：
45、在默认情况下，InputBox() 函数返回值的类型为______ __。
8、下列关于 VB 编程的说法中，不正确的是（ ）。
A、 事件是能被对象识别的动作 B、 方法指示对象的行为 C、 属性是描述对象特征的数据 D、 VB 程序采用的运行机制是面向对象 正确答案： D 解析：
9、下面所列符号中，_________不是数据类型说明符。
A、 !
B、 % C、 ？ D、 # 正确答案： C 解析：
A、 0.01*Int(100*(x+0.005)) B、 0.01*Int(x+0.005) C、 0.01*Int(100*(x+0.05)) D、 0.01*Int(x+0.05) 正确答案： A 解析：
24、从字符串变量 Cstr 中取左边 4 个字符，应使用________。
A、 Left(Cstr，4) B、 Left(Cstr，1，4) C、 Mid(Cstr，3，4) D、 Mid(Cstr，4，3) 正确答案： A 解析：
10vb模拟测试卷1(答案)
10vb模拟测试卷满分：80分姓名：________1、单项选择题(本题共计40分)1、执行以下程序，在窗体上显示的第一行内容是______,第二行内容是_________。
Private Sub Command1_Click()Dim x%, y%x = 10y = 15Call value(x, y)Print "x="; x, "y="; yEnd SubPrivate Sub value(ByVal m%, n%)m = m * 2n = n - 5Print "m="; m, "n="; nEnd Sub ( )A、m=20 n=10B、x=10 y=15C、x=20 y=102、若整型实参x、y的值分别为48、28，则引用以下function过程的返回值是________。
Private Function f(ByVal m%, ByVal n%) As IntegerDor = m Mod nm = nn = rLoop While r <> 0f = mEnd Function ( )A、1B、2C、4D、都不是3、关于语句If x=1 Then y=1，下列说法正确的是________。
( )A、x=1和y=1均为赋值语句B、x=1和y=l均为关系表达式C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=l为关系表达式4、VB也提供了结构化程序设计的三种基本结构，这三种基本结构是________。
( )A、递归结构、选择结构、循环结构B、选择结构、过程结构、顺序结构C、过程结构、输入\输出结构、转向结构D、选择结构、循环结构、顺序结构5、假设boolVar是一个逻辑型变量，则下面的赋值语句正确的是________。
( )A、boolVar='True'B、boolVar=.True.C、boolVar=#True#D、boolVar=3<46、在Cmdl_C1ick事件中有效的地址传递的调用语句是Public Sub Fl(n%)……n =3*n+4……End SubPrivate Sub Cmdl_Click()Dim n%, m%n=3 :m =4'调用F1语句End SubA、.F1 n+m .B、F1 mC、F1 5D、F1 m+57、程序中用“Private Function Fun(X As Integer,Y As Single)”定义了函数Fun。
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模拟试题一
VB模拟试题一一、选择题1．工程文件的扩展名是（）A．.vbg B．。
vbp C．.vbw D．。
vbl2．一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有（）A．窗体文件（。
frm)、项目文件（.vbp/vbw）B．窗体文件（。
frm）、项目文件（。
vbp/vbw）和代码文件（。
bas)C．窗体文件（.frm)、项目文件（。
vbp/vbw)和模块文件(。
bas）D．窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（。
frx）3．以下关于窗体描述正确的是（）A．只有用于启动的窗体可以有菜单B．窗体事件和其中所有控件事件的代码都放在窗体文件中C．窗体的名字和存盘的窗体文件名必须相同D．开始运行时窗体的位置只能是设计阶段时显示的位置4．VB中控件主要分为3类,下面哪一种不是VB中的控件类（)A．标准控件B．ActiveX C．可插入控件D．外部控件5．在VB的基本数据类型中,通用类型(Variant)可以表示任何类型的变量,如果有定义Dim a,则以下变量赋值中正确的是（）A．a=”OK”B．A＄=OK C．a=04/01/2001 D．a＄=”OK”6．在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：Private Sub Command1_Click( )A=1。
2C=Len(Str＄（A)+Space（10))Text1.text=CEnd Sub程序运行后，单击命令按钮，在文本框中显示（）A．3 B．8 C．14 D．107．在MsgBox函数中哪一个参数是必须的（）A．prompt B．buttons C．title D．context8．以下语句的输出结果是（）Print Format＄（1234.5,”00,000。
00”)A．1234。
5 B．01，234.50 C．01,234.5 D．1,234.509．有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu。
VB题库(附答案)
2009级第二学期《Visual Basic程序设计》模拟考试一: 单项选择题A1: 当事件发生时，对象识别并响应事件，执行事件对应的程序代码，这样的编程机制称为________。
A事件驱动编程机制B面向对象方法C过程化编程方法D 可视化程序设计方法C2: 下列不能打开属性窗口的操作是________。
（A）执行菜单中“视图→属性窗口”命令（B）按F4键（C）双击窗体（D）单击工具栏中的“属性窗口”按钮D3:当文本框获得焦点时，将触发文本框控件的_______事件。
（A）SetFocus（B）LostFocus（C）KeyPress（D）GotFocusB4: 以下不属于Visual Basic应用程序文件类型的是________。
（A）.frm（B）.bat（C）.vbg（D）.vbpD5: 使程序运行时窗体无法响应用户事件的属性是_______。
（A）Top（B）Cancel（C）Left（D）EnabledB6: 返回当前日期的函数是________。
（A）Time()（B）Date()（C）Year()（D）Timer()D7:用变量x存放数据123456789.987456321，变量x的最佳数据类型是________。
a整型b长整型c单精度型d双精度型A8: 设变量X="123"，Y=3,则X＆Y的值为________。
（A）"1233"（B）126（C）123（D）假C9: 下列程序段中可以实现X、Y变量值的互换的是________。
(A)Y=X:X=Y (B)Y=X:Y=Z:X=Y(C)Z=X:X=Y:Y=Z(D)Z=X:W=Y:Y=Z:X=YD10: InputBox函数返回值的类型是________。
（A）字符串（B）变体（C）数值（D）数值或字符串(视输入而定)A11:关于多分支选择结构If…ElseIf…EndIf ，下列错误的叙述是________。
VB考试题模拟卷（参考答案）
VB考试题模拟卷（参考答案）上海交通⼤学基础医学院⼆010年～⼆011学年第⼀学期 10 级专业VB程序设计课程模拟试卷考试⽇期2010.12 ⼤班⼩班姓名学号1、在E盘中的根⽂件夹创建⼀个⼦⽂件夹，新⽂件夹名称为⾃⼰的学号、姓名和“考试”；例如：“5078058001-李⽂海-考试”。
2、要求编程题在上述⽂件夹中保存两个⽂件(窗体⽂件：李⽂海．frm和⼯程⽂件李⽂海．vbp)。
3、将上述⽂件夹上传到⽼师⽹盘上相应班级的⽂件夹中。
⼀、选择题（10分，正式试卷为10题）1、VB是⼀种⾯向对象的可视化程序设计语⾔，采取了____的编程机制。
A、事件驱动B、过程驱动C、函数驱动D、模块驱动2、在VB中____是⼀个特例，它既是类也是对象。
A、命令按钮B、⽂本框C、标签D、窗体3、多窗体程序是由多个窗体组成。
在缺省情况下，VB在应⽤程序执⾏时，总是把____指定为启动窗体。
A、包含控件最多的窗体B、设计时的第⼀个窗体C、含有Form_Load过程的窗体D、命名为Form1的窗体4、VB集成开发环境具有三种⼯作模式，以下____是使⽤最多的VB⼯作模式。
A、编辑B、设计C、运⾏D、中断5、有⼀程序代码：Text1.FontSize = ”宋体”，其中Text1、FontSize和”宋体”分别代表的是____。
A、对象、⽅法、属性B、对象、属性、值C、属性、对象、值D、对象、值、属性6、不具备Caption属性的对象是____。
A、⽂本框B、标签框C、命令按钮D、多选框7、VB是⼀种⾯向对象的程序设计语⾔，____不是⾯向对象系统所包含的三个要素。
A、变量B、事件C、⽅法D、属性8、不具备Text属性的对象是____。
A、⽂本框B、图⽂框C、组合框D、列表框9、当启动程序时，系统⾃动执⾏的是____事件过程。
A、Form_ClickB、Form_LoadC、Command_ClickD、Text1.Change10、表达式Int (19 / 3) +5 ^ 2 * 8 Mod 10 \ 3的值是____。
vb模拟1
试卷编号：8686所属语言：Visual Basic试卷方案：VB_统计12试卷总分：100分共有题型：3种━━━━━━━━━━━━━━━━━一、单项选择共40题（共计40分）━━━━━━━━━━━━━━━━━第1题（1.0分）题号:3197以下程序的循环次数是______.Private Sub Command1_Click()For j=8 To 35 Step 3Print j;Next jEnd SubA:10B:9C:27D:8答案：A第2题（1.0分）题号:3243属性窗口只能在使用.A:设计时B:编译时C:运行时D:以上都不对答案：A第3题（1.0分）题号:3759Text1控件在运行时不可见,是设置下列()属性的结果. A:EnabledB:CancelC:VisibleD:ControlBox答案：C第4题（1.0分）题号:5040设有语句组：Dim s1 as string*5S1="vb test"则s1的值为（）。
A:vb testB:vb teC:vb tesD:b test答案：B第5题（1.0分）题号:4188若要实现当鼠标暂时停留在控件上时返回一文本内容,应设置( )属性A:TextB:ToolTipTextC:WhatThisHelpIDD:HelpContextID答案：B第6题（1.0分）题号:3694为了把焦点移到某个指定的控件,所使用的方法是().A:SetFocusB:VisibleC:RefreshD:GetFocus答案：A第7题（1.0分）题号:3529以下不属于Visual Basic 系统文件类型的是:A:.frmB:*.batC:*.vbpD:*.bas答案：B第8题（1.0分）题号:2420设a=6,则执行x=IIf(a>5,-1,0)后,x的值为().A:5B:6C:0D:-1答案：D第9题（1.0分）题号:5009执行Visual Basic叙述PRINT INT(-3.01)之结果为A:-3B:-4C:-3.00D:3答案：B第10题（1.0分）题号:4173当运行程序时,系统自动执行启动窗体的( )事件过程.A:LoadB:ClickC:UnLoadD:MinButton答案：A第11题（1.0分）题号:379下列数据类型中,占用内存最大的是().A:BooleanB:ByteC:IntegerD:Single答案：D第12题（1.0分）题号:5044判断整型变量x是5的倍数的表达式是（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
模拟试题一一、单选题1. VB6.0是一种面向 B 的编程环境。
(A) 机器(B) 对象(C) 过程(D) 应用2. 以下关于窗体的Name属性的叙述正确的是 D 。
(A) 窗体的Name属性可以为空(B) 窗体的Name属性是显示在窗体标题栏中的文本(C) 可以在运行期间改变窗体的Name属性(D) 窗体的Name属性指定窗体的名称，用来标识一个窗体3. 若要使命令按钮不可操作，要对 A 属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面 A 是合法的变量名。
(A) pi (B)π(C) print (D) a+k6. 表达式Int(10*Rnd)产生的随机数的范围是 D 。
(A) [1,9] (B) [1,10](C) [0,10] (D) [0,9]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. 当VB执行下面语句后，变量a的值为 C 。
a=1If a>0 Then a=a+1If a>1 Then a=0(A) 0 (B) 1 (C) 2 (D) 310.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
(A) Do While…Loop循环和Do…Loop Until循环至少都执行一次(B) Do While…Loop循环和Do…Loop Until循环可能都不执行(C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行(D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次11.以下 B 是正确的For…Next结构。
(A) For x=1 To Step 10 (B) For x=3 To -3 Step -3……Next x Next x(C) For x=1 To 10 (D) For x=3 to 10 step 3re: ……Next x Next yIf i=10 Then GoTO re12.如下数组声明语句， 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 Integer13.对于可变长数组，重定义数组的大小，但没有清除其中的元素，合法的重定义语句是 B 。
(A) Dim Ary( ) (B) Redim Preserve Ary(15)(C) Public Ary(1 to 5) As String (D) Static Ary( )14.下列过程定义语句中，参数一定按值传递方式进行虚实结合的语句是 C 。
(A) Sub f1(a As Integer) (B) Sub f1(ByRef a As Integer)(C) Sub f1(ByVal a As Integer) (D) Sub f1(arr( ))15.在过程中，过程定义语句中的Private说明了该过程 D 。
Private Sub s1(x As Integer)…End Sub(A) 可以被其他过程调用(B) 不可以被任何其他过程调用(C) 只可以被本工程中的其他过程调用(D) 只可以被本窗体模块中的其他过程调用16.用来设置标签控件显示内容为粗体字的属性是 C 。
(A) FontItalic (B) FontName (C) FontBold (D) FontSize17.设置一个单选按钮(OptionButton)所代表选项的选中状态，应当设置的属性是 C 。
(A) Caption (B) Name (C) Value (D) Text18.在下列关于通用对话框的叙述中，错误的是 B 。
(A) CommonDialog控件式提供如打开和保持文件、设置打印机选项、选择颜色和字体等操作的一组标准对话框(B) 设计时在窗体上该控件显示成一个图标，此图标的大小可以调整(C) 在运行Windows帮助引擎时，该控件能够显示帮助信息(D) 控件显示的对话框可以由控件的方法决定19.当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是 C 。
(A) KeyPress、KeyDown、KeyUp(B) KeyDown、KeyUp、KeyPress(C) KeyDown、KeyPress、KeyUp(D) 没有规律20.在下面关于顺序文件的描述中，正确的是 C 。
(A) 顺序文件中每行的长度都是相同的。
(B) 可以通过编程对文件中的某行方便地进行修改(C) 数据以ASCII码的形式存放在文件中，所以可通过记事本打开(D) 文件的组织结构复杂21.随机文件是因为 C 。
(A) 文件中的内容是通过随机数产生的(B) 文件中的记录号通过随机数产生的(C) 可对文件中的记录根据记录号随机地读/写(D) 文件的每条记录的长度是随机的22.从磁盘上读入一个文件名为“c:\t1.txt”顺序文件，如下 A 正确。
(A) F=“c:\t1.txt”Open F For Input As #1(B) F=“c:\t1.txt”Open “F” For Input As #2(C) Open “c:\t1.txt” For Output As #1(D) Open c:\t1.txt For Input As #223.坐标度量单位可由通过来 D 改变。
(A)Drawstyle属性(B) DrawWidth属性(C) Scale方法(D) ScaleMode属性24.指令“Circle (1000, 1000), 500, 8, -6, -3”将绘制 D 。
(A) 画圆(B) 椭圆(C) 圆弧(D) 扇形25.用ADO数据控件建立与数据源的链接，设置操作过程按 A 顺序进行。
①选择数据源连接方式；②选择数据库类型；③指定数据库文件名；④指定记录源(A) ①②③④(B) ②③④①(C) ③①②④(D) ①③②④二、填空题1．VB是建立在BASIC语言基础上的面向对象的可视化编程语言或编程环境。
2．在窗体上已建立多个控件如Text1、Label1、Command1，若要程序一运行时焦点就定位在Command1控件上，应对Command1控件设置tabindex 属性的值为0。
3．在VB中，1234、123456&、1.2346E+5、1.2346D+5这4个常数分别表整型、长整型、单精度型、双精度型类型。
4．表示x是5的倍数或是9的倍数的逻辑表达式为x mod 5=0 or x mod 9=0 。
5．数组声明时下标下界默认为0，利用option base 1 语句可以使下标为1。
6．传地址方式是当过程被调用时，形参和实参共享一个存储单元7．窗体中的模块级变量应在通用声明、段声明，它作用于该窗体的所有过程。
8．当用户单击滚动条的空白处时，滑块移动的增量值由LargeChange 属性决定。
9．如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“-（连字符）”符号，那么显示时形成一个分隔符。
10．使用scale 方法可以自定义坐标系。
11．使用Line方法画矩形，必须在指令中使用关键字 B 。
12．使用SQL语句设置ADO控件的RecordSource属性，这CommandType属性需要设置成1或8 。
13．为了显示一个窗体，所使用的方法为show；而为了隐藏一个窗体，所使用的方法为___ hide ____。
14．如果要将某个命令按钮不显示，则可将___ visible属性设置为False15．在VB中窗体文件的扩展名为___ frm_。
三、编程应用题1.程序阅读，写出下列程序的运行结果。
(1)Private Sub Command1 _Click()Dim a, i%, min%, imin%, sum%, t%a=Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69)min=a(0): imin=0: sum=a(0)For i=1 to UBound(a)sum=sum+a(i)If a(i)< min Then min=a(i): imin=iNext it=a(0): a(0)=a(imin): a(imin)=tPrint sum; a(0)End Sub510 19(2)Private Sub Command1_Click( )Dim ch as String*1ch=＂8＂If UCase(ch)>= ＂A＂And UCase<=＂Z＂Thenform1.Print ch; ＂是字母字符＂ElseIf ch>=＂0＂And ch<=＂9＂Thenform1.Print ch; ＂是数字字符＂Elseform1.Print ch; ＂是其他字符＂End IfEnd Sub8是数字字符(3)Public Sub Proc(a%( ) )Static i%Doa(i)=a(i)+a(i+1)i=i+1Loop While i<2End SubPrivate Sub Command1_Click( )Dim m%, n%, x%(10)For i=0 to 4: x(i)=i+1: Next iFor i=1 to 2: Call Proc(x): Next iFor i=0 to 4: Print x(i); : Next iEnd Sub3 5 74 52.补充程序(1)如下是账号和密码输入的检验程序，运行界面如下图1所示。
输入帐号和密码后，单击“检验密码”按钮，如果密码正确则程序结束，假定密码为“s001”；如果密码不正确，则弹出如下图2所示对话框，单击“取消”则程序结束，单击“重试”则返回图1窗体，且密码文本框Text2内容被清空，等待再次输入。