vb设计题1
- 格式：doc
- 大小：184.00 KB
- 文档页数：34
下载文档原格式
合集下载
多媒体班 VB_NET 练习题(1)
1、请设计一个由三角形的三个边，求一个三角形面积的VB 程序（要求：若己给的三条边的值，若三角形成立，就显示出结果；若这个三角形不成立，用消息函数MsgBox 输出“此三角形不成立”的提示）。
由数学上己知：s=(a+b+c)/2, Triangle=sqrt(s(s-a)(s-b)(s-c))
2、用s= n
1......111917151311+-+-+-+求π值，设n=15 3、设计一个项目, 变量的属性名任意, 窗体上的属性列表任意形式。
程序一运行时，窗体上的一个文本框和三个命令呈灰色，当鼠标移到文本框时，文本框和第一和第三个命令按钮变成可用。
当用户单击第一个命令按钮后，第一个命令按钮从窗体上消失，文本框出现“This is guy, he ’s very good!”, 第二个命令按钮变成可操作。
第三个命令按钮的功能是退出此工程。
4、用2π =..1
(7)
8765654343212-⨯⨯⨯⨯⨯⨯⨯⨯n n 求π值，设n=100 5、用s= n
1......111917151311+-+-+-+求π值，设n=21 6、设计一个程序，求任意一个十进制整数N 的各个位数之和，设M （M=4）为N 的位数。
例如：8563=》8+5+6+3=22 ：。
计算机程序设计-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 解析：
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题单选题命令按钮的标题文字由（）属性来设置。
Visual Basic程序设计综合练习题一及答案
Visual Basic程序设计综合练习题一及答案一、单项选择题（每题3分，共45分）1．无论何种控件，共同具有的属性是（）。
A．Text 属性B．Caption属性C．Name属性D．Autosize属性2．当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（）。
A．Help B．F10 C．F1 D．Esc3．为了保存一个Visual Basic应用程序，下列说法正确的是（）。
A．只保存窗体文件（.frm）B．只保存工程文件（.vbp）C．分别保存工程文件和标准模块文件(.bas)D．分别保存工程文件、窗体文件和标准模块文件4．在Visual Basic中，变量的默认类型是（）。
A．Integer B．VariantC．Double D．Currency5．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（）。
A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Enabled=False 或Enabled=0 D．Interval=0且Enabled=False6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（）属性设置就有效。
A．MaxButton B．BorderSyleC．Width D．MinButton7．有程序代码如下：Text1.Text = "Visual Basic"，则Text1，Text ，和"Visual Basic"分别代表（）。
A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值8．要设置命令按钮的背景图形，必须设置的两个属性是（）。
A．Value和Icon B．Style和IconC．Caption和Picture D．Style和Picture9．在VB中，下列合法的变量名是（）。
11计算机专业VB试题(一)
11级计算机专业VB试题（一）一、选择题：１、运行工程的错误操作是（）A：执行“运行”菜单中的“启动”命令B：单击工具栏中的“启动”按钮C：按功能键“F5”D：按组合键“alt+f5”2、下列有关VB特点的描述有误的是（）A：VB是一种可视化、面向对象的程序设计语言B：VB采用事件驱动编程机制C：VB可用于开发Windows环境下的各类应用程序D：VB是非面向对象的程序设计语言。
3、以下叙述错误的是（）A：在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B：以.bas为扩展名的文件是标准模块文件C：窗体文件包含该窗体及其控件的属性D：一个工程可以含有多个标准模块文件4、与传统的程序设计语言相比，VB最突出的特点是（）A：结构化程序设计B：程序开发环境C：事件驱动编程机制D：程序调试技术5、下列不能打开代码窗口的操作是（）A：双击窗体B：双击窗体上的某个控件C：单击窗体D：按“F7”键6、在8BBE计窗体时双击窗体的任何地方，可以打开的窗体时（）A：代码窗口B：属性窗口C：工程资源管理器窗口D：工具箱窗口7、下列标识符不能作为VB变量名的是（）A：ABCabeB：b1234C：28wedD：crud8、下列说法错误的是（）A：在同一模块不同过程中的变量可以同名B：不同模块中定义的全局变量可以同名C：引用另一模块中的全局变量时，必须在变量名前加模块名D：同一模块中不同级的变量可以同名9、下列描述不正确的是（）A某个子过程中声明的局部变量，其适用范围仅限定于该子过程内B：某个子过程中声明的局部变量，期生命周期仅限定于该子过程被执行过程中C：不同子过程中的局部变量可以具有相同的名称D：不同子过程的局部变量可以具有相同的名称10、声明一个变量为局部变量应该用（）A：local B：private C：static D：public11、语句Y=Y+1的正确含义是（）A：变量Y的值与Y+1的值相等B：奖变量Y的值存到Y+1中去C：将变量Y的值加1后赋值给变量YD：变量Y的值为112、下列符号不能作为VB中的变量名的是（）A：ABCD B：E0065400 C：123TWJGF D：zxy13、若要在代码编辑器窗口中规定输入的代码中的变量必须要显示声明，应在下列哪个选项中设置（）A：自动语法检测B：要求变量声明C：自动缩进D：Tab宽度14、下列属于不合法的常量是（）A：20000 B：100^6 C：123.5 D：10E+615、下列不合法的变量名是（）A：Print_Numl B：Abc% C：Const D：X1_y2_z316、关于变体变量，下列说法正确的是（）A：变量未加定义而直接使用，该变量变为变体变量，因此变体变量是无类型变量B：遍体变量占16字节的固定存储单元C：变体变量定以后，系统将变体变量初始化为数值0或空字符串D：设X为遍体变量，且X=“10”，则X=X+20是正确的语句17、下列符号常量的声明中，不合法的是（）A：Const a as single =1.1 B：const a =“OK”C：const a as double =sin（1）D：const a as integer ="12"18、下列关于声明变量的说法中，错误的是（）A：用显式声明变量的关键字Dim、Private、Static或Public来声明的类型B：用类型说明符标记变量的类型，其中Yype是类型标志C：用DefTrype语句声明变量的类型，其中Type是类型标志D：用Type<数据类型名>/End Type语句声明记录类型变量19、已知a=5，b=8，c=12，下列表达式的值为Ture的是（）1A：a>b and c<a B: a>b or c<aC:a>b xor c<a D:a>b eqv c<a20、下列程序段运行后窗体上输出结果为（）Private Sub Form_Click()a = 5:b = 6:c = 7:d = 8x = 3 > 2 * b Or a = c And b <> c Or c > dPrint xEnd SubA：1 B：Ture C：False D：2二、填空题。
Visual Basic程序设计期末综合练习题一_百度文库解析
Visual Basic程序设计期末综合练习题一一、单项选择题1.Visual Basic是一种面向对象的可视化编程语言,采取了(的编程机制。
A.从主程序开始执行B.按过程顺序执行C.事件驱动D.按模块顺序执行2.在Visual Basic中,窗体文件的扩展名为(。
A..vbpB..frmC..clsD..bas3.Visual Basic6.0集成开发环境有三种工作模式,下列不属于三种工作模式之一的是(。
A.设计模式B.编写代码模式C.中断模式D.执行模式4.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格式是(。
A.Text.MytextB.Mytext*TextC.Mytext.(TextD.Mytext.Text5.下列关于变量的说法不正确的是(。
A.局部变量在声明它的过程执行完毕后就被释放了B.局部变量的作用域仅限于声明它的过程C.静态局部变量是在过程中用Static语句声明的D.局部变量是指那些在过程中用Dim语句或Static语句声明的变量6.关于对象的属性不正确的是(。
A.对象的属性一般有属性名和属性值B.可通过属性窗口设置属性的值C.可通过程序代码设置属性的值D.对象的所有属性值均可在设计时设计7.在设计阶段,双击窗体上的某个控件时,打开的窗体是(。
A.工程资源管理器窗口B.工具箱窗口C.代码编辑器窗口D.属性窗口8.要在窗体的标题内显示“myfrm”,使用的语句是(。
A.Form.caption="myfrm"B.Form1.caption="myfrm"C.Form1.Print"myfrm"D.Form.Print"myfrm"9.在VB中,下列变量名不合法的是(。
A.file_1B.fileC.file-1D.file_1_210.在设计动画时,用时钟控件来控制动画速度的属性是(。
Visual-Basic程序设计综合练习题一及答案
Visual Basic程序设计综合练习题一及答案一、单项选择题(每题3分，共45分）1．无论何种控件，共同具有的属性是（）。
A．Text 属性B．Caption属性C．Name属性D．Autosize属性2．当需要上下文帮助时,选择要帮助的内容,希望出现MSDN窗口及显示所需的帮助信息，应按的键是( )。
A．Help B．F10 C．F1 D．Esc3．为了保存一个Visual Basic应用程序,下列说法正确的是（）。
A．只保存窗体文件（。
frm）B．只保存工程文件(.vbp）C．分别保存工程文件和标准模块文件(。
bas)D．分别保存工程文件、窗体文件和标准模块文件4．在Visual Basic中,变量的默认类型是（)。
A．Integer B．VariantC．Double D．Currency5．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件,需要设置的属性是( ）。
A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Enabled=False 或Enabled=0 D．Interval=0且Enabled=False6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮,只要对下列( ）属性设置就有效。
A．MaxButton B．BorderSyleC．Width D．MinButton7．有程序代码如下：Text1。
Text = "Visual Basic"，则Text1，Text ，和"Visual Basic"分别代表( ）。
A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值8．要设置命令按钮的背景图形，必须设置的两个属性是（）。
A．Value和Icon B．Style和IconC．Caption和Picture D．Style和Picture9．在VB中，下列合法的变量名是（）。
VB习题1[1][1].3
图3-1 窗体运行界面
2.
在窗体上放1个标签Label1，1个命令按钮Command1，当窗体启动时使标签居于窗 体的中间，并显示系统的当前时间，命令按钮显示为"放大"，当单击命令按钮时， 将标签中显示放在1~3倍，并重新显示系统当前时间。如下图：
图3－2
3.
编一模拟简易计算器的程序，运行界面如图3-3示。
图3-3 简易计算器的运行结果
第四讲
程序的顺序结构
一、选择题 1. 设 x=2,y=5,下列语句中能在窗体上显示“A=7”的语句是 C A. Print A=x+y B. Print “A=x+y” C. Print “A=”;x+y D. Print “A=” +x+y 2. 语句 Print Format$(1234.56,”000,000.000”)的输出结果是 D A. 1234.56 B. 1,234.56 C. 1,234.560 D. 001,234.560 3. 运行下列程序段,在弹出的信息框的标题栏中显示的是 C x$ = ”Beijing Welcomes you” y$ = Left(x$,7) z$ = Right(x$,3) q$ = Mid(x$,9,8) MsgBox x$,y$,z$,q$ A. Beijing Welcomes you B. Beijing C. Welcomes D. you 4. 在窗体上画一个文本框（其中 Name 属性为 Text1） ，然后编写如下事件过程 Private Sub Form_Click() x = InputBox(“Enter an Integer”) y = InputBox(“Enter an Integer”) Text1.text = x+y End Sub 程序运行后，在输入对话框中分别输入 5 和 6，则文本框中显示的内容是 B A. 11 B. 56 C. 65 D. 出错信息 5. 执行语句： x = InputBox(“Afanda”,“Mummy”,“Alien”,,,“2012”) 则在对话框的输入区中显示的信息是 C A. Afanda B. Mummy C. Alien
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 ）。
VB习题1-2答案
习题 1一、叙述题1．简述事件驱动的程序设计原理。
2．简述VB具有哪些特点。
3．VB的集成开发环境由哪些元素组成？4．VB集成开发环境的工具栏能否自行定义？标准工具栏中包含一些什么按钮？5．当创建只有一个窗体的应用程序后，该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件？后保存什么文件？若不这样做，系统有什么信息？6．简述用VB开发应用程序的一般步骤。
二、单选题1．VB是用于开发________环境下应用程序的工具。
A．DOS或Windows B．DOSC．Windows D．UNIX2．VB采用了________的编程机制。
A．可视化B．事件驱动C．面向过程D．面向对象3．窗体编辑器的主要功能是________。
A．设计窗体的外观B．编写源程序代码C．设计用户界面D．设置对象属性4．VB是________的应用程序的开发工具。
A．8位B．16位C．32位D．64位5．VB集成开发环境开发的应用程序不适宜的运行环境是________。
A．Windows32B．Windows 9XC．WindowsNT D．Windows20006．VB共有三个版本，按功能从弱到强的顺序排列应是________。
A．学习版、专业版和工程版B．学习版、工程版和专业版C．学习版、专业版和企业版D．学习版、企业版和专业版7．VB集成开发环境有三种工作模式，工作模式显示在________。
A．状态栏的最左方B．状态栏的最右方C．状态栏的中括号内D．标题栏的中括号内8．下面不属于VB集成开发环境三种工作模式之一的是________。
A．设计状态B．编写代码状态C．运行状态D．中断状态9．不能打开代码窗口的操作是________。
A．双击窗体设计器的任何地方B．按下F4键C．单击工程窗口中的“查看代码”按钮D．选择“视图”下拉菜单中的“代码窗口”10．工程文件的扩展名是________。
A．.frm B．.vbp C．.bas D．.frx11．窗体文件的扩展名是________。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
杭州师范大学《计算机技术基础》（VB程序设计）设计题(请按照题目要求进行答题，完成之后打包上传)第01套：第1题：编程，输入x，求下列分段函数的值，计算结果输出到Text控件中。
正确答案：Private Sub Command1_Click()Dim x As Singlex = InputBox("输入x", "计算分段函数")If x <= 3 ThenText1 = Str(1 + x)ElseText1 = Str(x + 3) ^ 0.25End IfEnd Sub第2题：如下图，编程，点击按钮可以移动列表框中所选中表项的位置。
说明：通过load事件添加列表项，运行时，先选择列表框中的选项，才可以使用“上移”或“下移”按钮。
当选项是第一项时不能再上移，当选项是最后一项时不能再下移。
正确答案：Private Sub Command1_Click() '上移Dim i As Integeri = List1.ListIndexList1.AddItem List1.Text, i - 1 '先将选中的内容添加到上一项前List1.RemoveItem i + 1 '将原来选中的那项删除List1.ListIndex = i - 1 '将光标重新指向已经上移后的选项End SubPrivate Sub Command2_Click() '下移Dim i As Integeri = List1.ListIndexList1.AddItem List1.Text, i + 2 '先将选中的内容添加到下一项后List1.RemoveItem i '将原来选中的那项删除List1.ListIndex = i + 1 '将光标重新指向已经下移后的选项End SubPrivate Sub List1_Click()Command1.Enabled = True: Command2.Enabled = TrueIf List1.ListIndex = 0 ThenCommand1.Enabled = False '第一项不能上移End IfIf List1.ListIndex = List1.ListCount - 1 ThenCommand2.Enabled = False '最后一项不能下移ElseEnd IfEnd Sub第3题：编写程序，将磁盘文件d:\student.dat中若干个学生的姓名、出生年月、外语成绩和计算机成绩显示在列表框中，并且能实现以下功能：直接输入在文本框中的文本可以追加；单击列表框某项，则该项可删除；首次运行时文件可以为空，退出系统前应保存文件。
界面设计如图所示。
正确答案：Private Sub Form_Load()Dim ss As StringOpen "e:\student.dat" For Append As #1Close #1Open "d:\student.dat" For Input As #1While Not EOF(1)Line Input #1, ss: List1.AddItem ssWendClose #1End SubPrivate Sub Command1_Click()If Trim(Text1.Text) <> "" Then List1.AddItem Text1.TextText1.Text = ""End SubPrivate Sub Command2_Click()List1.AddItem Text1.Text, List1.ListIndexList1.RemoveItem List1.ListIndexText1.Text = ""End SubPrivate Sub Command3_Click()Dim i As IntegerOpen "d:\student.dat" For Output As #1For i = 0 To List1.ListCount - 1: Print #1, List1.List(i): Next iClose #1End SubPrivate Sub Command4_Click()Call Command3_Click: EndEnd Sub第02套：第1题：编程，用随机函数产生2个10～100的整数，输出最大值。
正确答案：Private Sub Command1_Click()Dim x%, y%,max%Randomizex = Int(Rnd * 91 + 10)y = Int(Rnd * 91 + 10)Max = xIf y > Max Then y = MaxPrint MaxEnd Sub第2题：如下图，编写事件过程Command1_Click和Text3_Keypress(Keyascii As Integer)事件，运行时单击“出题”按钮，自动在Text1和Text2中显示两个2位随机正整数；用户在Text3中输入运算结果，按回车后计算机对运算结果进行评判，并将评判结果在Label2中显示（对了或错了）。
要求文本框Text3只接受数字和回车键。
(回车键的Ascii码为13，数字键的Ascii码为48到57)正确答案：Dim x As Integer, y As IntegerPrivate Sub Command1_Click()x = Int(Rnd * 90) + 10: y = Int(Rnd * 90) + 10Text1.Text = CStr(x): Text2.Text = CStr(y)Text3.Text = ""Text3.SetFocusLabel2.Visible = False: Command1.Enabled = FalseEnd SubPrivate Sub Form_Load()Text1.Text = "": Text2.Text = "": Text3.Text = ""Label2.Visible = FalseRandomizeEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 13 ThenKeyAscii = 0End IfIf KeyAscii = 13 ThenLabel2.Visible = TrueIf Val(Text3.Text) = x + y ThenLabel2.ForeColor = vbBlue: Label2.Caption = "对了"ElseLabel2.ForeColor = vbRed :Label2.Caption = "错了"End IfCommand1.Enabled = TrueEnd IfEnd Sub第3题：在窗体上添加一个文本框和一个命令按钮。
当用户在文本框中输入密码并单击命令按钮后，判断输入的密码是否为“123”，如果不是，则弹出对话框提示“密码不正确！单击“确定”,请再试一次”，并将文本框内容清空，焦点定位在文本框上，3次密码不正确即结束程序运行；如果输入的密码是“123”，则打开文本文件e:\aaa.txt，向文本框中写入：第I次登录日期时间（如：第9次登录2008-6-3010:11:00）。
要求程序运行前先建一个文件e:\aaa.txt，初始内容为：第1次登录2008-6-1 10:41:31，之后每次按顺序在文件末尾写入第2次当前日期当前时间、第3次登录当前日期当前时间……。
正确答案：Dim k as integerPrivate Sub Command1_click()Dim n As Integer, st as stringIf Text1.Text = "123" ThenOpen "e:\aaa.txt" For Input As #1Line Input #1, stst = Mid(st, 2, 1)n = 1 + Val(st)Close #1Open "e:\aaa.txt" For Append As #1Print #1, "第"; Trim(n); "次登录"; Now()Close #1Elsek = k + 1If k < 4 ThenMsgBox "密码不正确！单击“确定”, 请再试一次"Text1.Text = ""Text1.SetFocusElseEndEnd IfEnd IfEnd Sub第03套：第1题：编程，求算式1+1/2！+1/3！+1/4！+……前10项的和。
正确答案：Private Sub Command1_Click()Dim i%, s!，a!a = 1: s = 0For i = 1 To 10a = a / is = s + aNext iPrint "1+1/2!+1/3!+……="; sEnd Sub第2题：设计一个用于输入学生信息的应用程序。
界面如图所示（民族有汉族、苗族、壮族等；政治面貌有：群众、团员、党员）。
要求：（1）输入完毕后单击确定按钮，能在另一窗口显示输入的信息（2）单击取消按钮，将取消所输入的信息。
正确答案：Public info As StringDim s As StringPrivate Sub Command1_Click()info = "学号为" + Text1.Text + ",姓名为" + Text2.Text + ", 性别为" + s +"，民族为" + Combo1.Text + " ，政治面貌为" + Combo2.Text+”.”Form2.ShowEnd SubPrivate Sub Command2_Click()Call Form_LoadEnd SubPrivate Sub Form_Load()Text1.Text = "" :Text2.Text = ""Option1.Value = True :Option2.Value = FalseCombo1.Text = "汉族" :Combo2.Text = "群众"End SubPrivate Sub Option1_Click()s = "男"End SubPrivate Sub Option2_Click()s = "女"End Sub第3题：编程实现两个文本文件的合并，要求用驱动器、目录、文件列表框选择文件1，单击按钮1后，调用通用对话框选择文件2；单击按钮2后，将文件2的内容添加到文件1原来内容之后，然后删除文件2。