电子科技大学15秋《VB程序设计》在线作业2满分答案

合集下载

电子科技大学智慧树知到“计算机应用技术”《VB程序设计》网课测试题答案5

电子科技大学智慧树知到“计算机应用技术”《VB程序设计》网课测试题答案（图片大小可自由调整）第1卷一.综合考核(共15题)1.窗体上有一组合框Combol，窗体加载时的代码如下：Private Sub _Load() Combol. AddItem“电视机”Combol. AddItem“录像机”Combol. AddItem“VCD” Combol. AddItem“组合音响” End Sub 要在文本框Textl中显示列表中的第三个项目，则正确的语句的是()。

A.Textl.TextCombol.List3B.Textl.TextCombol.List2C.Textl.TextCombol.List1D.Textl.TextCombol.List02.下列哪些方法不属于通用对话框()。

A.ShowPrintB.ShowListC.ShowFontD.ShowColor3.窗体上有一组合框Combol,窗体加载时的代码如下：Private Sub Form_Load() Combol. AddItem“电视机” Combol. AddItem“录像机” Combol. AddItem“VCD” Combol. AddItem“组合音响” End Sub 要在文本框Textl中显示列表中的第三个项目，则正确的语句的是()。

A.Textl.Text=Combol.List(3)B.Textl.Text=Combol.List(2)C.Textl.Text=Combol.List(1)D.Textl.Text=Combol.List(0)4.ADO数据控件的RecordSoure属性是表示()。

A.数据库类型B.与数据库的连接方式C.与ADO数据控件连接的数据库D.ADO数据控件可访问的数据来源5.当一个工程含有多个窗体时，其中的启动窗体是()。

A.第一个添加的窗体B.最后一个添加的窗体工程属性C.在“工程属性”对话框中指定的窗体D.启动Vosual Basic时建立的窗体6.设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程Private Sub Command1_Click() Dim arr(5) As Variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是()。

(完整word版)计算机二级VB编程题目含答案

