电子科技大学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. 电子数字计算机从诞生之日起，经历了四个发展阶段，目前所使用的第四代计算机的主要特点是( )。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
15秋《VB程序设计》在线作业2
一,单选题
1. DataCombo控件的RowSource属性是表示（）。
A. 给DataComebo控件提供列表项的字段
B. 目的表的数据源
C. 给DataCombo控件提供列表项的数据源
D. 更新目的表的字段
正确答案：C
2. 执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（）。
A. 只能写，不能读
B. 只能读，不能写
C. 既可以读，也可以写
D. 不能读，不能写
正确答案：C
3. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10,10) As Integer Dim I, j As Integer For I=1 To 3 For j=2 To 4 array1(I, j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（）
正确答案：A
4. 下列哪个属性设置文本框中文字的对齐方式（）。
A. SelLength
B. Alignment
C. Multiline
D. ScrollBars
正确答案：B
5. 以下能判断是否到达文件尾的函数是（）。
A. BOF
B. LOC
C. LOF
D. EOF
正确答案：D
6. 下面叙述错误的是（）。
A. 驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器
B. 目录列表框DirListBox显示当前驱动器分层目录树
C. 文件列表框FileListBox显示选定目录中的所有文件
D. 文件列表框FileName属性是设定允许显示文件名的文件类型
正确答案：D。