程序中有文本框和列表框, 该怎么做才能使下次打开时,其中的内容显示的是上次最后输入的内容?
我编绎成EXE后,在文本框和列表框里面添加内容,然后关闭,再打开程序,文本框和列表框又变成空白的,郁闷,输入的内容该怎么才能永久保存哦
此问题不难,建议把问题发到相应的版块中,否则可能会看不到.
'如果懒得复制代码,直接下载复件
'在窗体中添加两个按钮
'在文本框里写入字符,之后点击按钮1,退出应用程序,再启动应用程序, 即可看到您想要的效果
'按钮2是用来删除设置的
Private Sub Command1_Click()
k1 = Text1
SaveSetting App.EXEName, "Window", "TextInof", k1 '保存文本设置
Private Sub Command2_Click()
DeleteSetting App.EXEName, "Window", "TextInof" '删除应用程序设置
Private Sub Form_Load()
k1 = GetSetting(App.EXEName, "Window", "TextInof") '读取文本框设置
Text1 = k1
其他答案（共2个回答）
利用Combobox和Listbox的text属性完成。例如代码为：Msgbox Combo1.text或者Msgbox List1.text要想让这段代码完成...
按照楼上的方法改好图标,另外有多个图标想选的话,按照下面的方法工程-工程属性(最下面的)-生成-然后就可以改图标了
打开ACAD后，输入menu命令，出现的文件中，点选ACAD.CUI，确认后，重新启动ACAD。若还不正常，是你的软件有问题了，重装吧。
Sub test()s = 0i = 4Do While i &= 0a = InputBox("please input value of a", "inpu...
答: 那订单旅客信息里显示的null是什么意思？
答: cisco网络技术是一个为CTO、IT技术经理、网络工程师、安全工程师、数据库工程师、网络管理员、系统工程师、开发工程师、项目管理人员等IT技术人员搭建的有关先...
答: 我想学网页制作、网络维护、电脑维护可有比较好的学习网站或者论坛推选一下？你好！网易学院
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：1234567891011121314152004年11月 VB大版内专家分月排行榜第二2004年10月 VB大版内专家分月排行榜第二
2008年2月 VB大版内专家分月排行榜第一2003年4月 VC/MFC大版内专家分月排行榜第一2002年11月 VC/MFC大版内专家分月排行榜第一
2011年11月 VC/MFC大版内专家分月排行榜第二2008年3月 VB大版内专家分月排行榜第二2008年3月 硬件/嵌入开发大版内专家分月排行榜第二2003年4月 其他开发语言大版内专家分月排行榜第二2003年4月 VB大版内专家分月排行榜第二2003年3月 VB大版内专家分月排行榜第二
2008年2月 VB大版内专家分月排行榜第一2003年4月 VC/MFC大版内专家分月排行榜第一2002年11月 VC/MFC大版内专家分月排行榜第一
2011年11月 VC/MFC大版内专家分月排行榜第二2008年3月 VB大版内专家分月排行榜第二2008年3月 硬件/嵌入开发大版内专家分月排行榜第二2003年4月 其他开发语言大版内专家分月排行榜第二2003年4月 VB大版内专家分月排行榜第二2003年3月 VB大版内专家分月排行榜第二
2008年2月 VB大版内专家分月排行榜第一2003年4月 VC/MFC大版内专家分月排行榜第一2002年11月 VC/MFC大版内专家分月排行榜第一
2011年11月 VC/MFC大版内专家分月排行榜第二2008年3月 VB大版内专家分月排行榜第二2008年3月 硬件/嵌入开发大版内专家分月排行榜第二2003年4月 其他开发语言大版内专家分月排行榜第二2003年4月 VB大版内专家分月排行榜第二2003年3月 VB大版内专家分月排行榜第二
本帖子已过去太久远了，不再提供回复功能。题号：4113910题型：填空题难度：困难引用次数：70更新时间：16/05/29
编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。（1）代码“Private Sub Command1_Click()”中的Click是&&&&&&&&。（单选，填字母：A.对象名/B.属性名/C.事件名）（2）为实现上述功能，请在划线处填入合适的代码。Private Sub Command1_Click()Dim a As Integer, b As IntegerDim i As Integer, n As IntegerDim c1 As String, s1 As StringDim c2 As String, s2 As StringDim c3 As String, s3 As StringList1.Clears1 = "甲乙丙丁戊己庚辛壬癸"s2 = "子丑寅卯辰巳午未申酉戌亥"s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"n = Val(Text1.Text)For i =" n" To &&&&&①&& a =" (i" + 6) Mod 10 b =" (i" + 8) Mod 12 c1 =" Mid(s1," a + 1, 1) c2 =" Mid(s2," b + 1, 1) c3 =" Mid(s3," b + 1, 1) List1.AddItem &&&&②&&+ "年" + c1 + c2 + " " + c3Next iEnd Sub（3）由上述算法可知，2024年对应的“天干地支”为&&&&&&&。
提示: 下载试题将会占用您每日试题的下载次数,建议加入到试题篮统一下载(普通个人用户: 3次/天)
【知识点】
相关试题推荐
每次将一张白纸沿垂直和水平中线对半撕成四张纸片，然后取其中一张纸片照这样再撕成四张纸片，一直这样下去，计算撕了n次后纸片的总张数，现在要用VB来实现该程序。程序界面及功能如下图所示，在文本框中输入撕的次数，单击计算按钮，显示纸片数。请完善并改正下面的程序代码：Private Sub Command1_Click()Dim i, n, s As Integern =" Val(Text1." Caption)&&&‘① 获得撕纸片的次数s=1&&&&&&&&&&&&&&&&&&‘s为纸片数，初始时为1For i =" 1" To n&&②&&&&&&&&&&&&&&&‘计算撕了n次后的纸片数量Next iLabel2.Caption = Str(s)&&&&&&显示最终的纸片数End Sub注释①所在行语句中有错误,应改为_____________在横线②中填入正确的语句_______________在用VB设计应用程序时，一般经历的阶段的正确顺序是__________（填字母顺序）a 运行调试程序&&&&&&&&&&&&&&&&&&&&b 问题和算法分析c 应用程序界面设计&&&&&&&&&&&&&&&& d 事件处理过程代码编写
有如下Visual Basic程序段：x=2.1Ifx&6.0ThenLabel1.Caption="Pass"ElseLabel1.Caption="Fail"EndIf该程序段运行后,Label1标签上显示为_____________
某数据加密方法描述如下：(1)以字节为单位进行加密处理；(2)将1个字节的8位二进制数分割成前4位与后4位两个二进制数；(3)分别将上述两个4位二进制数转换为十进制数；(4)将每个十进制数转换为1个加密字符，对应的“密码表”如下：值(十进制)0123456789101112131415加密字符IlikeCHNP0stcard小明按照上述方法，设计了一个字符串（仅包含ASCII字符）加密的VB程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框Textl中每个字符的ASCII码值作为1个字节转换为两个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果。下表显示了字符串中一个字符的加密过程：程序运行效果如图所示。实现上述功能的VB程序如下：（1）请在划线处填入合适代码。Private Sub Command1_Click()Dim n As Integer, s As String, i As Integer, ss As StringDim a As Integer& '存储加密前字符的ASCII码Dim b1 As Integer, b2 As Integer&&& '分别存储分割、转换后的两个十进制数s = Text1.Text①For i =" 1" To na =" Asc(Mid(s," i, 1))b1 =" a" \ 16b2 =" a" Mod 16ss =" ss" + Code2Char(b1) + Code2Char(b2)Text2.Text = ssNext iEnd Sub'十进制值转换为加密字符的函数Function Code2Char(c As Integer) As StringDim s As Strings = "IlikeCHNpostcard"Code2Char =&&&&&&&&②End Function（2）若将“密码表”中值为“0”对应的加密字符“I”改成“i”，加密后的密文可能无法解密，原因是
暂时无评论暂时无评论
小李想用Photoshop软件对1图所示的图像进行加工处理，得到如2图所示的效果，则下列操作可行的是A．水平翻转，并进行羽化处理B．顺时针旋转90度，并设置图层样式为“投影”C．缩放图像，并进行描边处理D．垂直翻转，并添加“镜头光晕”滤镜效果
热门知识点您还可以使用以下方式登录
当前位置：&>&&>& > VB程序设计练习题附加答案
VB程序设计练习题附加答案
《VB程序设计》综合复习资料 第一章 Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。4、Visual Basic 6.0用于开发__________环境下的应用程序。二、选择题1、下面不是VB工作模式的是（ ）A．设计模式
B．运行模式
C．汇编模式
D．中断模式2、可视化编程的最大优点是（ ）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（ ）A．执行“视图”菜单中的“属性窗口”命令B．按F4键
C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（ ）A．Ctrl+D
D．Ctrl+G5、Visual Basic的编程机制是（ ）A．可视化
B．面向对象
C．面向图形
D．事件驱动第 1 页 共 32 页三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章 简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。4、设置控件背景颜色的属性名称是______________________。5、所有控件都具有的共同属性是__________________属性。6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。二、选择题1、以下能够触发文本框Change事件的操作是（ ）A．文本框失去焦点
B．文本框获得焦点第 2 页 共 32 页C．设置文本框的焦点
D．改变文本框的内容2、应用程序设计完成后，应将程序保存，保存的过程是（ ）A．只保存窗体文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗体文件D．先保存窗体文件（或标准模块文件），之后还要保存工程文件3、VB应用程序的运行模式是（ ）A．解释运行模式
B．编译运行模式
C．两者都有
D．汇编模式4、任何控件都具有的属性是（ ）A．TEXT
B．CAPTION
D．FORECOLOR5、决定控件上文字的字体、字形、大小及效果的属性是（ ）A．TEXT
B．CAPTION
D．FONT6、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（ ）设置为0A．INDEX
B．TABINDEX
C．TABSTOP
D．ENABLED7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（ ）事件A．CLICK
B．DBLCLICK
C．GOTFOCUS
D．CHANGE8、在运行时，按TAB键跳过了一个可以获得焦点的控件（如文本框），则可能是因为（ ）A．该控件的TABSTOP属性值为TRUE
B．该控件的TABINDEX属性值为FALSEC．该控件的ENABLED属性值为TRUE
D．该控件的ENABLED属性值为FALSE9、为了防止用户随意将光标置于控件上，应（ ）A．将控件的TABINDEX属性设置为0B．将控件的TABSTOP属性设置为TRUEC．将控件的TABSTOP属性设置为FALSED．将控件的ENABLED属性设置为FALSE10、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（ ）属性第 3 页 共 32 页A．BACKCOLORC．FORECOLOR
B．BORDERSTYLE D．BACKSTYLE11、如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（ ）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE12、在运行阶段，要在文本框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 Sub13、Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（ ）A．属性、事件、事件过程C．属性、过程、方法
B．控件、窗体、事件 D．属性、事件、方法14、决定标签（Label）显示的属性是（ ）A．Text
C．Caption
D．Alignment第 4 页 共 32 页15、命令按钮的标题文字由（ ）属性来设置。A．Text
B．Caption
D．(名称)16、若要设置文本的显示颜色，则可用（ ）属性来实现。A．BackColor
B．Forecolor
C．FillColor
D．Backstyle17、在运行时，若要调用某命令钮的Click事件过程，则可设置该命令钮对象的（ ）属性为Ture来实现。A．Enabled
C．Default
D．Cancel18、在运行时，若要获得用户在文本框中所选择的文本，可通过访问（ ）属性来实现。A．SelStart
B．SelLenght
D．SelText三、简答题1、事件驱动的含意是什么？举例说明。2、交互式开发方法和传统的应用程序开发过程有什么不同？3、文本框在什么情况下使用？4、什么是工程？5、结构化程序设计的三种基本结构是什么？6、对象的三要素是什么？并分别进行简单的解释。7、为什么要生成可执行文件和制作安装盘？8、使用变量前先声明有什么好处？9、如何使用帮助功能？10、结构化程序设计的特点是什么？11、为了把焦点移到某个指定的控件，在代码中应使用的方法是什么？12、启动Visua Basic后，只创建了一个窗体，若此时保存，需要保存几个文件？各是什么文件？先保存的是哪一个？13、为了防止文本框中的信息运行后被用户修改，应设置什么属性？第三章 VB基本语言一、填空题第 5 页 共 32 页1、一般可以使用__________关键字声明常量。2、______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。3、变量的声明分为两种方法：__________和____________。4、在VB中，用___________________语句设定数组的下界，用_____________和__________________语句分别返回数组的上、下界。5、在代码模块中加入Option Explicit的目的是_____________________。6、function aa (a1 as date,optional a2 as boolean) as single，写出optional命令的作用__________________。7、在VB中，我们用一个简单的______语句就能实现退出程序。8、生成消息框的命令是____________，生成输入框的命令是____________。9、通用对话框（commondialog）属activex控件，它可以显示多个标准对话框，包括打开/另存为、字体、打印等对话框，若要显示所有文件，则应设置其属性filter=____________，若要使它显示为打印对话框，则应使用什么方法____________。10、从字符串中任意位置截取字符的函数是__________。11、语句For j = 3 To 20 Step 3 使循环体执行了______次。12、对于正在使用的动态数组Arraya()，要增加一个单元，但不能破坏数组内的数据，则应使用语句__________________________________。13、在Visual Basic中声明静态变量的关键字是_________________。14、表达式10 Mod 6 \ 4的值为______。15、表达式chr(Asc("a") + 5)的值为_________。16、VB中使用注释有2种方法，即________和________。17、VB中的数据以四种形式存储：常量、_________、_________和记录。18、为了在VB中存储一个4行5列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补充完整：Dim Juzhen(_
_) as Integer。19、控件数组由一组相同类型的控件组成，这些控件共用一个相同的控件名，但是每个控件都有一个唯一的下标来区分，我们使用属性__
__来设置下标。第 6 页 共 32 页20、在过程调用中，实现调用过程的实参和被调用过程的形参之间的数据传递有两种方式：按值传递和__
__。21、为了保证程序中必须对变量的强制性定义，需要在代码模块的声明部分加入______________语句。22、分析For……Next循环结构的实例：For i = 5 To 30 Step 2 中，循环体一共执行了______次。23、表达式Mid("UniversityOfPetroleum", 8, 4) 的值为_________。24、常量分为普通常量和__________常量。25、要将大写字母转换为小写字母，可使用____________函数。26、不管焦点在哪个控件上，按__________键相当于按了取消按钮。27、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。28、__________是程序中VB停止执行的地方。29、逻辑常量为True或__________。30、使用了__________________的声明后，当程序中使用未经声明的变量时，程序运行时会报错。31、要将小写字母转换为大写字母，可使用____________函数。32、自字符串N1位开始向右取N2个字符，要使用_________________函数。33、日期常量表示时，用符号__________将日期型数据括起来。34、局部变量只能在__________中声明和使用。35、模块级变量的声明关键字是Dim或__________。36、函数Abs(x)的功能是__________。37、表达式3/6*5的值是__________。二、选择题1、以下哪个是合法的变量（
）A．right
B．abc@123
C．123_abc
D．ab123c2、下列说法错误的是（
）A．在同一模块不同过程中的变量可以同名第 7 页 共 32 页B．不同模块中定义的全局变量不可以同名C．引用另一模块中的全局变量时，必须在变量名前加模块名D．同一模块中不同级的变量可以同名3、把MsgBox的返回值转换为数值应该使用的函数是（
D．Val4、语句DIM AA(3,4,5)中定义的数组有（
）个元素A．12
D．3455、下面程序运行后输出的结果是（
）A$="CHINA"B$=STRING$(3,A$)PRINT B$ENDA．CHI
D．AAA6、以下语句的输出结果是（
）Print Format$(32548.5, "000,000.00")A．32548.5
B．325,485.00
C．032,548,50
D．32,548,507、以下叙述中错误的是（
）A．如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B．Sub过程中不能嵌套定义Sub过程C．Sub过程中可以嵌套调用Sub过程D．事件过程可以像通用过程一样由用户定义过程名8、Visual Basic提供的On Error Resume next错误陷阱语句表示（
）A．当发生错误时，使程序转跳到语句标号为0的程序块B．当发生错误时，不使用错误处理程序块C．当发生错误时，忽略错误行，继续执行下一语句D．当发生错误时，终止本过程执行，继续执行下一过程9、在Visual Basic中，若要将控制权交给操作系统则通过（
）的语句。第 8 页 共 32 页A．End
B．Exit Do
C．Exit Sub
D．DoEvents10、在Visual Basic 中语句的续行号采用（
）A．空格与下划线
B．下划线与空格
C．空格与短线
D．短线与空格11、假定有以下程序段：For i=1 to 3 For j=5 to 1 Step –1
Print i*j Next j,i则语句Print i*j的执行次数是（
D．1812、从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（
D．Instr13、如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（ ）A．0 B．-1
C．TRUE D．FALSE14、下列叙述不正确的是（ ）A．注释语句是非执行语句，仅对程序的内容起注释作用，它不被解释和编译B．注释语句可以放在代码中的任何位置C．注释语句不能放在续行符的后面D．代码中加入注释语句的目的是提高程序的可读性15、语句PRINT “INT(-13.2)”；INT(-13.2)的输出结果为（ ）A．INT(-13.2)= -13.2C．INT(-13.2)= -13
B．INT(-13.2)= 13.2 D．INT(-13.2)= -1416、如果TAB函数的参数小于1，则打印位置在第（ ）列A．0
D．317、变量未赋值时，数值型变量的值为（ ）A、0
D．无任何值第 9 页 共 32 页18、下列语句中正确的是（ ）A．txt1.text+txt2.text=txt3.text B．command1.name=cmdokC．12label.caption=1234
D．a=inputbox(“hello”)19、假设变量BOOLVAR是一个布尔型变量，则下面正确的赋值语句是（ ）A．BOOLVAR=,,TRUE"C．BOOLVAR=#TRUE#
B．BOOLVAR=.TRUE D．BOOLVAR=3&420、以下（ ）程序段可以实施X、Y变量值的变换（ ）A．Y=X：X=Y
B．Z=X：Y=Z：X=YC．Z=X：X=Y：Y=Z D．Z=X：W=Y：Y=Z：X=Y21、语句PRINT “SGN(-26)=”；SGN(-26)的输出结果为（ ）A．SGN(-26)=26C．SGN(-26)= +1
B．SGN(-26)= -26 D．SGN(-26)= -122、读下面程序段，判断变量Str2的取值是（ ）Dim Str1, Str2 as StringStr1="University"Str2=STRING$(3,Str1)A．UniC．ity
B．UUU D．yyy23、VB支持自定义数据类型，在某程序中我们定义了如下类型：?Type Student??number
As string??name As String??age As Integer?End Type针对上述定义，如下几项用法正确的是（ ）A．Student.name="张三"
B．Dim s As Students.name＝"张红"第 10 页 共 32 页C．Dim s As Type Student
D．Dim s As Types.name="张三"
s.name="张三"24、一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：?Private Sub frmfunction1()?End Sub?Form2中定义的过程：?Public Sub frmfunction2()?End Sub?mdlFunc中定义的过程：?Public Sub mdlFunction()?End Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是（ ）A．上述三个过程都可以在工程中的任何窗体或模块中直接被调用B．只有mdlFunction过程能够被工程中各个窗体或模块直接被调用C．frmfunction1只能在form1中调用，而frmfunction2 则可以在所有模块或窗体中被直接调用D．上述三个过程都只能在各自被定义的模块中直接调用25、VB中Do……Loop结构既可以构成当型循环，也可以构成直到型循环，根据下面的代码：Dim i,n as Integern = 20i = 1DoPi = i + 2第 11 页 共 32 页Loop Until i &20判断循环结构的类型和循环体的执行次数，正确的选项是（ ）A．当型循环，20次C．当型循环，10次
B．直到型循环，10次 D．直到型循环，20次26、在程序中，使用InputBox函数可以接受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（ ）A．Val
B．LenC．Str
D．Log27、动态数组因为在程序运行前无法确定数组的大小，所以经常根据程序的运行情况，对数组进行重新定义，以下关于VB中动态数组的叙述中不正确的是（ ）A．可以用ReDim语句重新定义动态数组，并且可以进行多次重定义B．首次用Dim进行动态数组声明的时候，必须指明它的类型和上下界C．Preserve为ReDim语句的可选参数，用于保留动态数组原来的内容D．当对动态数组使用Erase语句进行释放操作时，将释放其内存28、VB中的控件也叫做部件或组件，主要包括三类，以下哪一项不属于VB控件的分类（ ）A．控件
B．可插入对象D．ActiveX控件 C．ADO控件29、表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（ ）A．4
D．730、可以同时删除字符串前导和尾部空白的函数是（ ）A．Ltrim
D．Mid三、简答题1、全局变量声明有哪些限制？2、字符串是否可以自动转换为数字类型？3、用Format函数格式化后的字符格式在不同区域环境下的输出是否相同？为什么？4、在InputBox函数中，哪一个参数是必需的？5、在MsgBox函数中哪一个参数是必须的？6、在什么情况下使用过程？第 12 页 共 32 页7、为什么要进行程序调试？8、调试程序有哪些手段？9、用语句Dim A(-3 To 5) As Integer定义的数组的元素个数是多少？10、设有如下的Visual Basic表达式：5*x^2-3*x-2*Sin(a)/3，与它对应的数学式是什么？11、数学式(2x?a)(3y?b)对应的VB表达式是什么？12、表达式2&3 And 4&=5 Or 4&4的值是什么？13、怎样在程序中设置断点？14、在什么情况下可以设置断点？15、程序出错的类型有哪几种？16、在同一模块、不同过程中声明的相同变量名，两者是否表示同一个变量？为什么？17、什么情况下会出现“数组下标越界错误”？18、逐语句和逐过程有什么区别？19、表达式2.75 * 2 \ 3.45的值是什么？20、在程序设计中为什么尽量不用GoTo语句？四、读程序题1、分析以下程序，写出运行结果。Private Sub Form_Click()score = Int(Rnd * 10) + 80Select Case scoreCase Is & 60A$ = "F"Case 60 To 69A$ = "D"Case 70 To 79A$ = "C"Case 80 To 89第 13 页 共 32 页A$ = "B"Case ElseA$ = "A"End SelectPrint A$End Sub2、读下面的程序，分析其功能，写出运行结果。在窗体上有一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click()For I = 1 To 4For J = 0 To IPrint Chr$(65 + I);Next JPrintNext IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？3、阅读下面的程序，分析并写出其功能。Sub insert(a() As Single,ByVal x As Single)Dim m as integer,n as integern=1Do While n&20 And x&a(n)n=n+1LoopFor m=20-1 To n Step –1a(m+1)=a(m)Next m第 14 页 共 32 页a(n)=xEnd Sub4、分析以下程序，写出运行结果。Sub subP(b() As Integer)For i =1 To 4b(i)=2*iNext iEnd Sub Private Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a()For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果是什么？5、分析以下程序，写出运行结果。Sub sele()Dim n as Integeri=21:n=3Do While i&ni=i－n第 15 页 共 32 页LoopPrint iEnd Sub6、分析以下程序，写出运行结果。Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=2:b=5:c=2If(a&=b)and(a&=c) or (b&c)
ThenPrint aa=a+2ElsePrint bEndIfPb;cEnd Sub7、分析以下程序，写出运行结果。Sub swap()Dim x as IntegerDim y as IntegerDim z as Integerx=1:y=2:z=0Py;zx=x+yx=x*zPrint x,y,z第 16 页 共 32 页End Sub8、分析以下程序，写出运行结果。Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=3:b=3:c=2If(a&=b)and(a&c)Then Print aPrint a,b,cEnd Sub五、编程题1、输入一年号，判断它是否是闰年。界面如下图所示，包括两个标签、一个文本框和一个命令按钮。提示：如果此年号能被400整除或者不能被400除尽，也不能被100除尽，但能被4整除，则它是闰年；否则，不是闰年。2、输入两个正整数m、n，求m和n的最大公约数。要求建立如下图所示的窗体，其中主要的控件包括：两个标签（Lable1、Lable2）、两个文本框（Text1、Text2）和一个按钮（Command1）。 3、输入某学生成绩（百分制），若是100≥成绩≥90输出优秀；若是90＞成绩≥80输出良好；若是80＞成绩≥70输出中等；若是70＞成绩≥60输出及格；若是60＞成绩≥0，输出不及格；若是其他数则输出error信息。4、在窗体中显示从9号字型到16号字型。5、在有序序列中插入一个数，使插入后的数列仍然有序（设按由小到大排列）。6、编程实现二维数组转置。7、随机输入10个100以内的整型数，计算其和及平均值。第 17 页 共 32 页8、找出所有的水仙花数。水仙花数是个三位数，它的各位数字的立方和等于这个三位数本身。例如371＝33+73+13，则371是水仙花数。9、从键盘输入一个大于2的正整数，判断该数是否是素数。10、求二维数组中的最小值及其所在行号、列号。11、求一元二次方程ax2+bx+c=0的根（包括实根和复根）。12、输入一个正整数n，计算出n!并输出。13、Faibonacci数列为0，1，1，2，3，5，8，13 ,,，计算并输出第20项以及前20项的和。第四章 常用控件与窗体一、填空题1、向列表框控件添加新项目的方法是__________。2、在VB中，最主要的两种对象是____________和____________。3、当窗体启动时可通过__________属性控制窗体位于所有者的中心位置。4、若要将窗体Form1隐藏起来，则可通过执行代码_________________来实现。5、要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的_________属性为__________。6、窗体上放置了若干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到文本框Text1上，则在设计时需要将__________控件的_________属性设置为__________。7、在标签控件中通过编程使文字换行用的代码是___________________。8、设置计时器控件只能触发______________________事件。9、设置计时器对象触发事件的时间间隔用_____________________属性。10、滚动条控件主要支持两个事件，它们是_______________事件。11、要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是_________________。12、设某列表框共有10项，按题目要求补齐程序，完成相应的功能。（1）按下命令按钮Command1时将列表框第8项的内容显示在窗体上：Private Sub Command1_Click( )List.__________(7)=True第 18 页 共 32 页Print List1.______________End Sub（2）单击列表框某一项时立即将该项打印在窗体上：Private Sub List1_Click( )Print_______________End Sub（3）按下命令按钮Command1时在窗体上删除第1、3、5、7、9项：Private Sub Command1_Click( )For I=1 To 5List1.____________Next IEnd Sub（4）在列表框的每一项之后插入一个新的项：Private Sub Command1_Click( )For I=1 to 10X=InputBox(“请输入插入的第” & I & “项内容”)List1.AddItem____________Next IEnd Sub13、设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。Private Sub Hscroll1.__________________( )Label1.Caption = Hscroll1.___________________End Sub要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码。Private Sub Hscroll1.________________( )第 19 页 共 32 页Label1.Caption = Hscroll1.__________________End Sub14、列表框（ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多个项目。它具有几个非常重要的数组属性，其中__
__属性存放了列表框中所有项目的值。15、菜单项一般由标题、访问键、快捷键和复选标志等构成，通过对相应的属性进行设置可以改变这些项目的状态，其中与复选标志相对应的属性是__
__。16、keydown与keypress事件各有其参数，若需获得用户按下 "a" 还是 "A" 需用____________事件。17、控件________组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件。18、若需要将窗体Form2以模态窗口的形式显示出来，可通过执行代码_________________来实现。19、菜单中的分隔条是一种菜单控件，不响应__________事件，不能被选中。二、选择题1、当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接收到(
)A．MouseDown
B．MouseUp
D．Click2、窗体Form1的Name属性是Frm1，它的单击事件过程名是（
）A．Form1_Click
B．Form_Click
C．Frm1_Click
D．Me_Click3、用于设置通用对话框控件显示文件类型的属性是（
）A．Filter
C．Partern
D．FoleName4、用于从内存删除窗体的命令是（
D．Delete5、用于返回窗体可用区域宽度的属性是（
）A．ScaleWidth
B．ScaleLeft
C．ScaleHeight
D．ScaleTop6、下列关于属性设置的叙述错误的是：（ ）A．一个控件具有什么属性是VB预先设计好的，用户不能改变B．一个控件具有什么属性是VB预先设计好的，用户可以改变C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置第 20 页 共 32 页D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值7、下列说法正确的是（ ）A．对象属性只能在“属性窗口”中设置B．一个新的工程可以在“工程窗口”中建立C．必须先建立一个工程，才能开始设计应用程序D．只能在“代码窗口”中编写程序代码8、下列关于窗体上控件的基本操作错误的是（ ）A．按下一次DEL键只能删除一个控件B．按下一次DEL键可以同时删除多个控件C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件9、下列关于设置控件属性的叙述正确的是（ ）A．用户必须设置属性值B．所有的属性值都可以由用户随意设定C．属性值不必一一重新设置D．不同控件的属性项都完全一样10、不可以通过下列（ ）操作将焦点赋给对象A．运行时使用TAB键
B．在代码中用CALL语句调用D．用访问键或用鼠标单击选择对象 C．在代码中用SETFOCUS方法11、要在FORM_LOAD事件过程中使用PRINT方法在窗体上输出一定的内容，应（ ）A．设置窗体的VISIBLE属性C．调用窗体的SHOW方法
B．设置窗体的CAPTION D．设置窗体ENABLED属性12、下面（ ）对象无CAPTION属性A．FORM
B．COMMANDBUTTON
C．TEXTBOX
D．LABEL13、通用对话框控件和文件列表框控件中，都能根据文件的类型对要显示的文件进行筛选过滤，后者使用（ ）属性进行该项设置。A．Pattern
D．FileName第 21 页 共 32 页14、对于复选框控件chkBoy，如果在程序中设置它为选中状态，下面语句正确的是（ ）A．chkBoy.Checked = trueC．chkBoy.Selected = true
B．chkBoy.Value = true D．chkBoy.Value = 115、计时器（Timer）控件用于每隔一段时间自动触发一次Timer事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（ ）A．IntervalB．SmallChange
C．LargeChange16、以下关于VB中窗体（Form）的说法中，不正确的描述为（ ）A．执行Unload Form语句后，窗体Form消失，但仍在内存中B．当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止C．窗体的Height、width属性用于设置窗体的高和宽D．窗体的load事件在加载窗体时发生17、关于滚动条控件，下面说法错误的是（ ）A．点击滚动条的箭头，可以改变它的value值，从而引发Change事件B．拖动滚动框，可以触发Scroll事件C．通常，水平滚动条的值从左向右递增，垂直滚动条的值自上而下递增D．拖动滚动框，可以触发Change事件，而且是连续触发的18、在窗体上放置一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：PriVate Sub Command1_C1ick()??a$="software and hardware"??b$＝Right(a$,8)??c$=Mid(a$,1,8)??Msgbox a$,b$,c$,1End Sub则在弹出的信息框的标题栏中显示的信息是（ ）A．softWare and hardwareC．hardwafe
B．software D．出现错误第 22 页 共 32 页19、在多重窗体程序设计中，关键的问题是要解决不同窗体之间的衔接和窗体的显示、关闭等问题，以下关于窗体的相关语句和方法的叙述中，错误的是（ ）A．Load语句用于加载指定窗体，即在内存中创建该窗体B．Show方法兼具Load语句的功能，可以将窗体显示出来C．Hide方法用于将窗体隐藏起来D．Unload语句用来释放窗体，但窗体并没从内存中消20、滚动条控件的属性中，表示取值范围最大值的属性是（ ）A．MaxC．Min
B．LargeChange
D．Value21、程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件（ ）A．DragDropC．MouseUp
B．MouseDown D．MouseMove22、为了使用通用对话框进行打开文件的操作，应将通用对话框的Action属性设定为（ ）。A．0
D．3三、简答题1、什么是单选按钮？什么是复选框？在使用上有什么不同？2、滚动条的change事件和scroll事件有什么不同？3、快捷键和访问键有什么区别？4、在程序运行期间，如果拖动滚动条上的滚动块（即滑块），则触发滚动条的什么事件？5、假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用什么语句？6、为了暂时关闭计时器（即时钟控件），应把该计时器的什么属性设置为False？7、单选按钮和复选框（即检查框）各用于什么情况？8、如何为一个菜单项设置热键和快捷键？9、菜单的形式有哪两种？10、在KeyPress事件中，如何取消用户刚输入的字符？第 23 页 共 32 页11、框架的作用是什么？12、如果要计时器每秒钟发生4个Timer事件，则Interval属性值应设多少？13、在一个窗体的程序代码中能否访问另一个窗体上控件的属性？若不行则请说明理由；若行则请说明如何访问。14、如何在框架中建立控件？15、组合框有哪几种类型？四、读程序题1、对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)&ml Thenm1 =a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End Sub程序运行后，按回车键，输出结果是什么？2、阅读下面的程序，写出执行结果。Private Sub Form_load()第 24 页 共 32 页Form1.showd = 0For a = 1 To 2For b = 1 To aFor c = b To 5d = d + 1Next cNext bNext aPrint dEnd Sub五、编程题1、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间，请编程实现。2、在Text1中输入任一英文字母，在Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值，如下图所示。Text1 Command1Text23、编写一个程序，能够实现任意个整数的排序。4、编程实现以下功能：用户首先分别在两个文本框中输入两个数，然后在具有“加、减、第 25 页 共 32 页乘、除”等四个菜单项的“计算”菜单中单击某一项，即可在标签中显示出相应的结果或者错误提示。5、编程实现任意两个数的“加、减、乘、除”。6、编写一个程序，能够求任意个正整数的最大值和最小值。7、编程求任意两个正整数的最大公约数。六、程序分析填空题1、建立一个如图所示的简单编辑器。用户在文本框（text1）中输入正文后，选中某些文本时可进行“剪切”、“复制”和“粘贴”操作。假设在窗体声明部分定义了一个变量str1，用于保存复制和剪切的内容，请把剪切按钮(btnCut)的Click事件补充完整。程序运行界面： Private Sub btnCut_Click(),,请补充 End Sub2、计算1 + 2 + 3 + …… + 100的和并输出。请把下面用Do While ……Loop循环结构实现这一功能的代码补充完整。Private Sub Form_Load()Dim sum,count as Integer,,请补充 Do while count &=100第 26 页 共 32 页,,请补充 LoopText1.Text = sumEnd Sub3、列表框控件（ListBox）支持多项选择，这项功能在对用户的兴趣爱好进行调查的时候显得非常好用，在下图所示的界面中列表框List1用于列出爱好选项，供用户进行多项选择。 请把下列代码补充完整，能够取得用户的所选爱好选项：Private Sub Command1_Click()Dim i As IntegerDim s As Strings = txtname.Text & "爱好"For i = 0 To List1.ListCount - 1,,请补充 NextLabel3.Caption = sEnd Sub4、要求利用计时器Timer1，在窗体Form1上每隔1秒钟打印一个1到10的随机整数，请把下列代码补充完整：Private Sub Form_Load()第 27 页 共 32 页Show,,请补充 End SubPrivate Sub Timer1_Timer(),,请补充 End Sub第五章 文件一、填空题1、文件按存取方式及其组成结构可分为________________文件、__________文件和______________文件。2、为了使文件列表框List1和目录列表框Dir1之间能产生同步效果，必须在______________事件过程中加入语句__________________________。3、文件系统控件的作用是向用户显示系统中的文件，方便用户选择，它是一组控件的组合，包括：驱动器列表框、__
__和文件列表框。二、选择题1、利用下面哪个函数可判定访问文件时是否已到文件尾（
D．BOF2、用于设置文件列表框控件显示文件类型的属性是（
）A．Filter
C．Partern
D．FileName三、简答题1、什么是文件？2、文件存取分成几类，几种模式？3、顺序文件、随机文件和二进制文件各有什么特点和用途？4、文件有哪几种类型？它们的区别是什么？第 28 页 共 32 页5、请说明PRINT #和WRITE #语句的区别6、EOF函数的功能是什么？四、编程题1、实现二进制方式文件的复制。2、如下图所示，实现一个简单的文件管理器。 第六章 图形操作一、填空题1、使用____________方法可在窗体中进行文本的输出，用____________方法可画圆，用____________方法可画直线。2、用____________函数可加载图形。3、为了使一个Picture控件能自动根据装入的图片调整大小，应设置该控件的________________属性为True。二、选择题1、下列关于控件画法的叙述错误的是（ ）A．单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件B．按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控第 29 页 共 32 页件C．双击工具箱中的控件图标，所画控件的大小和位置是固定的D．不使用工具箱中的控件工具，不可以在窗体上画出图形对象，但可以写入文字字符2、当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（ ）事件来完成图形的重画工作A．Paint
D．Active三、简答题1、在什么情况下使用Image控件而不使用PictureBox控件？2、在程序运行时怎样在图形框中装入和删除图形？3、颜色函数主要有哪些？四、编程题1、如下图显示当前目录下的图片文件列表，并能够预览选定的图片。 第七章 面向对象的编程一、填空题1、类是具有相同性质的对象的_________。2、语句DIM TEMP AS Object的作用是________________________________。二、简答题1、什么是模块？ 第 30 页 共 32 页第八章 界面设计一、简答题1、什么是多文档界面（MDI）？2、说明菜单栏、菜单、选项和工具栏之间的关系。3、结束MDI应用程序时，需要注意什么？第九章 Visual Basic与数据库一、简答题1、表间的关系类型有哪几种？2、Visual Basic中的记录集有哪几种类型？二、编程题1、请编程实现每两秒在标签中显示一次当前的时间。2、找出被3、5、7整除，余数为1的最小的2个正整数。3、有一个m×n的实型矩阵A(m,n)，找出其中最大的那个元素所在的行和列。4、找出能同时被5和7整除的最小的10个正整数。5、编写一个程序，能够输出100~1000之间所有的素数。6、从键盘上任意输入100个整数，统计负数的个数，并计算正数的和。7、有一种数，正序读与反序读都相同，这种数叫回文数，如88、858、2332等。求出4位数以内（0～9999）的所有回文数。8、输出“九九乘法表”。 第 31 页 共 32 页参考答案 第一章 Visual Basic程序设计概述一、填空题1、对象、事件驱动
2、Vbp、frm、bas
4、WINDOWS二、选择题1、C
5、D第二章 简单的VB程序设计一、填空题1、Tabstop2、Left、top、height、width3、enabled4、backcolor5、name6、name和caption7、属性8、标准模块文件9、运行模式二、选择题1、D2、D3、C4、C5、D6、B7、D8、D第 32 页 共 32 页9、D10、D11、B12、A13、D14、C15、B16、B17、B18、D第三章 VB基本语言一、填空题1、Const2、Variant3、隐式声明、显示声明4、option base、ubound、lbound5、强制变量声明6、表示a2是一个可选参数7、End8、Msgbox、Inputbox9、*.*、showprint10、Mid()11、612、redim preserve arraya(ubound(arraya())+1)13、static14、0第 33 页 共 32 页15、f16、rem、"17、变量、数组
18、1 to 4,1 to 519、Index20、按地址21、Option Explicit
22、1323、ityo24、符号25、LCase26、ESC27、部件28、断点29、False30、Option Explicit31、UCase32、Mid33、#34、过程35、private36、求x的绝对值
37、2.5二、选择题1、D2、B3、D4、C第 34 页 共 32 页5、B6、C7、D8、C9、D10、A11、A12、D13、B14、B15、D16、B17、A18、D19、D20、C21、D22、B23、B24、B25、B26、A27、B28、C28、B30、C四、读程序题第 35 页 共 32 页1、结果如下：B2、结果如下：BBCCCDDDDEEEEE3、功能如下：在20个由小到大排列的数据中插入一个数，插入数据后的数据仍按由小到大的顺序排列。4、输出结果为：24685、输出结果为：36、输出结果为：24527、输出结果为：1200
08、输出结果为：33
2五、编程题1、参考代码如下：第 36 页 共 32 页Private Sub Command1_Click()Dim year, x As Integeryear = Val(Text1.Text)If year Mod 400 = 0 ThenLabel2.Caption = "是闰年"Else' 下面是嵌套块If语句If year Mod 4 = 0 And year Mod 100 && 0 ThenLabel2.Caption = "是闰年"ElseLabel2.Caption = "不是闰年"End IfEnd IfEnd Sub2、程序参考代码如下：Private Sub Command1_Click()Dim m, n, r As Integerm = Val ( Text1.Text )n = Val ( Text2.Text )If m & 0 Or n & 0 Then
,, 若判断为非法数据，Then子句输出相应信息
Label2.Caption = "输入数据有错！"Else
,, 若判断为合法数据，Else子句用辗转相除法求余数
r = m Mod nDo While r && 0m = nn = rr = m Mod n第 37 页 共 32 页Loop,, 循环结束后n中存放的就是最大公约数，输出n值
Label2.Caption = "最大公约数为：" & nEnd IfEnd Sub3、参考代码如下：Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)If x & 100 Or x & 0 ThenText2.Text = "error"ElseIf x & 60 ThenText2.Text = "不及格"ElseIf x & 70 ThenText2.Text = "及格"ElseIf x & 80 ThenText2.Text = "中等"ElseIf x & 90 ThenText2.Text = "良好"ElseText2.Text = "优秀"End IfEnd Sub4、参考代码如下：Private Sub Form_Load()Dim i As IntegerShow
'使输出可见第 38 页 共 32 页Form1.Font = "新宋体"For i = 9 To 16 Step 1Form1.FontSize = iP "号字型"Next iEnd Sub5、参考代码如下：Private Sub Command1_Click()Dim a(1 To 11) As Single '定义静态数组a含11个元素
Dim i, j As IntegerDim num As Single' 给数组元素赋初值，即原始队列a(1) = 3: a(2) = 5: a(3) = 7: a(4) = 8: a(5) = 9a(6) = 13: a(7) = 16: a(8) = 19: a(9) = 33a(10) = 38' 输出原始队列For i = 1 To 10Label2.Caption = Label2.Caption & a(i) & " , "
Next inum = Val(Text1.Text)' 把输入的数插入队列中For i = 10 To 1 Step -1If num & a(i) Thena(i+1) = a( i )
' 元素后移一个位置
elsea(i+1) = numExit For
' 退出循环第 39 页 共 32 页End IfNext i' 输出新队列For i = 1 To 11Label3.Caption = Label3.Caption & a(i) & " , "
Next iEnd Sub6、参考代码如下：Option Base 1Private Sub Form_Load()Const N = 4
' 常量N决定二维数组大小
Dim a(N, N) As IntegerDim i, j, Temp As IntegerShow' 数组初始化For i = 1 To N
' For循环 i从1变化到N
For j = 1 To Na(i, j) = i * 10 + jNext jNext i' 输出原始数组Print "转置前的数组："For i = 1 To N
' For循环 i从1变化到N
For j = 1 To NPrint a(i, j);Next jPrint第 40 页 共 32 页Next i' 数组转置For i = 1 To N
' For循环 i从1变化到N
For j = 1 To i
' 交换Temp = a(i, j)a(i, j) = a(j, i)a(j, i) = TempNext jNext i' 输出转置后的数组Print "转置后的数组："For i = 1 To N
' For循环 i从1变化到N
For j = 1 To NPrint a(i, j);Next jPrintNext iEnd Sub7、参考代码如下：Private Sub Form_Click()Dim a(10) As Integer, i As IntegerDim sum As Integer, ave As Integersum = 0For i = 1 To 10a(i) = Int(Rnd * 101)sum = sum + a(i)Next i第 41 页 共 32 页ave = sum / 10Print sum, aveEnd Sub8、参考代码如下：Private Sub Form_Load()Dim i, j, k, Flower As IntegerShowFor i = 1 To 9For j = 0 To 9For k = 0 To 9Flower = i * 100 + j * 10 + kIf
Flower = i ^ 3 + j ^ 3 + k ^ 3 Then Print F "是水仙花数"
Next kNext jNext iEnd Sub9、程序参考代码如下：Private Sub Command1_Click()Dim m, i, y As Integerm = Val(Text1.Text)If m &= 2 ThenLabel2.Caption = "输入数据有错"Elsek = Sqr(m) + 1For i = 2 To ky = m Mod iIf y = 0 Then Exit For第 42 页 共 32 页Next iIf y = 0 ThenLabel2.Caption = m & "不是素数"ElseLabel2.Caption = m & "是素数"End IfEnd IfEnd Sub10、程序参考代码如下：Option Base 1Private Sub Form_Load()Const N = 5
' 常数 N 确定数组的大小Dim a(N, N) As IntegerDim i, j, row, line, min As IntegerShowFor i = 1 To N
' For循环 i从1变化到N
For j = 1 To N
' For循环 j从1变化到Na(i, j) = Int(100 * Rnd) + 1
' 产生N*N个1~100间的随机数
Next jNext i' 输出二维数组Print "数组内容是："For i = 1 To NFor j = 1 To NPrint a(i, j);Next jPrint
' 输完一行元素后输出一个换行第 43 页 共 32 页Next i' 设定初始值min = a(1, 1): row = 1: line = 1' 寻找最小数For i = 1 To NFor j = 1 To NIf a(i, j) & min Thenmin = a(i, j)row = iline = jEnd IfNext jNext i' 输出结果Print "最小值是："; minPrint "在第"; "行第"; "列"End Sub11、参考代码如下：Private Sub Command1_Click()Dim a, b, c, delt, realpart, imagpart As Singlea = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text):
delt = b * b - 4 * a * cIf a = 0 ThenLabel2.Caption = "是一元一次方程:"If
b&&0 thenText4.Text = "x1=" & -c / bElse第 44 页 共 32 页If c=0 thenText4.Text = "有无穷根"ElseText4.Text = "无根"End ifEnd ifElse' 下面嵌套块If语句If delt = 0 ThenLabel2.Caption = "有两个相等的实根:"Text4.Text = "x1=" & -b / 2 / aText5.Text = "x2=" & -b / 2 / bElseIf delt & 0 ThenLabel2.Caption = "有两个不等的实根:"Text4.Text = "x1=" & (-b + Sqr(delt)) / (2 * a)
Text5.Text = "x2=" & (-b - Sqr(delt)) / (2 * a)
ElseLabel2.Caption = "有两个共轭复根:"realpart = -b / (2 * a)imagpart = Sqr(-delt) / (2 * a)Text4.Text = "x1=" & realpart & "+" & imagpart & "i"
Text5.Text = "x2=" & realpart & "-" & imagpart & "i"
' 此行End If部分与内层的块If语句对应
' 此行End If部分与外层的块If语句对应 End Sub12、参考代码如下：Private Sub Command1_Click()第 45 页 共 32 页Dim n, i, t As Longn = Val(Text1.Text)i = 1: t = 1If n & 0 ThenLabel2.Caption = "error"ElseIf n = 0 ThenLabel2.Caption = "0!=1"ElseDo While i &= nt = t * ii = i + 1LoopLabel2.Caption = n & "!=" & t
End IfEnd Sub13、参考代码如下：Private Sub Form_Load()Dim Prev,
sum As Long
Dim i As IntegerPrev = 0: Last = 1: sum = Prev + Last
For i = 3 To 20NewOne = Prev + Lastsum = sum + NewOnePrev = LastLast = NewOneNext iLabel1.Caption = "第20项为" & NewOne第 46 页 共 32 页Label2.Caption = "前20项的和为" & sumEnd Sub第四章 常用控件与窗体一、填空题1、AddItem2、窗体、控件3、StartUpPostion4、form1.hide5、sorted、ture6、text1、tabindex、07、chr(10)8、timer9、interval10、scroll和change事件11、mousepointer12、selected、text、list1.text、removeitem 2*i-1、x,2*i-113、change、value、scrol、value14、List15、Checked16、keypress17、组合框18、Form2.Show 119、Click（或鼠标单击）二、选择题1、C2、B第 47 页 共 32 页3、A4、C5、A6、A7、C8、A9、C10、B11、C12、C13、A14、D15、A16、A17、D18、D19、D20、A21、C22、B三、简答题1、单选按钮用来显示一个可以打开或关闭 选项，而且在同一组中的单选按钮控件，用户只能选择其中的一项。2、主要是用鼠标拖动滑块时对Value属性的影响不同。3、快捷键是执行某一个菜单项的键盘命令，常用形式Ctrl+字母，访问键是打开一个菜单的键盘命令，常用形式Alt+字母。4、Scroll事件第 48 页 共 32 页5、MenuItem.Enabled=False6、Interval属性7、单选按钮用于只能选择一个的情况下，复选框（即检查框）用于可以选择多个的情况下8、为一个菜单项设置热键时需要在相应字符前面加&，设置快捷键需要在菜单编辑器中选择9、菜单的形式有两种：下拉式菜单和弹出式菜单10、在KeyPress事件中，若想取消用户刚输入的字符，只要将该事件的参数设置为0即可11、框架主要是用作容器，可以实现多组单选按钮，并且可以美化界面12、25013、在一个窗体的程序代码中可以访问另一个窗体上控件的属性，在访问时只要写上窗体名称即可14、先建立框架，然后再在其中建立控件15、下拉式组合框、简单组合框、下拉式列表框四、读程序题1、输出结果为：49852、结果如下：14五、编程题1、参考代码如下：Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Txttime.text = TimeEnd Sub第 49 页 共 32 页2、参考代码如下：Private Sub Command1_Click()Dim Char As String * 1Char = Trim(Text1.Text)Text2.Text = Text2.Text & Spc(5) & Char & _Spc(10) & Str(Asc(Char)) & chr(13)&chr(10)
Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub3、具体代码略。4、具体代码略。5、具体代码略。6、具体代码略。7、具体代码略。六、程序分析填空题1、结果如下：Private Sub btnCut_Click(),,请补充 End Sub2、结果如下：Private Sub Form_Load()Dim sum,count as Integer,,请补充第 50 页 共 32 页
欢迎转载：
推荐：