Private Sub Command1_Click()Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text)s = 0For i = 1 To ns = s + i ^ 2Next iText2.Text = sEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As IntegerOpen App.Path & "\" & "yssj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Next iClose #1End SubPrivate Sub Command2_Click()''' 不得删除本行注释Dim i As IntegerText1.Text = ""For i = 1 To 10If a(i) Mod 3 = 2 ThenText1.Text = Text1.Text & Str(a(i)) End IfNext iEnd SubPrivate Sub command1_Click()'''不得删除本行注释Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text)a = 0b = 0For i = 1 To na = a + ib = b + aNext iText2.Text = bEnd SubPrivate Sub Command1_Click()'''不得删除本行注释Dim i%, xh$, xm$Open App.Path & "\" & "Xhxm.txt" For Output As #1For i = 1 To 3xh = InputBox("请输入学号")xm = InputBox("请输入姓名")Write #1, xh, xmNext iClose #1End Sub Private Sub Command2_Click()'''不得删除本行注释Dim s as stringOpen App.Path & "\" & "Xhxm.txt" For Input As #2Do While Not EOF(2)Line Input #2, sText1.Text = Text1.Text & s & vbCrLf LoopClose #2End SubPrivate Sub Command1_Click()‘”读取文件”按钮代码'''不得删除本行注释Dim st As StringText1.Text = ""Open App.Path & "\" & “jmwb.txt" For Input As #1While Not EOF(1)Input #1, stText1.Text = Text1.Text + st + vbCrLf WendClose #1End Sub Private Sub Command2_Click()Dim s As String, co As String, c As String, Dim n As Integer, i As Integer, p As Integer s = Trim(Text1.Text)n = Len(s)co = ""For i = 1 To nc = Mid(s, i, 1)p = Asc(c) + 5co = co + Chr(p)Next iText2.Text = coEnd SubPrivate Sub command1_click()'''不得删除本行注释For N = 1 To 15x(N) = Int(Rnd * 91 + 10)Text1.Text = Text1.Text + Str(x(N)) Next NEnd Sub Private Sub Command2_Click()'''不得删除本行注释Dim m As Integer, K As IntegerFor N = 1 To 15For m = N + 1 To 15If x(m) > x(N) ThenK = x(N)x(N) = x(m)x(m) = KEnd IfNext mText2.Text = Text2.Text + Str(x(N)) Next NEnd SubPrivate Sub Command1_Click()Dim char As String * 1char = Trim(Text1.Text)If Not IsNumeric(char) ThenIf (Asc(char) >= 65 And Asc(char) <= 90) Or _(Asc(char) >= 97 And Asc(char) <= 120) ThenLabel1.Caption = "输入的是字母"Else: Label1.Caption = "输入的是其它符号"End IfElse: Label1.Caption = "输入的是数字"End IfEnd SubPrivate Sub Command1_Click()Text1.Text = UCase(Text1.Tag)End SubPrivate Sub Command2_Click()Text1.Text = LCase(Text1.Tag)End SubPrivate Sub Command3_Click()Text1.Text = Text1.TagEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)'对于文本框控件中输入的每次键盘按键弹起事件做一次文本内容保存Text1.Tag = Text1.Text '用Text1.Tag属性作为保存textbox控件文本内容的临时存储区End SubPrivate Sub command1_Click()''' 不得删除本行注释Dim a As Integer, b As Integer, c As Integer Dim max As Integer, min As Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)max = a + b + Abs(a - b)max = max / 2min = a + b - Abs(a - b)min = min / 2max = max + c + Abs(max - c)max = max / 2min = min + c - Abs(min - c)min = min / 2Text4.Text = maxText5.Text = minEnd SubPrivate Sub Command1_Click()Dim a As IntegerIf Not IsNumeric(Text1.Text) ThenMsgBox "请输入数字！", 48, "输入的不是数字"Else a = Val(Text1.Text)If (a Mod 4 = 0 And a Mod 100 <> 0) Or a Mod 400 = 0 ThenText2.Text = "闰年"Else: Text2.Text = "非闰年"End IfEnd ifText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim n As Integer, i As Integern = Val(Text1.Text)If n < 0 Or (Not IsNumeric(Text1.Text)) Then MsgBox "请输入正整数", 48, "输入的不是正整数" Open App.Path & "\" & "jfwj.txt" For Output As #1For i = 1 To nPrint #1, String(i, "*")Next iClose #1End SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As IntegerFor i = 1 To 200If i Mod 3 = 0 And i Mod 7 = 0 ThenText1.Text = Text1.Text + Str(i)End IfNextEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim sum As Single, i As IntegerOpen App.Path & "\" & "Jsdata.txt" For Input As #1 For i = 1 To 15Input #1, Arr(i)Next iClose #1If Op1 ThenT1.Text = AaaEnd IfIf Op2 ThenT1.Text = BbbEnd IfEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As Integer, n As Integer, s As Integern = Val(Text1.Text)If n < 0 Or (Not IsNumeric(Text1.Text)) Then MsgBox "请输入正整数", 48, "输入的不是正整数" s = 0For i = 1 To nIf i Mod 3 = 0 Thens = s + iEnd IfNext iText2.Text = sEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim a As Integera = Val(Text1.Text)Text2.Text = zh(a)‘ zh过程在原本的程序代码中已经有了～直接可用End SubPrivate Sub Command1_Click() ''' 不得删除本行注释Dim x As DoubleDim y As Doublex = Val(Text1.Text)If x < 10 Theny = x - 1ElseIf x < 20 Theny = 2 * x - 1Else: y = 3 * x - 1End IfText2.Text = yEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Text1.Text = ""Open App.Path & "\" & "zfwj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Text1.Text = Text1.Text & " " & a(i)Next iClose #1End Sub Private Sub Command2_Click()''' 不得删除本行注释Dim t As StringText2.Text = ""For i = 1 To 10t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tText2.Text = Text2.Text & " " & a(i) Next iEnd SubPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = Val(Text1.Text)b = Val(Text2.Text)Label1.Caption = Int(Rnd() * (b - a + 1) + a) Label2.Caption = Int(Rnd() * (b - a + 1) + a) Label3.Caption = Int(Rnd() * (b - a + 1) + a)End SubPrivate Sub Command1_Click()Dim s as stringOpen App.Path & "\" & "Bdata.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text + s + Chr(13) + Chr(10) LoopClose #1End SubPrivate Sub Command1_Click()'''不得删改本行注释Dim n As Integern = Val(Text1.Text)If n < 100 Or n > 999 ThenMsgBox "请输入三位正整数", , "输入出错" Else: Text2.Text = Int(n Mod 10)Text3.Text = Int((n Mod 100) / 10)Text4.Text = Int(n / 100)End IfEnd SubPrivate Sub Command1_Click()'产生按钮的代码i = List1.ListIndexFor i = 0 To 9List1.AddItem Int(90 * Rnd + 10)Next iEnd SubPrivate Sub Command3_Click() ’清除按钮的代码List1.ClearList2.ClearEnd Sub Private Sub Command2_Click()'''不得删改本行注释Dim n As Double, j As Integeri = List1.ListIndexFor i = List1.ListCount - 1 To 0 Step -1 n = Val(List1.List(i))If n Mod 2 = 1 ThenList2.AddItem nList1.RemoveItem iEnd IfNext iEnd SubPrivate Sub Command1_Click()‘”读入数据”按钮代码'''不得删除本行注释Dim st As StringText1.Text = ""Open App.Path & "\" & "yy.txt" For Input As #1While Not EOF(1)Input #1, stText1.Text = Text1.Text + st + vbCrLf WendClose #1End Sub Private Sub Command2_Click()'''不得删除本行注释Dim x As String, y As String * 1, n As Integer, i As Integer, p As Integerx = Trim(Text1.Text)n = Len(x)p = 0For i = 1 To ny = UCase(Mid(x, i, 1))If y >= "A" And y <= "Z" Thenp = p + 1End IfNext iLabel1.Caption = "共" & p & "个字母"End SubPrivate Sub Command1_Click()'''不得删除本行注释Dim n As Integer, k As Integer, i As IntegerFor n = 200 To 300k = Int(Sqr(n))For i = 2 To kIf n Mod i = 0 Then Exit ForNext iIf i > k Then List1.AddItem nNext nEnd Sub。

【最全最详细】国家二级VB程序设计题及答案

Vb专项练习第一套题目1、打开“考生文件夹\96\工程1.vbp”，完善程序并保存。

实现功能：假设有一个5位数密码。

只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。

请完善算法帮忙找出这个密码。

''请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()Dim x As LongFor x = ① To 67998 Step 10If (x Mod 67 = 0) And (x Mod 78 = 0) ThenPrint ②End If③End Sub2、“考生文件夹\51\工程1.vbp”是采用“穷举法”求出所有水仙花数的程序，请完善程序并保存。

说明：若一个三位数abc，满足：abc=a3+b3+c3，则称abc为水仙花数。

如三位数153满足：13+53+33=1+125+27=153，则153是水仙花数。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()Dim i, a, b As IntegerFor i = 100 To ①a = i \ 100b = (i - a * 100) \ 10c = ②If a * a * a + b * b * b + c * c * c = i ThenPrint CStr(i)③Next iEnd Sub3、打开“考生文件夹\12\工程1.vbp”，完善程序并保存。

实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。

如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。

电子科大15春《VB程序设计》在线作业2答案

15春《VB程序设计》在线作业2一、单选题（共20 道试题，共100 分。

）1. 在下列动作中，不能引发命令按钮Click事件的是（）。

A. 在按钮上单击鼠标左键B. 在按钮上单击鼠标右键C. 把焦点转移到按钮上，然后按回车D. 如果按钮有快捷字母键，按Alt+快捷字母键正确答案：B2. 在Visual Basic6.0中，改变控制的位置可以通过设置（）属性来实现。

A. Left和TopB. Width和HeightC. Left和HeightD. Width和Top正确答案：A3. 在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc 文件，则正确的描述格式是（）。

A. CommonDialog1.Filter=“*.DOC|*.doc”B. CommonDialog1.Filter=“文本文件（.doc）|（*.doc）”C. CommonDialog1.Filter=“text(.doc)||(*.doc)”D. CommonDialog1.Filter=“text(.doc)(*.doc)”正确答案：A4. 设有如下程序：Option Base 0 Private Sub Form_Click() Dim a Dim I As Integer a=Array(1,2,3,4,5,6,7,8,9) For I=0 To 3 Print a(5 - I); Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是（）。

A. 4321B. 5432C. 6543D. 7654正确答案：C5. 下列控件哪一个具有Align属性（）。

A. 图像框B. 图片框C. 标签D. 列表框正确答案：B6. 如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（）。

vb程序设计书习题和参考答案

vb程序设计书习题和参考答案练习题习题⼀⼀、判断题1．Visual Basic是以结构化的Basic语⾔为基础、以事件驱动作为运⾏机制的可视化程序设计语⾔。

2．⾯向对象的程序设计是⼀种以对象为基础，由事件驱动对象的编程技术。

3．事件是由Visual Basic预先定义的对象能够识别的动作。

4．新建⼯程时系统会⾃动将窗体标题设置为Form1。

5．控件的属性值不可以在程序运⾏时动态地修改。

6．决定对象是否可见的属性为Visible属性，决定对象可⽤性的属性是Enabled属性。

7．保存Visual Basic⽂件时，若⼀个⼯程包含多个窗体或模块，则系统先保存⼯程⽂件，再分别保存窗体或模块⽂件。

8．单击“启动”菜单项将窗体装⼊内存时，⼀定触发窗体的Load事件。

9．“事件过程”是⽤来完成事件发⽣后所要执⾏的程序代码。

10．在打开某窗体时，初始化该窗体中的各控件，应选⽤Load事件。

⼆、选择题1．⼯程⽂件的扩展名为。

A、.frxB、.basC、.vbpD、.frm2．下列不属于对象的基本特征是。

A、属性B、⽅法C、事件D、函数3．在设计模式双击窗体将显⽰的窗⼝是A、⼯程窗⼝B、⼯具箱C、代码窗⼝D、属性窗⼝4．VB中运⾏程序的快捷键是A、F2B、F5C、Alt+F35．改变控件在窗体中的上下位置应修改该控件的属性。

A、TopB、LeftC、WidthD、Right6.窗体模块的⽂件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体⽤属性。

A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号⽤属性。

A、FontNameB、FontSizeC、FontBoldD、FontItalic9．下列选项中不属于事件的是。

A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，⾄少会产⽣何种⽂件。

A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建⼀个⼯程，单击窗体时，在窗体上显⽰“欢迎使⽤Visual Basic程序”。

国家二级VB机试(程序设计基础)模拟试卷2(题后含答案及解析)

国家二级VB机试（程序设计基础）模拟试卷2(题后含答案及解析) 题型有：1. 选择题选择题1．以下自定义数据类型的语句中，正确的是( )。

A．Type student ID As String * 20 name As String * 10 age As IntegerEnd studentB．Type student ID As String * 20 name As String * 10 age As IntegerEnd TypeC．Type student ID As String name As String age As IntegerEnd studentD．Type ID As String * 20 name As String * 10 age As IntegerEnd Type student正确答案：B解析：自定义数据类型的语法结构是：Type自定义类型名<成员名1>[(下标)] As<标准类型名1> <成员名2>[(下标)] As<标准类型名2> ……End Type 其中，成员可以定义为定长的或不定长字符串，也可定义为数组。

本题中，B选项符合语法规则，故B选项正确。

知识模块：程序设计基础2．以下变量名中合法的是( )。

A．x2-1B．PrintC．str_nD．2x正确答案：C解析：Visual Basic中变量名的命名规则：①必须以字母或汉字开头②由字母、汉字、数字或下画线组成③不能使用Visual Basic的保留字。

本题中x2-1中有-(减号)，不是下画线。

print是Visual Basic的保留字，也不能作变量名。

2x以数字开头，也是错误的。

故C选项正确。

知识模块：程序设计基础3．以下变量名中合法的是( )。

A．x-2B．12abeC．sum_totalD．print正确答案：C解析：根据Visual Basic中变量名的命名规则，变量x-2中有一减号，不合法；变量12abc是以数字开头，不合法；变量print是Visual Basic的保留字，不能作变量名，也不合法。

电大考试VB程序网上作业答案附答案

客观题_0001试卷总分：100 测试时间：240单项选择题判断题一、单项选择题（共20 道试题，共80 分。

）1. 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（）。

A. ListB. ListindexC. TextD. Listcount2. 在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为（）。

A. 加号（+）B. 减号（-）C. 星号（*）D. 感叹号（!）3. 保存新建的工程时，默认的文件夹是（）。

A. My DocumentB. VB98C. "\ "D. Windows4. 要清除列表框的所有内容，可用（）方法来实现。

A. RemoveTtemB. ClsC. ClearD. 以上均不可以5. 用标准工具栏中的工具按钮不能执行的操作是（）。

A. 添加工程B. 打印源程序C. 运行程序D. 打开工程6. 改变驱动器列表框的Drive属性值，将激活（）事件。

A. ChangeB. ScollC. KeyDownD. KeyUp7. 下列语句语法正确的是（）。

A. a=1 b=2 c=3B. a=l：b=2：c=3C. a=1，b=2，c=3D. a=1；b=2；c=38. 要在窗体Form1内显示“myfrm”，使用的语句是（）。

A. Form. print "myfrm"B. Form.caption="myfrm"C. Form1.print "myfrm"D. Form1.caption="myfrm"9. 图象框Image没有的属性是（）。

A. PictureB. AppearanceC. AutoRedrawD. 以上属性都没有10. 可获得字符的ASCII码的函数是（）。

A. ValB. FixC. AscD. Chr11. 计时器没有的属性是（）。

免费在线作业答案东大15秋学期《专业概论》在线作业2满分答案

东大15秋学期《专业概论》在线作业2满分答案单选题一、单选题（共20 道试题，共100 分。

）1. 语言处理程序可以检查的错误是( )A. 程序设计的错误B. 逻辑错误C. 语法错误D. B和C-----------------选择：D2. 十进制数45D的二进制数表示形式为( )A. 101101HB. 110010BC. 101101BD. 110010Q-----------------选择：C3. 若十进制数据为l37.625，则其二进制数为( )A. 10001001.11B. 10001001.101C. 10001011.101D. 1011111.101-----------------选择：B4. 数据模型的三要素是（)A. 外模式、模式、内模式B. 关系模型、层次模型、网状模型C. 数据结构、数据操纵、数据约束D. 实体、联系、属性-----------------选择：C5. 网络病毒( )A. 与PC机病毒完全不同B. 无法控制C. 只有在线时起作用，下线后就失去干扰和破坏能力了D. 借助网络传播，危害更强-----------------选择：D6. 在IP地址方案中，159.226.181.1是一个( )A. A类地址B. B类地址C. C类地址D. D类地址-----------------选择：B7. 就其工作原理而论，提出存储程序控制原理的科学家是( )A. 巴尔基B. 牛顿C. 希尔D. 冯·诺依曼-----------------选择：D8. 硬盘属于微型计算机的( )A. 主存储器B. 输入设备C. 输出设备D. 辅助存储器-----------------选择：D9. 数据结构是指数据的组织形式，从逻辑上可以分为( )A. 内部结构和外部结构B. 动态结构和静态结构C. 紧凑结构和非紧凑结构D. 线性结构和非线性结构-----------------选择：D10. 软件工程过程是指( )A. 软件生存周期内的所有活动B. 软件生存周期内的一系列有序活动集C. 软件工程的一组活动D. 软件生存周期内的所有任务-----------------选择：B11. 设计E-R图是数据库设计过程中( )阶段的任务A. 需求分析B. 概念设计C. 逻辑设计D. 物理设计-----------------选择：B12. 计算机系统必须具备的两部分是( )A. 输入设备和输出设备B. 硬件和软件C. 键盘和打印机D. 以上都不是-----------------选择：B13. 电子数字计算机从诞生之日起，经历了四个发展阶段，目前所使用的第四代计算机的主要特点是( )。

计算机二级《VB程序设计》练习题及答案

计算机二级《VB程序设计》练习题及答案2016计算机二级《VB程序设计》练习题及答案一、选择题1、以下能够触发文本框Change事件的操作是(C)A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容2、应用程序设计完成后，应将程序保存，保存的过程是(D )A.只保存窗体文件即可B.只保存工程文件即可C.先保存工程文件，之后保存窗体文件D.先保存窗体文件(或标准模块文件)，之后还要保存工程文件3、VB应用程序的运行模式是(C)A.解释运行模式B.编译运行模式C.两者都有D.汇编模式4、任何控件都具有的属性是(A )A.TEXTB.CAPTIOND.FORECOLOR5、决定控件上文字的字体、字形、大小及效果的属性是( D)A.TEXTB.CAPTIOND.FONT6、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的(B )设置为0A.INDEXB.TABINDEXC.TABSTOPD.ENABLED7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的( A)事件A.CLICKB.DBLCLICKC.GOTFOCUSD.CHANGE8、在运行时，按TAB键跳过了一个可以获得焦点的控件(如文本框)，则可能是因为(B )A.该控件的TABSTOP属性值为TRUEB.该控件的TABINDEX属性值为FALSEC.该控件的ENABLED属性值为TRUED.该控件的ENABLED属性值为FALSE9、为了防止用户随意将光标置于控件上，应(A )A.将控件的TABINDEX属性设置为0B.将控件的TABSTOP属性设置为TRUEC.将控件的TABSTOP属性设置为FALSED.将控件的ENABLED属性设置为FALSE10、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的`( D)属性A.BACKCOLORB.BORDERSTYLEC.FORECOLORD.BACKSTYLE11、如果要在文本框中输入字符时，只显示某个字符，如星号(*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是(B )A.文本框的MULTILINE属性值为TRUEB.文本框的LOCKED属性值为TRUEC.文本框的MULTILINE属性值为FALSED.文本框的LOCKED属性为FALSE12、在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是(B )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语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件对象的三要素是(D )A.属性、事件、事件过程B.控件、窗体、事件C.属性、过程、方法D.属性、事件、方法14、决定标签(Label)显示的属性是(C )A.TextC.CaptionD.Alignment下载文档。

计算机二级VB语言程序设计考试题及答案

计算机二级VB语言程序设计考试题及答案不管从事何种工作，如果要想做出高效、实效，务必先从自身的开始。

有了方案，才不致于使自己思想迷茫、头脑空洞，不知从哪里着手开展工作。

下面是搜索的计算机二级VB语言程序设计考及答案，供大家参考学习！1.以下程序段运行的结果为(B)(单)Private Sub FormClick( )MyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub FormClick( )MyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub FormClick( )MyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮mand1，编写下面程序：Private Sub Text1LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮mand1，编写下面程序：Private Sub Text1LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮mand1，编写下面程序：Private Sub Command1Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub假设在text1中输入字符串"Gong"，那么程序运行结果为(A)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮mand1，编写下面程序：Private Sub Command1Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub假设在text1中输入字符串"gong"，那么程序运行结果为(B)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮mand1，编写下面程序：Private Sub Command1Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusElseMsgBox "密码帐号正确!"End IfEnd Sub假设在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的选项是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为mand1的命令按钮，编写如下代码：Private Sub Command1Click( )Dim x!, y!, z!, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Theny = zz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8，那么标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段：Private Sub FormLoad( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入1，那么label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段：Private Sub FormLoad( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入2，那么label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段：Private Sub FormLoad( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入3，那么label1的标题显示结果为(C)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段：Private Sub FormLoad( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入4，那么label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1Click( )Dim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表，一行7个表达式B.打印九九乘法表，一行7个表达式C.打印ASCII码表，一行8个表达式D.以上说法都不正确15.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。

电大《VB程序设计》期末考试试题及答案

Visual Basic 程序设计试题一、单项选择题(每小题2分，共30分}1.与传统的程序设计语宵相比，VisualBasic最突出的特点是( C )。

A. 结构化程序设计B.程序开发环境C.事件驱动的编程机制D程序调试技术2.在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是( D )A设计模式B中断模式c.执行模式D编写代码模式3. 下列关于窗体的说法不正确的是( B )。

A.窗体的标题由Caption属性确定B.窗体的Name属性Caption属性相同C.窗体的背景图片由其Picture 属性设成D.通过设置Icon属性可使窗体获得最小化时的图标4.工程文件的后缀是( B )。

A.frmB..vbp c.bas D..cls5.要在窗体的标题内显示"myfrm"，使用的语句是( D )。

A.Form1.Print"myfrm" B. Form.Print"myfrm"C.Form.caption="myfrm"D.Form1.caption="myfrm"6.在设计动画时，用时钟控件来控制动画速度的属性是( B )。

A.Enab led B.IntervalC.TimerD.Move7.关于语句行，下列说法正确的是( D )。

A一行只能写一条语句 B.长度不能超过255个学符C.每行的首学符必须大写D一条语句可以分多行书写8.假定已在窗体上画了多个控件，井有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是( A )。

A.单击窗体上没有控件的地方B.单击任一个控件C不执转任何操作D.双击窗体的标题栏9.下列关于变量的说法不正确的是( D )。

A.局部变量是指那要是在过程中用Dim语句或Static语句声明的变量B.局部变量的作用域仅限于声明它的过程C.静态局部变量是在过程中用Static语句声明的D.局部变量在声明它的过程孰行完毕后就被释放了10.使用ADO数据模型时，建立Recordset和Connection对象连接的属性是( C )。

电子科技大学15秋《C++语言程序设计》在线作业1满分答案

15秋《C++语言程序设计》在线作业1
一,单选题
1. 若一个类中含有纯虚函数，则该类称为()
A. 基类
B. 纯基类
C. 派生类
D. 抽象类
正确答案：D
2. new必须与()配对使用。

A. close
B. delete
C. return
D. exit
正确答案：B
3. 下列情况中，不会调用拷贝构造函数的是()
A. 用一个对象去初始化同一类的另一个新对象时
B. 函数的形参是类的对象，调用函数进行形参和实参结合时
C. 函数的返回值是类的对象，函数执行返回调用时
D. 将类的一个对象赋值给该类的另一个已经存在的对象时
正确答案：D
4. C++源程序文件的扩展名为()
A. .cpp
B. .c
C. .c++
D. .dll
正确答案：A
5. 下面有关类说法不正确的是()
A. 在一个类中不能说明具有类类型的数据成员
B. 一个类可以有多个构造函数
C. 一个类只有一个析构函数，且析构函数不能被指定参数
D. 一个类中public、protected和private三者说明的顺序可以任意，且可以被使用多次，也可以不使用正确答案：A
6. 空类就是没有()的类。

A. 类名
B. 任何成员
C. 数据成员
D. 成员函数。

VB程序设计

学习中心/函授站_姓名学号西安电子科技大学网络与继续教育学院2015学年下学期《VB程序设计》期末考试试题（综合大作业）考试说明：1、大作业于2015年10月16日下发，2015年11月7日交回；2、考试必须独立完成，如发现抄袭、雷同均按零分计；3、答案须手写完成，要求字迹工整、卷面干净。

一、填空题（每空1分，共10分）1、Visual Basic6.0是面向的程序设计方法，采用驱动的编程机制。

2、当进入Visual Basic集体环境，发现没有显示“工具箱”窗口，应选择菜单的选项,使“工具箱”窗口显示。

3、十进制整型数的表示范围为。

4、根据所给条件，引出逻辑表达式：（1）闰年的条件是：年号(year)能被4整除,但不能被100整除；或者能被400整除。

逻辑表达式为：（2）一元二次方程有实根的条件为：a不等于0且b2-4ac>=0逻辑表达式为：5、列表框中项目的序号是从开始的，表示列表框中最后一项的序号。

6、为了在运行时把图形文件Pf.jpg装入图片框Picture1，所使用的语句为。

二、选择题（每题2分，共30分）1、可以用来在启动程序时对属性和变量进行初始化的事件：（）。

A．Click B．Unload C．Activate D．Load2、当窗体上有多个控件时，最多只有（）个控件是活动的。

A．1 B．2 C．3 D．多3、当对被选择的控件进行对齐、调整大小等操作时，将以（）为准。

A．所有控件B．某些控件C．基准控件D．以上说法均不对4、Visual Basic中的语句通常按“一行一句，一句一行”的规则书写，但也允许多个语句放在同一行中。

在这种情况下，用来隔开各语句的符号是（）。

A．冒号B．分号C．逗号D．感叹号5、一般来说，在用Visual Basic开发应用程序时，其通常的步骤为（）。

A．①设置可视界面②编写代码③程序测试、运行B．①建立可视用户界面②设置可视界面特性③编写事件驱动代码C．①编写事件驱动代码②程序测试③程序运行和维护D．以上步骤均不对6、下面4个选项中属于字符型数据的是（）。

《VB程序设计》计算机水平等级考试样题及参考答案

《VB程序设计》计算机⽔平等级考试样题及参考答案全国⾼等学校计算机⽔平考试《Visual Basic程序设计》考试样题（⼀）、理论题（20分，每⼩题1分）1.在正常安装Visual Basic6.0后，可以通过多种⽅式启动Visual Basic。

以下⽅式中不能启动Visual Basic的是：____D____A)通过“开始”菜单中的“程序”命令B)通过“我的电脑”找到vb6.exe，双击该⽂件名C)通过“开始”菜单中的“运⾏”命令D)进⼊DOS⽅式，执⾏vb6.exe⽂件2.每当窗体失去焦点时会触发的事件是___C____A)ActiveB)DeactiveC)LostFocusD)Initialize3.为了同时改变⼀个活动控件的⾼度和宽度，正确的操作是：___B_____A) 拖拉控件4个⾓上的某个⼩⽅块B) 只能拖拉位于控件右下⾓的⼩⽅块C) 只能拖拉位于控件左下⾓的⼩⽅块D) 不能同时改变控件的⾼度和宽度4. 假定窗体的名称为Form1，对该窗体编写如下代码：Private Sub Form_Load()Form1.Caption=”AAAAA”Me.Caption=”BBBBB”Capt ion=”CCCCC”End Sub程序运⾏后，窗体的标题是__C___A）AAAAAB）BBBBBC）CCCCCD）显⽰出错信息5.__A___属性设置窗体中⽂本和图形的背景颜⾊A）BackColorB）ColorC）TextD）ForeColor6.为了防⽌⽤户随意将光标置于控件上，应该__D__A) 将控件的TabIndex属性设置 0B) 将控件的TabStop属性设置为0C) 将控件的TabStop属性设置为FalseD) 将控件的Enabled属性设置为False7.语句Z=y+1代表___A______A）变量Z取得y+1的值B）变量Z取得变量y的值，然后再加上1的⼀个表达式C）将变量Z存⼊变量y中，再加上1的表达式D）将变量Z存⼊变量y+1中8.下列程序的运⾏结果是_____A____A=5B=-5C=NOT A=BPRINT CA）TrueB）-5C）0D）⽆法输出9.在窗体上画⼀个命令按钮（名称为Command1）编写如下事件过程：Private Sub Commmand1_Click()b=1c=3print a=b+cEnd Sub程序运⾏后，单击命令按钮，输出的结果是_D___A）a=3B）a=b+cC）3D）False10.设有如下的程序段：a$=”BeijingShanghai”b$=Mid(a$,instr(a$,”g”)+1)执⾏上⾯的程序段后，变量b$的值为__B____A）BeijingB）S hanghaiC）B eijingShanghaiD）显⽰出错信息11.下列语句的输出结果是_C___a=sqr(3.61)Print Format(a,”000.000”)A）1.900B）1.9C）001.900D）001.912.执⾏下⾯的代码，在图⽚框中显⽰的是___B___ Private Sub Command_Click()Picture1.print “Bbb”End SubA)名为”Bbb”的图形⽂件B)⽂本”Bbb”C)不显⽰任何信息D)出错13. 在VB中，下列_C__控件属于容器控件A）GridB）TextBoxC）FrameD）CheckBox14. 下列程序的输出结果是__C___Private Sub Command1_Click()For I=1 to 3Print chr(Asc(“a”)+I-1)NextEnd subA)ABCB)97 98 99C)abcD)bcd15. 设 a=10，则执⾏x=iif(a>7,-1,0)后，x的值是_D_A）7B）10C）0D）-116. 阅读程序：Function func(n As Integer) As IntegerSum=0For I=1 to nSum=Sum+(I+1)*INext IFunc=SumEnd FunctionPrivate Sub Command1_Click()Dim a As Integera=3s=func(a)print sEnd Sub程序运⾏后，单击命令按纽，输出结果为：_B___A）15B）20C）8D）3017.假设在窗体上已经添加了通⽤对话框CommonDialog控件并设置好属性，其名称是CommonDialog1，在程序中要显⽰“打开”对话框，使⽤语句是：_A___A）CommonDialog1.Action=1B）CommonDialog1.Action=2C）CommonDialog1.Action=3D）CommonDialog1.Action=418.在窗体上画两个标签和⼀个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub func(L as label,ByVal a As integer)L.Caption=”1234”a=a*aEnd SubPrivate Sub Form_Load()Label1.Caption=”ABCD”Label2.Caption=10End SubPrivate Sub Command1_Click()a=val(Label2.Caption)call func(label1,a)label2.caption=aEnd Sub程序运⾏后，单击命令按纽，在两个标签Label1和Label2中显⽰的内容分别是_D_A) ABCD和10B) 1234和100C) ABCD和100D） 1234和1019. 要判断在⽂本框内是否按下了回车键，可以在⽂本框的_C__事件过程中进⾏判断A) ChangeB) ClickC) KeyPressD) GotFocus20. 下列控件可以⽤来显⽰⽂件的是__B_A）DirListBoxB）F ileListBoxC）D riveListBoxD）ListBox（⼆）操作题1．简单操作（35分）（1）在Form1的窗体上画⼀个命令按钮，名称为Command1，标题为“未按下”。

电子科技大学网络教育《VB程序的设计》在线作业答案

答案+我名字在线考试——正在答题作业提交11.表达式2\2 * 2/2 * 2 mod 2的结果是(A) 0(B) 25(C) 5(D) 12.下列自定义标识符中非法的是：(A) Me(B) My(C) third(D) fIRst3.表达式“A”Like “[A-Z]”的结果为：(A) A(B) Z(C) TRUE(D) FALSE4.表达式x >= 20 and x<= 100，其中x=37时，结果为：(A) 100(B) 20(C) TRUE(D) flase5.逻辑表达式1>0 and Not 2<7 or 2>6的值为(A) 0(B) FALSE(C) 3(D) TRUE6.表达式x /=2 ,其中x = 24，运算后x的取值为：(A) 12(B) 6(C) 48(D) 247.下列可以作为VB变量的是：(A) a(x*y)(B) 学生信息(C) 1xyz(D) second8.表达式x *=2 ,其中x = 25，运算后x的取值为：(A) 50(B) 625(C) 25(D) 279.表达式100 mod 12 的结果为：(A) 10(B) 4(C) 8(D) 610.下列自定义标识符中合法的是：(A) 1My(B) class(C) forth(D) @home11.表达式4<< 3 的结果为：(A) 8(B) 4(C) 32(D) 1612.表达式“张三”Like “张_*”的结果为：(A) 张(B) TRUE(C) FALSE(D) 张三13.后缀为.vbp的文件表示VB的(A) 类模块文件(B) 窗体文件(C) 标准类模块文件(D) 工程文件14.下列变量名合法的是(A) a_2(B) a-b(C) 2xy(D) float15.后缀为.bas的文件表示VB的(A) 工程文件(B) 窗体文件(C) 类模块文件(D) 标准类模块文件16.下列语句是二维数组引用的是：(A) g(2)(3)(B) g(2,3)(C) g[2,3](D) g[2][3]17.同一行中书写多个语句的间隔符号为：(A) 冒号( : )(B) 箭头（->）(C) 小数点( . )(D) 减号( - )18.表达式1 + 25\ 6 * 2 / 3 mod 4 的值是(A) 1(B) 0(C) 3(D) 219.数据关系3<x≤10表示成正确的VB表达式为(A) 3<x<=10(B) 3<x and x<=10(C) 3<x or x<=10(D) 3<x and <=1020.表达式“Windows”Like “W_*_s”的结果为：(A) indow(B) FALSE(C) Windows(D) TRUE在线考试——正在答题作业提交21.下列语句正确的是(A) x=1; y=2; z=3(B) x=1 y=2 z=3(C) x=1, y=2, z=3(D) x=1 : b=2: z=32.下列语句哪个为二维数组的定义语句：(A) dim g [2,3](B) dim g[2][3](C) dim g(2 ,3)(D) dim g(2)(3)3.设a = “Visual Basic”，下面使b=”Basic”的语句是(A) b=left(a,8,12)(B) b=mid(a,8,5)(C) b=right(a,5,5)(D) b=left(a,8,5)4.求平方根的数学函数名为：(A) Math.Abs(B) Math.Sqr(C) Math.Exp(D) Math.PI5.获取字符串子串的函数为：(A) Mid(string)(B) Istr(string1,string2)(C) Trim(string)(D) LTrim(string)6.设置窗体有可见边框及标题栏，无最小化和最大化按钮，不能调整大小，BorderStyle属性应该设置为(A) 2-Sizable(B) 0-None(C) 1-Fixed Single(D) 3-Fixed Dialog7.窗体Caption属性的含义为(A) 决定窗体标题栏显示的内容(B) 设置窗体的大小(C) 设置窗体的边框样式(D) 决定是否显示窗体的控制菜单图标8.去掉字符串前后空格的函数为：(A) Mid(string)(B) LTrim(string)(C) Istr(string1,string2)(D) Trim(string)9.获取当前系统日期和时间的函数名为：(A) Now(B) Today(C) IsDate(D) TimeOfDate10.语句format(1234.5678 , ”####.00”)的结果为：(A) 1234.56”(B) 1234.55(C) 1234.56(D) 1234.5711.下列说法正确的是(A) 静态局部变量是在过程中用static语句声明的(B) 局部变量的作用域仅限于声明它的过程(C) 局部变量在声明它的过程执行完毕后就被释放了(D) 局部变量是指那些在过程中用Dim语句或Static语句声明的变量12.隐藏窗体所需要设置的属性是(A) ShowInT askbar(B) Enable(C) Movable(D) Visible13.文本框控件的值是哪个属性(A) Caption(B) Value(C) Index(D) Name14.获取当前系统日期的函数名为：(A) Date(B) Now(C) TimeOfDate(D) IsDate15.引用对象的属性和方法使用的符号为：(A) 小数点( . )(B) 减号( - )(C) 箭头（->）(D) 冒号( : )16.VB提供控件的窗口是(A) 文本框(B) 工具箱(C) 工具栏(D) 属性窗口17.数学表达式sin30°写成VB的表达式为(A) sin30(B) sin(30)(C) sin(30°)(D) sin(30*3.14/180)18.窗体ControlBox属性的含义为(A) 设置窗体的大小(B) 决定是否显示窗体的控制菜单图标(C) 决定窗体标题栏显示的内容(D) 设置窗体的边框样式19.下列赋值语句正确的是(A) a=2×b(B) x=y+z(C) -b=a(D) y/z=a20.语句format(123.4567,”0000.00”)的结果为：(A) “0123.45”(B) “0123.46”(C) ”123.45”(D) ”123.46”在线考试——正在答题作业提交31.程序代码：text1.text = “UESTC”中，Text1,Text,“UESTC”分别代表( )(A) 对象，方法，属性(B) 对象，值，属性(C) 对象，属性，值(D) 属性，对象，值2.在窗体上按下鼠标左键时产生的事件是(A) KeyDown(B) MouseMove(C) MouseUp(D) MouseDown3.在设计菜单添加菜单项时，需要添加一个分隔条，标题设置为：(A) 感叹号(B) 减号(C) 星号(D) 加号4.修改控件属性，一般可以使用属性窗口，也可以通过什么形式赋值(A) 代码(B) 对象(C) 方法(D) 命令5.窗体的Load事件的触发时机是(A) 窗体被加载时(B) 用户单击窗体时(C) 窗体显示之后(D) 窗体被卸载时6.InputBox函数返回值的类型是(A) 逻辑型(B) 字符串(C) 整数(D) 日期型7.UBOUND函数的作用是(A) 获取数组的下界(B) 获取数组的长度(C) 获取数组的上界(D) 获取数组的维度8.按照变量的作用域可将变量划分为(A) 动态、常熟、静态(B) 公有、私有、系统(C) 全局变量、模块级变量、过程级变量(D) Public、Private、Protected9.Dim arr(15)所定义的数组元素个数是(A) 17(B) 15(C) 16(D) 1410.在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是(A) 代码窗口(B) 工程资源管理器窗口(C) 窗体设计(D) 属性窗口11.控件共有的属性是(A) Name(B) Caption(C) Text(D) Autosize12.能够改变标签显示标题的属性是(A) Caption(B) Name(C) Border(D) Text13.动态数组需要以下哪个关键字重新定义(A) Private(B) ReDim(C) DIM(D) Public14.如下数组声明语句，正确的是(A) Dim a[1,1] as interger(B) Dim a(2,2) as integer(C) Dim a(n,n) as integer(D) Dim a(4 4) as integer15.如果将文本框的什么属性设置为False，则运行时不能进行文本编辑(A) TabStop(B) MultiLine(C) Enabled(D) Visible16.键盘事件的执行顺序是(A) KeyPress,KeyDown,KeyUp(B) KeyDown,KeyPress,KeyUp(C) KeyUp,KeyDown,KeyPress(D) KeyUp,KeyPress,KeyDown17.下列语句不正确的是(A) 使用ReDim语句可以改变数组的每一维的大小(B) 使用ReDim语句可以改变数组的类型(C) 使用ReDim语句可以对数组的所有元素进行初始化(D) 使用ReDim语句可以改变数组的维数18.当运行程序时，系统自动执行启动窗体的(A) Load事件过程(B) Click事件过程(C) GotFocus事件过程(D) Unload事件过程19.如果想让文本框中的内容在运行时不能编辑，需设置文本框的属性是(A) MultiLine(B) Tabstop(C) Enabled(D) Visible20.msgbox函数的返回值类型是(A) 日期型(B) 字符串(C) 逻辑型(D) MsgBoxResult。

15秋西电《VB程序设计》在线作业答案

西电《V程序设计》在线作业一、单选题（共 25 道试题，共 100 分。

）1. 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为ommn1的命令按钮。

窗体Form1的程序代码如下： Privt Su ommn1_lik() im s Intgr =10 ll g(Form2,) n Su Privt Su g(f s Form,x s Intgr) y=IIf(x>10,100,-100) f,Show f.ption=y n Su 运行以上程序，正确的结果是. Form1的ption属性值为100. Form2的ption属性值为-100. Form1的ption属性值为-100. Form2的ption属性值为100正确答案：2. 在窗体上画一个名称为Fil1的文件列表框，并编写如下程序： Privt Su Fil1_llik() x=Shll(Fil1.FilNm,1) n Su 以下关于该程序的叙述中，错误的是(). 13. 14. 27. 16正确答案：3. Su过程与Funtion过程最根本的区别是()。

. Su过程可以使用ll语句或直接使用过程名调用，而Funtion过程不可以。

. Funtion过程可以有参数，Su过程不可以。

. 两种过程参数的传递方式不同。

. Su过程的过程名不能返回值，而Funtion过程能够通过过程名返回值。

正确答案：4. 以下叙述中错误的是(). 在KyPrss事件过程中不能识别键盘的按下与释放. 在KyPrss事件过程中不能识别回车键. 在Kyown和KyUp事件过程中，将键盘输入的""和""视作相同的字母. 在Kyown和KyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符正确答案：5. 若要使标签控件显示时不覆盖其背景内容，要对其设置的属性是(). kolor. orrStyl. Forolor. kStyl正确答案：6. 以下能在窗体Form1的标题栏中显示“Visulsi窗体"的语句是(). Form1.Nm="Visulsi窗体". Form1.Titl="Visulsi窗体". Form1.ption="Visulsi窗体". Form1.Txt="Visulsi窗体”正确答案：7. 选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为() . T>=1.7 n W<=62.5. T<=1.7 Or W>=62.5. T>1.7 n W<62.5. T>=1.7 Or W<62.5正确答案：8. 以下关于多重窗体程序的叙述中，错误的是(). 用Hi方法不但可以隐藏窗体，而且能清除内存中的窗体. 在多重窗体程序中，各窗体的菜单是彼此独立的. 在多重窗体程序中，可以根据需要指定启动窗体. 对于多重窗体程序中，而且单独保存每个窗体正确答案：9. 以下关于Msgox的叙述中，错误的是(). Msgox函数返回一个整数. 通过Msgox函数可以设置信息框中图标和按钮的类型. Msgox语句没有返回值. Msgox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量正确答案：10. 当对被选择的控件进行对齐、调整大小等操作时，将以()为准。

电子科技大学2022年9月《VB程序设计》作业考核试题及答案参考13

电子科技大学2022 年9 月《VB 程序设计》作业考核试题及答案参考1. 设 a=“Visual Basic”，下面使b=“Basic”的语句是( )。

A.“b=Left(a，8，12)”B.“b=Mid(a，8，5)”C.“b=Rigth(a，5，5)”D.“b=Left(a，8，5)”参考答案： B2. C 语言中表达式 a＋＋＋＋＋＋＋＝1，词法分析后，能识别出的单词个数是_______。

A．10B．9C．7D．6C 语言中表达式 a＋＋＋＋＋＋＋＝1，词法分析后，能识别出的单词个数是_______。

A．10B．9C．7D．6正确答案： D尽管这个表达式在 C 语言的语法上看是错误的，但在词法分析阶段只进行单词识别，不会判读语法是否正确，所以识别出 6 个单词，分别是 a、＋＋、＋＋、＋＋、＋＝和 1。

3. 编译程序的执行效率与速度不如直译程序高。

( )编译程序的执行效率与速度不如直译程序高。

( )错误4. 已知 AX=003AH。

请根据 AX 值用指令实现： BL=03H，BH=0AH，CX=03H+0AH，DX=2×3AH，SI=0A3H，DI=0A03H。

已知 AX=003AH。