vb作业集锦
VB作业3
VB第三次作业（8～10章）一、选择题（每题2分，共2×20＝40分）1、要获得当前驱动器应使用驱动器列表框的属性是A．PathB．DriveC．DirD．Pattern2、设在窗体上有个文本框，然后编写如下的事件过程：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Const Alt=4Const Key_F2=&H71altdown%=(Shift And Alt) > 0f2down%=(KeyCode=Key_F2)If altdown% And f2down% ThenText1.Text="BBBBB"End IfEnd Sub上述程序运行后，如果按【Shift+F2】，则在文本框中显示得是A．Alt+F2B．BBBBBC．随机出几个数D．文本框平均内容无变化3、下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel 键退出对话框，则Private Sub Command1_Click()CommonDialog1.CancelError=TrueCommonDialog1.Flags=cdlCFEffects Or cdlDFBothCommonDialog1.Action=4CommonDialog1.ShowFont=CommonDialog1.FontNameText1.Font.Size=CommonDialog1.FontSizeText1.Font.Bold=CommonDialog1.FontBoldText1.Font.Italic=CommonDialog1.FontItalicText1.Font.Underline=CommonDialog1.FontUnderlineText1.FontStrikethru=CommonDialog1.FontStrikethruText1.ForeColor=CommonDialog1.ColorEnd SubA．Text1的字体不发生变化B．Text1的字体发生变化C．Text1的字体和颜色发生变化D．程序出错！4、以下叙述中错误的是A) 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)B) 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)C) KeyPress事件中不能识别键盘上某个键的按下与释放D) KeyPress事件中可以识别键盘上某个键的按下与释放5、在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是A) “text (.txt)|(*.txt)” B)“文本文件( .txt) | (.txt)”C) “text(.txt)||(*.txt)” D)“text(.txt)(*.txt)”6、以下叙述中正确的是A) 一个记录中所包含的各个元素的数据类型必须相同B) 随机文件中每个记录的长度是固定的C) Open命令的作用是打开一个已经存在的文件D) 使用Input #语句可以从随机文件中读取数据7、目录列表框的Path属性的作用是A) 显示当前驱动器或指定驱动器上的目录结构B) 显示当前驱动器或指定驱动器上的某目录下的文件名C) 显示根目录下的文件名D) 显示该路径下的文件8、设有语句open "c：\Test．Dat" For OutPut As#1则以下错误的叙述是A)该语句打开C盘根目录下一个己存在的文件Test．DatB)该语句在C盘根目录下建立一个名为Test．Dat的文件C)该语句建立的文件的文件号为1D)执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息9、在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub Txta_KeyPress(keyascii as integer)End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是A)单击鼠标B)双击文本框C)鼠标滑过文本框D)按下键盘上的某个键10、假定有如下事件过程：PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single，Y AsSingle)If Button＝2 thenPopupMenu popFormEnd ifEnd Sub则以下描述中错误的是A)该过程的功能是弹出一个菜单B)popForm 是在菜单编辑器中定义的弹出式菜单的名称C)参数X、Y指明鼠标的当前位置D)Button=2 表示按下的是鼠标左键11、当函数EOF（）的返回值为真时，表示文件的指针指向（）。
北语16春《VB》作业2答案.doc
号：1题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数：5 内容: 表达式5 Mod 3+3\5*2的值是_。
A、0B、2C、4D、6标准答案:B 本题得分：5题号:2题型:单选题（请在以下儿个选项中选择唯二正确答案）本题分数:5内容：若m, x, y,均为Integer型变量,则执行下面语句后m值是。
m=l： X=2： Y=3 m=IIf （X>Y, X+Y, X-Y）A、3B、0C、1D、-1标准答案:D本题得分：5题号:3题型:单选题（请在以下儿个选项中选择唯一正确答案）本题分数:5内容：函数Int（6 * RND） + 1的值是在哪个范围内的整数？—oA、[0,6]k [0,7]C、[1,6]D、[1,7]标准答案:C本题得分：5 内容:号:4题型：单选题（请在以下几个选项中选择唯-正确答本题分数：A、3B、-3. 14C、-4D、3. 14标准答案:C本题得分：5题号:5题型:单选题（请在以下儿个选项中选择唯一正确答案）本题分数;5 内容：VB 表达式Cos （0） +Abs（l）+Int （Rnd（l））的值是°A、1B、-1C、0D、2标准答案:D 本题得分：5 题号:6题型:单选题（请在以下儿个选项中选择唯一正确答案）本题分数:5 内容：由单精度浮点型的数据组成的字节数是A、2B、4C、8D、16标准答案:B 本题得分：5号：7题型：章选题（请在以下几个选项中选择唯二正确答案）本题分数;5 内容：下列不能打开菜单编辑器的操作是A、按Ctrl+EB、单击工具栏中的“菜单编辑器”按钮C、执行“工具”菜单中的“菜单编辑器”命令D、按Shift + Alt + M标准答案:D 本题得分：5号:8题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:5 内容：为了清除窗体上的一个控件，下列正确的操作是A、按回车键B、按Esc键C、选择（单击）要清除的控件，然后按Del键D、选择（单击）要清除的控件，然后按同车键标准答案:c 本题得分：5题瓦"题―题存数:成内容：设a=,z 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)标准答案:B 本题得分：5号：10题型:单选题（请在以下几个选项中选择唯二正确答案）本题分数:5 内容：能够在窗体上触发MouseMove :事件的操作是。
vb代码作业
MsgBox "输入数据有误,重输"
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Change()
''迭代法编制函数2(通过循环实现）
Public Function f(ByVal a As Single) As Single
Dim x1 As Single, x0 As Single
x0 = a / 2
Do
x1 = 1 / 2 * (x0 + a / x0)
End If
Next i
End Sub
7-5Option Explicit
''迭代法编制函数(通过循环实现）
'Public Function f(ByVal x0 As Single, ByVal a As Single) As Single
' Dim x1 As Single
If Val(Right(CStr(a * a), Len(CStr(a)))) = a Then
AutoMorphic = True
End If
End Function
7-3Private Sub Command1_Click()
Dim i As Long, j As Integer
Dim i As Integer, s As Integer
For i = 1 To n / 2
VB的理论作业
1、在Visual Basic中，某对象的属性窗口如右图所示，该对象名是（）A．Enabled B．Timer C．tine D．tine Timer2、某学生设计了一个VB应用程序，他单击了窗体上的“测算”按钮对象，应用程序的窗体界面及按钮的属性窗口界面如下图所示，现在想编制该按钮单击事件的处理过程，则该事件处理过程名是()A．测算_Click B．Command1_Click C．Cmd1_Click D．Cmd1_DblClick 3、一个VB工程的部分设计界面如下图所。
下列说法错误．．的有()①工程文件名是“工程1.vbp”②该工程只有1个窗体③窗体文件名是“Form.frm”④窗体名称是“对象识别”A．①②B．②③C．①③D．③④4、一个VB程序的运行界面如下图所示。
下面说法不正确．．．的是()A．文本框Text1的Caption属性值为“H”B．标签Label1的Caption属性值为“输入字符”C．命令按钮Command1的Caption属性值为“查询”D．窗体的Caption属性值为“查询字符ASCII码”5、一个窗体VB工程的部分设计界面如下图所示：该窗体的名称是()A．MyForm B．FrmMain C．Form1 D．工程16、下列关于对象的描述中，错误．．的是()A．对象的属性用于描述对象的状态B．对象的属性与方法可以有多个C．对象事件的发生会驱动该对象相应事件处理过程的执行D．对象的属性值只能在属性窗口中设置7、在程序中用变量存储某个人的身份证号码，以下数据类型合适的是()A．Integer B．Long C．String D．Boolean8、在VB中，下列属于字符串常量的是()A．”2014”B．ABC C．True D．9.89、下列可作为Visual Basic变量名的是()A．4if B．if_4 C．_if4 D．if10、用下面语句定义的数组的元素个数是()Dim names(5) As StringA．4 B．5 C．6 D．不确定11、在Visual Basic中，下列能作为变量名的是()A．you B．As C．x＋y D．2b12、已知某校100名学生的身高数据(包含一位小数)，要求编写VB程序，统计超过平均身高的人数。
vb考试题
章节作业--第1次作业:10题1、, Visual Basic的三种工作模式是。
A) 编辑 B) 编译 C) 设计、运行、中断 D) 连接正确答案是: C 你选择的答案是：C √2、, 在Visual Basic中，以下什么方法可以改变窗体的大小。
A) 设计时在窗体布局窗口中进行调整。
B) 运行时设置窗体的Left属性。
C) 运行时调用窗体的Move方法。
D) 设计时在窗体布局窗口中点鼠标右键，在快捷菜单中进行设置。
正确答案是: C 你选择的答案是：C √3、, 如果要使窗体的最小化按钮变成灰色（不起作用），需设置窗体的（）属性。
A) Caption B) Icon C) MaxButton D) MinButton正确答案是: D 你选择的答案是：D √4、, 要使窗体上的所有控件具有相同的字体格式，应首先在属性窗口中对（）的Font属性进行设置，然后再添加各控件。
A) 所有控件 B) 窗体 C) 标签控件 D) Fontname正确答案是: B 你选择的答案是：B √5、, 在属性窗口设置命令按钮的DownPicture属性，指定按下时显示的图形文件，但在运行时按下命令按钮却没有效果，原因是（）。
A) 命令按钮的Default属性为True B) 命令按钮的Style属性为2-PictureC) 命令按钮的Style属性为0-Standard D) 命令按钮的Style属性为1-Graphics正确答案是: C 你选择的答案是：C √6、, 要在窗体上显示图片，需设置窗体的（）属性。
A) Caption B) IconC) Picture D) ControlBo正确答案是: C 你选择的答案是：C √7、, “重复”命令是对（）命令的反操作。
A) 撤消 B) 查找C) 复制 D) 剪切正确答案是: A 你选择的答案是：A √8、, 运行时，单击窗体（Form1）将窗体的前景色设置为红色的事件过程是（）。
VB题库
作业一简单VB程序设计1.在VB程序设计中，响应对象的外部动作称为_____，而对象可以执行的动作或对象本身的行为则称为_____。
（A）方法，事件（B）事件，方法（C）属性，方法（D）过程，事件2.在VB6.0集成开发环境中不能完成的工作是_____。
（A）输入和编辑源程序（B）编译生成可执行程序（C）调试运行程序（D）自动查找并改正程序中的错误3.VB6.0集成开发环境不包括_____。
（A）DOS界面窗口（B）窗体窗口（C）代码窗口（D）属性窗口4.当运行程序时，系统自动执行启动窗体的_________事件过程。
（A）Load （B）Click（C）Unload （D）GotFocus5.用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为______。
（A）可视画化程序设计（B）事件驱动编程机制（C）过程化程序实际方法（D）非过程化程序设计语言6.Visual Basic有三种工作模式，它们分别是______模式。
（A）设计、编译和运行（B）设计、运行和中断（C）设计、运行和调试（D）编译、运行和调试7.Visual Basic的一个应用程序至少包含一个_______文件，该文件存储窗体上使用的所有控件对象和有关的_______、对象相应的_______过程和_______代码。
（A）模块、方法、事件、程序（B）窗体、属性、事件、程序（C）窗体、程序、属性、事件（D）窗体、属性、事件、模块8.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是______。
（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口9.保存新建的工程时，默认的路径是_________。
（A）My Documents （B）VB98（C）\ （D）Windows10.若要使标签控件显示时不覆盖其背景内容，要对______属性进行设置。
（A）BackColor （B）BorderStyle（C）ForeColor （D）BackStyle11.文本框没有______属性。
VB课后作业
四、实验步骤第一题1、在新建的窗体上画一个形状按钮4、下拉菜单布局如下5、双击窗体，打开代码窗口并输入如下代码：Private Sub hongse_Click()Shape1.FillStyle = 0Shape1.FillColor = vbRedEnd SubPrivate Sub lanse_Click()Shape1.FillColor = vbBlueEnd SubPrivate Sub lvse_Click()Shape1.FillColor = vbGreenEnd Sub6、单击“文件-保存工程”菜单项，以Sy9-1.frm和Sy9-1.vbp文件名保存在D:\VB程序第二题1、在新建的窗体上画一个图片框2、单击菜单编辑器按钮，打开菜单编辑器，为窗体设置如下的下拉菜单3、下拉菜单布局如下4、双击窗体，打开代码窗口并输入如下代码：Private Sub qinkon_Click()Picture1.Picture = LoadPicture("")End SubPrivate Sub xiansi_Click()Picture1.Picture = LoadPicture("F:\金鱼.bmp")End Sub5、单击“文件-保存工程”菜单项，以Sy9-2.frm和Sy9-2.vbp文件名保存在D:\VB程序第三题1、在新建的窗体上画一个图片框4、下拉菜单布局如下5、双击窗体，打开代码窗口并输入如下代码：Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Enabled = FalseText1.Enabled = TrueIf Button = 2 ThenPopupMenu zhihaoEnd IfEnd SubPrivate Sub erba_Click()Text1.FontSize = 28End SubPrivate Sub ersi_Click()Text1.FontSize = 20End SubPrivate Sub sier_Click()Text1.FontSize = 12End SubPrivate Sub siliu_Click()Text1.FontSize = 16End Sub6、单击“文件-保存工程”菜单项，以Sy9-3.frm和Sy9-3.vbp文件名保存在D:\VB程序第四题1、新建一个窗体FORM1,右键单击工程资源管理器的form1,添加MDI窗体，再设置FOME1窗体的MDIchild属性为true2、打开父窗体的菜单编辑器，为窗体设置如下的下拉菜单3、下拉菜单布局如下4、双击父窗体，打开代码窗口并输入如下代码：Private Sub dakai_Click()Form1.Picture = LoadPicture("F:\雪纳瑞.bmp")End SubPrivate Sub tuichu_Click()EndEnd SubPrivate Sub xinjian_Click()Form1.ShowEnd Sub5、在子窗体上添加一个图片框，并将子窗体的caption属性改为“文档1”,打开子窗体的菜单编辑器，为窗体设置如下的下拉菜单6、下拉菜单布局如下7、双击子窗体，打开代码窗口并输入如下代码：Dim luoji As BooleanPrivate Sub dakai_Click()Picture1.Picture = LoadPicture("F:\雪纳瑞.bmp") End SubPrivate Sub tuichu_Click()EndEnd SubPrivate Sub xinjian_Click()Picture1.Picture = LoadPicture("")End SubPrivate Sub qinchu_Click()Picture1.ClsEnd SubPrivate Sub shouhui_Click()luoji = FalseEnd SubPrivate Sub zhixian_Click()luoji = TrueEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If luoji = False And Button = 1 ThenPicture1.Line -(X, Y)End IfEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If luoji = True And Button = 1 ThenPicture1.Line -(X, Y)End IfEnd Sub8、单击“文件-保存工程”菜单项，以Sy9-4.frm和Sy9-4.vbp文件名保存在D:\VB程序五、实验调试与结果分析第一题最初的代码是Private Sub hongse_Click()Shape1.FillColor = vbRedEnd Sub……运行后发现不管是否有按选项，形状按钮始终是透明的，于是考虑一开始把形状按钮的填充样式改为solid,如下修改Private Sub hongse_Click()Shape1.FillStyle = 0Shape1.FillColor = vbRedEnd Sub……运行后结果符合题目要求第二题一开始其中的一段代码为Private Sub qinkon_Click()Picture1.Picture = clsEnd Sub运行后发现清空选项不起作用，分析知道图片框清空原图片的语法为Picture1.Picture = LoadPicture("")改正后运行得到的结果与题目要求符合第三题一开始的代码有一段如下Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu zhihaoEnd IfEnd Sub运行后发现右键单击文本框时，老是先弹出系统的右键菜单，再次右击后才弹出自己设计的菜单，与题目要求不符，于是在原语段中加入如下语句Text1.Enabled = FalseText1.Enabled = True运行后第一次单击右键就弹出所想要的菜单，符合题目要求第四题在父窗体的代码中，一开始有这样一段Private Sub xinjian_Click()Form1.ShowEnd Sub但运行后发现即使没有按新建按钮，子窗体依然自动加载了，分析知道应该要改变窗体加载的设置，于是选择工程菜单下的工程1属性，改变启动对象为MDIform1,这样新建菜单才有实际的意义六、总结本次实验的内容主要有如下：1、下拉式菜单、弹出式菜单的设计2、菜单编辑器的使用3、多文档界面应用程序的设计4、综合运用常用控件及其基本控制结构完成应用程序的设计下拉式菜单：下拉式菜单通过菜单编辑器来制作，主要包括标题和名称，标题就是下拉选项的名称，而名称并不是可有可无的，因为在为菜单项写代码的时候，引用的就是名称而不是标题，标题是拿来看的，vb只能识别字母，所以名称一定要由字母组成，为了便于理解，可以用标题的拼音来作为名称要往下添加其他的菜单项，可以单击下一个或者是直接回车，要调整选项的级别，可以单击箭头来调整弹出式菜单：和下拉式菜单是一样的，只是顶级菜单不可见，即可见选项没有选。
VB课后作业
1.VB最突出的特点是：事件驱动编程机制。
2.VB集成环境的主窗口不包括状态栏。
3.f4激活属性窗口。
属性窗口的4各部分：对象框属性显示方式、属性列表、属性解释。
4.ctrl+F4,关闭窗口5.控件有3类：标准控件，activeX控件，可插入对象。
6.F7——打开代码窗口7.VB开发程序的三步：建立可视用户界面、设置可视界面特性、编写事件驱动代码。
8.控件和窗体的NAME属性是只读属性。
9.代码窗口：左栏：对象，右栏：过程。
10.VB的3个模块为：窗体，标准，类。
11.在窗体上画一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏文本框”和“显示文本框”。
当单击第一个命令按钮时，文本框消失；当单击第二个命令按钮时，文本框重现。
并在文本框中显示“VB程序设计”（字体大小为16）。
答：command1 clickText1.visiable=falseCommand2 clickText2.visiable=true.Text2.fontsize=16Text2.text=”VB程序设计”12.VB中变量名只能以字母开始。
13.or and 取负。
14.Unicode与ANSI的转换函数是：strconv。
Unicode方式，西文，中文都为1个字符，占2个字节。
15.28°=（28/180）*3.1416.任何函数的参数，都要用括号括起。
17.表达式中不可以出现pai，用3.14表示18.乘号要用*代表19.平方：20.数字乘以字母，之间也得加*21.ln2：用（log(2)/log(e)）表示。
22.mid函数，参数是从第几个开始后的几个。
23.VB中字符串要用引号括起来，日期/时间要用井号括起来。
24.优先级：* / \25.print sgn(-6^2)+abs(-6^2)+int(-6^2) →-126.负号与平方一起时：先平方，再负号。
27.format（）。
#不需添0，而0需要添。
大学vb 实验作业6 选择结构程序设计
实验六选择结构程序设计
实验时间
实验目的
（1）掌握由IF语句构成的选择结构
（2）掌握由SELECT CASE语句4）学会编写选择结构程序解决实际问题
（5）掌握多重窗体的设计
实验环境
硬件：微型计算机
软件：Microsoft Visual Basic 6.0
实验内容
1、编写程序求出四个数中的最小数（要求用“打擂算法”）。
2、设计程序，分别用IF语句和Select语句实现判断从键盘上输入的某个字符为哪类字符（大写字母、小写字母、数字字符和其它字符）
3、编程实现系统登录程序。（用户名：班级；密码：学号后两位）
4、窗体运行时，鼠标光标是箭头形状，每单击一次窗体，鼠标就变换一种鼠标光标的形状，依次显示鼠标光标的15种形状。
提示：窗体上鼠标光标的形状由窗体的MousePointer属性值决定。
实验小结
VB语言程序设计作业及解析(专升本)-1
VB语言程序设计(专升本)作业11.(单选题)以下不正确的字符串赋值语句是。
(本题10.0分)A、char *s;s="abcde";B、char s[ ]="abcde";C、char s[10];s="abcde";D、char *s="abcde";2.(单选题)假设x,y为整型变量,则执行如下程序段后y的值为。
for(x=1,y=1;y<=50;y++){ if(x>=10)break;if(x%2==1){x+=5;continue;}x-=3;}(本题10.0分)A、2B、4C、6D、83.(单选题)下列字符串“a\x21\\\tp\202q”的长度是(本题10.0分)A、7B、9C、15D、164.(单选题)若有以下定义,则数值为4的正确表达式是。
int a[10]={1,2,3,4,5,6,7,8,9,10};char c=’a’,d,g;(本题10.0分)A、a[g-c]B、a[4]C、a[’d’-’c’]D、a[‘d’-c]5.(单选题)下列关于函数的叙述正确的是。
(本题10.0分)A、每个C程序源文件中都必须有一个main()函数B、C程序中main()函数的位置是固定的C、C程序中所有函数之间都可以相互调用,与函数所在位置无关D、在C程序的函数中不能定义另一个函数6.(单选题)以下关于C函数返回值的叙述正确的是。
(本题10.0分)A、被调函数中只有使用return语句才能返回主调函数B、使用一个return语句可以返回多个函数值C、函数返回值类型取决于return语句中的表达式类型D、函数返回值类型取决于定义该函数时所指定的类型7.(单选题)若有如下宏定义:#define N 2#define Y(n) ((N+1)*n)则执行赋值语句z=2*(N+Y(5));后z的值是。
(本题10.0分)A、表达式有误B、34C、70D、无确定值8.(单选题)以下关于变量的作用域叙述不正确的是。
VB课后作业
第三章一、判断题1．整型变量有Byte、Integer、Long类型3种。
2．Byte类型的数据，其数值范围在-255～255之间。
3．Visual Basic的Double类型数据可以精确表示其数值范围内的所有实数。
4．在逻辑运算符Not、Or、And中，运算优先级由高到低依次为Not、Or、And。
5．关系表达式是用来比较两个数据的大小关系的，结果为逻辑值。
6．一个表达式中若有多种运算，在同一层括号内，计算机按函数运算→逻辑运算→关系运算→算术运算的顺序对表达式求值。
7．赋值语句的功能是计算表达式值并转换为相同类型数据后为变量或控件属性赋值。
8．用DIM定义数值变量时，该数值变量自动赋初值为0。
52307 .变量定义：Dim Count As integer, sum As single等价于: Dim Count%,sum!√52308 .变量定义：Dim Count As integer, sum As float等价于: Dim Count%,sum!以上的变量定义的格式，和等价的格式都正确。
×52310 .在VB中运算结果的数据类型向精度高的数据类型靠，规则是：Integer＜Long＜Single＜Double＜Currency√52315 .能在DOS下或Windows下运行的应用程序，也可以在VB中调用。
形式为： Shell(命令字符串,窗口类型)但Shell函数只能调用扩展名为以下几种类型的文件，它们是：.exe，.bat，.com，.txt 。
×52406 定义变量的语句 Dim abc As String * 3 是正确的。
√52410 .VB中的函数一次只能返回一个值。
√52421 .变量指程序运行过程中其值可以改变的那些量，而值不能改变的是常量。
√52463.变量名第一个字符必须不能是数字√52473 .表达式(8＋6)^(4/(－2))－5*(C＋D)是正确的。
VB数学型大作业题目
VB数学型大作业题目下面题目中任选两个完成。
1.歌星大奖赛在歌星大奖赛中，有10个评委为参赛的选手打分，分数为1~100分。
选手最后得分为：去掉一个最高分和一个最低分后其余8个分数的平均值。
请编写一个程序实现。
算法提示：这个问题的算法十分简单，但是要注意在程序中判断最大、最小值的变量是如何赋值的。
2.求最大数问555555的约数中最大的三位数是多少？算法提示：根据约数的定义，对于一个整数N，除去1和它自身外，凡能整除N的数即为N的约数。
因此，最简单的方法是用2到N-1之间的所有数去除N，即可求出N的全部约数。
本题只要求取约数中最大的三位数，则其取值范围可限制在100到999之间。
3.高次方数的尾数求13的13次方的最后三位数算法提示：解本题最直接的方法是：将13累乘13次方截取最后三位即可。
但是由于计算机所能表示的整数范围有限，用这种“正确”的算法不可能得到正确的结果。
事实上，题目仅要求最后三位的值，完全没有必要求13的13次方的完整结果。
研究乘法的规律发现：乘积的最后三位的值只与乘数和被乘数的后三位有关，与乘数和被乘数的高位无关。
利用这一规律，可以大大简化程序。
4.杨辉三角形在屏幕上显示杨辉三角形11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 1......................................算法提示：杨辉三角形中的数，正是(x+y)的N次方幂展开式各项的系数。
本题作为程序设计中具有代表性的题目，求解的方法很多，这里仅给出一种。
从杨辉三角形的特点出发，可以总结出：1)第N行有N+1个值(设起始行为第0行)2)对于第N行的第J个值：(N>=2)当J=1或J=N+1时：其值为1J!=1且J!=N+1时：其值为第N-1行的第J-1个值与第N-1行第J个值之和本程序应是根据以上递归的数学表达式编制的。
5.该存多少钱假设银行一年整存零取的月息为0.63%。
vb大作业(简单)
1、编写一个计算矩形面积的通用过程，然后调用该过程计算矩形的面积。
分析：本题需要设计一个求矩形面积的Sub通用过程。
设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象的属性。
设置下图所示。
②编写事件代码。
2、一个有9个元素的一维数组，随机产生9个两位数赋值给该数组，从中找出最大值、最小值和平均值。
分析：首先声明一个有9个元素的一维数组，利用随机函数随机产生9个两位数赋值给该数组。
然后，对每个数组元素值进行比较，从中找出最大值、最小值和平均值。
设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象的属性。
在窗体上添加1个框架，7个标签和3个按钮控件。
设置如图所示。
②编写事件代码。
求最大、最小、平均值3、将一个数组按照元素值从大到小重新排序。
分析：数组元素排序有多种方法，比如选择排序法。
首先找出最大数，将它放在第一个数的位置。
在余下的n-1个数中再找出最大数，放在第二个数的位置。
依次类推，最终将数组元素按照从大到小排序。
设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象的属性。
设置如图所示。
②编写事件代码。
4π分析：首先找出公式中无穷乘积各项的规律。
设第n 项的分母为P n ，则第n+1项的分母为P n+1n 项乘积为S n ，则前n 项乘积为S n+1=2 S n / P n+1。
根据以上分析，画出流程图所示。
设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象属性。
如图所示。
②当程序运行时，输入小数位数，单击“计算”，在下方的文本框中显示计算结果。
5、利用Do…Loop循环语句求从1到100的累加和。
分析：采用累加的方法，用变量numberSum来存储从1到100的累加和。
用变量n来存放“加数”（加到numberSum中的数），从1开始到100为止。
根据以上分析，画出流程图所示。
设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象属性。
②编写“计算”命令按钮的Click事件代码：③运行程序，当单击“计算”按钮，结果如图5-6所示运行程序，当单击“计算”按钮，结果如图所示。
东师《VB程序设计》2022年秋学期在线作业1
VB程序设计2022年秋学期在线作业1一、单选题1：执行语句Open "C:StuData.dat" For Input As #2 后，系统()。
A将C盘当前文件夹下名为StuData.dat的文件的内容读入内存B在C盘当前文件夹下建立名为StuData.dat的顺序文件C将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中D将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中正确答案：A2：语句Dim AA(9,9)所定义数组AA的元素个数为A 18B 81C 100D 90正确答案：C3：表达式Int(Rnd(O)+1)+Int(Rnd(1)-1)的值是()。
A 1B 0C -1D 2正确答案：B4：在窗体模块的通用声明段中声明变量时，不能使用()关键字。
A DimB PublicC PrivateD Static正确答案：D5：新建一工程，将其窗体的(名称)属性设置为MyFirst，则默认的窗体文件名为()。
A Forml.frmB工程1.frmC MyFirst.frmD Form1.vbp正确答案：C6：通过设置ADO数据控件的()属性可以建立该控件到数据源的连接信息。
A RecordSourceB RecordSetC ConnectionStringD Database正确答案：C7：下列控件中，没有Caption属性的是()。
A框架B列表框C复选框D单选按钮正确答案：B8：模拟方形骰子投掷的表达式是()。
A Int(6 * Rnd(1))B Int( 1+6 * Rnd(1))C Int(6 * Rnd(1) -l)D Int(6 * Rnd(1)-1)正确答案：B9：引用列表框(List1 )最后一个数据项应使用()。
A List1.List(Listl1. ListCount)B List1. List(Listl. ListCount - 1)C List1. List(ListCount)D List l. List( ListCounr-1)正确答案：B10：以下可以作为Visual Basic变量名的是()。
北语直属14秋《VB》作业3满分答案
Visual Basic中使用的数据库引擎是Jet数据库引擎，该引擎包含在一组___文件中。
A、ActiveX控件
B、动态链接库
C、ODBC API函数库
D、应用程序
标准答案:B
学员答案:B
本题得分:4
题号:21题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4
内容:
在关系运算中，根据具有相同属性名的字段进行连接，且在连接结果中去除重复属性，这样的运算是___。
A、内部连接
B、外部连接
C、等值连接
D、自然连接
标准答案:D
学员答案:D
本题得分:4
题号:13题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4
内容:
在数据库的三级体系结构中，数据库的模式对应于数据库的___视图。
A、可行性分析
B、详细设计
C、需求分析
D、程序编码
标准答案:C
学员答案:C
本题得分:4
题号:6题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4
内容:
在SQL的UPDATE语句中，要修改某列的值，必须使用关键字___。
A、Select
B、Where
C、Distinct
D、Set
标准答案:D
内容:
在关系数据模型中，利用关系运算对两个基本点关系进行操作，得到的结果是___。
A、属性
B、关系
C、元组
D、关系模式
标准答案:B
学员答案:B
本题得分:4
题号:9题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4
内容:
描述事物的符号记录称为___。
A、信息
专升本VB上机编程作业1_题解
专升本Visual Basic上机编程作业（一）及题解一、循环结构程序设计：1、编程找满足条件的值。
例1：编程求解百钱买百鸡问题。
公鸡每只5元，母鸡每只3元，小鸡三只1元，百元钱买百只鸡，问公鸡、母鸡、小鸡各若干？程序代码如下：1Dim x%, y%, z %For x=1 To 20For y=1 To 33Z=100-x-yIf 5*x+3*y+z/3=100 Then Print ”公鸡：”; x ，”母鸡：”; y，”小鸡：” ;zNext yNext x请参考以上程序，完成下列编程。
1.1、（09专升本编程题）鸡免同笼问题：已知笼中鸡和免共36只，它们的脚共有100只，编程计算鸡和免分别有多少只。
Dim x As Integer, y%For x = 1 To 35y = 36 - xIf 2 * x + 4 * y = 100 Then Print "鸡："; x; "免："; yNext x1.2、已知两个三位数相加之和abc+cba=1333，编程计算并输出能满足这个条件的所有a、b、c的值。
Dim a%, b%, c%For a = 1 To 9For b = 0 To 9For c = 1 To 9If (a + c) * 100 + 2 * b * 10 + c + a = 1333 Then Print "a="; a, "b="; b, "c="; cNext cNext bNext a1.3、有一篮鸡蛋（总数小于500），二个一数多一个，三个一数多二个，四个一数多三个，五个一数多四个，六个一数多五个，七个一数正好，编程求鸡蛋的数量。
Dim i%For i = 1 To 499If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print "鸡蛋的只数=:"; I ：exit forNext iDim i%i = 0Do Until i >= 500i = i + 1If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print "鸡蛋的只数=:"; iLoop1.4、马克思曾经做过这样一道趣味数学题：有30个人在一家小饭馆里用餐，其中有男人、女人和小孩。
vb 作业整理
第一题Private Sub Form_Click()Height = Height + 500Width = Width + 500End Sub第2题Private Sub Form_click()Form1.Left = Left + 500Form1.Top = Top + 500End Sub第3题Private Sub Command1_Click() Command1.Height = Command1.Height + 50 Command1.Width = Command1.Width + 50End SubPrivate Sub Command2_Click()Command2.Height = Command2.Height - 50Command2.Width = Command2.Width - 50End Sub第4题Private Sub Command1_Click()If Text1.Text = "hello" And Text2.Text = "12345" Then MsgBox "欢迎使用"ElseMsgBox "用户名或密码错误"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub第5题Private Sub Command1_Click()r = Val(InputBox("请输入第一个整数:", "输入")) e = Val(InputBox("请输入第二个整数", "输入")) Form1.Print "你输入的两个数是:", r, ePrint "你输入的两个数的和是：", r + ePrint "你输入的两个数的平均值是：", (r + e) / 2a = MsgBox("完成得非常好，你很棒！", 0 + 64, "鼓励") End Sub第6题Dim r$, e$Private Sub Command1_Click()r = InputBox("请输入字符串a：", "输入a")e = InputBox("请输入字符串b：", "输入b")End SubPrivate Sub Command2_Click()d = MsgBox(r & e, 0, "结果")End Sub第7题Private Sub Command1_Click()Dim a$a = Text1.TextIf a = "红" ThenForm1.BackColor = vbRedElseIf a = "绿" Then Form1.BackColor = vbGreen ElseIf a = "蓝" Then Form1.BackColor = vbBlue ElseIf a = "黄" Then Form1.BackColor = vbYellowElseIf a = "白" Then Form1.BackColor = vbWhite Else: Form1.BackColor = vbBlackEnd IfEnd Sub第8题Private Sub Form_Click()x = InputBox("请输入x", "输入")y = InputBox("请输入y", "输入")z = InputBox("请输入z", "输入")Print "排序前"Print "X=", xPrint "Y=", yPrint "Z=", zIf x > z And z > y Thent = zz = yy = tElseIf y > x And x > z Then t = yy = xx = tElseIf y > z And z > x Then t = yy = xx = tr = yy = zz = rElseIf z > x And x > y Then t = xx = zz = tr = yy = zz = rElseIf z > y And y > x Then t = zz = xx = tElseEnd IfPrint "排序后"Print "X=", xPrint "Y=", yPrint "Z=", zEnd Sub第9题Private Sub Form_Click()Dim x%, y%, z%x = InputBox("请输入第一条边长", "输入框")y = InputBox("请输入第二条边长", "输入框")z = InputBox("请输入第三条边长", "输入框")If x + y > z And x + z > y And y + z > x Thent = 1 / 2 * (x + y + z)Print "三角形的周长是：", x + y + z; "三角形的面积是：", (t * (t - x) * (t - y) * (t - z)) ^ (1 / 2)Else: h = MsgBox("不能构成三角形", 0 + 48, "警告")End IfEnd Sub第10题Private Sub Command1_Click() Dim a%a = Text1.TextIf a < 10 ThenText2.Text = 30ElseIf a >= 10 And a < 50 Then Text2.Text = a * 5 / 2 ElseIf a >= 50 And a < 75 Then Text2.Text = a * 2Else: Text2.Text = 150End IfEnd Sub第11题Private Sub Form_Click() Dim x%, y%, s%x = 0y = 0s = 0For i = 1 To 99 Step 2 x = x + iNext iFor r = 2 To 100 Step 2 y = y + rNext rs = x - yPrint sEnd Sub第12题Private Sub Form_Click()Dim s%s = 0For i = 100 To 200If i Mod 3 = 0 Or i Mod 7 = 0 Then s = s + iEnd IfNext iPrint sEnd Sub第13题Private Sub Form_Click()Dim i%, s#, y#s = 0y = 0For i = 1 To 30s = s + 2 ^ (i - 1) * 0.01 y = y + 100000Next iPrint "富翁给陌生人的钱是：", s Print "陌生人给富翁的钱是：", y End Sub第14题Private Sub Command1_Click() Dim h!, s!, i%, y!h = Text1.Texts = hFor i = 1 To 9h = h * 0.5s = s + h * 2Next iy = h / 2Text2 = sText3 = yEnd SubPrivate Sub Command1_Click() Dim i%i = Text1For a = 1 To iPrint Space(1)For b = 1 To aPrint "*";Next bNext aEnd SubPrivate Sub Form_Click()Dim x&, s&x = 50000s = 0i = 0While s < 1000000s = s + x * 0.6x = x * (1 + 0.1)i = i + 1WendPrint "成为百万富翁所需年数为", i End Sub第17题Private Sub Command1_Click() Dim a$, b$, c$, x%a = Text1x = Len(a)For i = x To 1 Step -1b = Mid(a, i, 1)c = c + bNext iText2 = cEnd Sub第18题Private Sub Form_Click()Dim a(1 To 20) As Integer, b$ For i = 1 To 20a(i) = (20 - i + 1) ^ 2 Print "a("; i; ")="; a(i) Next iEnd Sub第19题Private Sub Form_Click()Dim a(1 To 10) As Integer Dim i%, max%, j%ClsPrint "数组元素是："For i = 1 To 10a(i) = Int(Rnd * 100 + 1) Print a(i);Next iPrintmax = a(1)For i = 1 To 10If a(i) > max Thenmax = a(i)j = iEnd IfNext iPrint "最大元素的值是：", maxPrint "最大元素是数组的第" & j & "个元素" End Sub第20题Private Sub Form_Click()ClsDim a(1 To 4, 1 To 4) As IntegerDim i%, j%Print "二维数组元素为："For i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 90 + 10)Print a(i, j);Next jPrintNext iPrint "转置后，二维数组元素变为：" For j = 1 To 4For i = 1 To 4Print a(i, j);Next iPrintNext jEnd Sub第22题Private Sub Form_Load()Dim i As IntegerList1.ClearFor i = 0 To Screen.FontCount - 1If Asc(Screen.Fonts(i)) < 0 Then List1.AddItem Screen.Fonts(i) End IfNextCombo1.AddItem "5"Combo1.AddItem "6"Combo1.AddItem "7"Combo1.AddItem "8"Combo1.AddItem "9"Combo1.AddItem "10"Combo1.AddItem "12"Combo1.AddItem "14"Combo1.AddItem "16"Combo1.AddItem "18"Combo1.AddItem "20"Combo1.AddItem "22"Combo1.AddItem "24"Combo1.AddItem "26"Combo1.AddItem "28"Combo1.AddItem "36"Combo1.AddItem "48"End SubPrivate Sub list1_Click()Label1.FontName = List1.TextEnd SubSub Check1_Click()If Check1.Value = 1 ThenLabel1.FontBold = TrueElseLabel1.FontBold = False End IfEnd SubSub Check2_Click()If Check2.Value = 1 ThenLabel1.FontItalic = True ElseLabel1.FontItalic = False End IfEnd SubSub Check3_Click()If Check3.Value = 1 ThenLabel1.FontUnderline = TrueElseLabel1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Combo1_Click()Label1.FontSize = Combo1.TextEnd SubSub hscroll1_change()Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubSub hscroll2_change()Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubSub hscroll3_change()Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End Sub第23题Private Sub Command1_Click()Timer1.Enabled = Not Timer1.Enabled If Command1.Caption = "开" ThenCommand1.Caption = "停"ElseCommand1.Caption = "开"End IfEnd SubPrivate Sub Timer1_Timer()Image1.Left = Image1.Left + 10If Image1.Left > Form1.Width ThenImage1.Left = -Image1.Width End IfEnd Sub第24题Private Sub Form_Load()c = Chr(13) + Chr(10)msg = "滚滚黄河东逝水" & cmsg = msg & "浪花淘尽英雄" & c msg = msg & "是非成败转成空" & c msg = msg & "青山依旧在" & cmsg = msg & "几度夕阳红"Text1.Text = msgEnd SubText1.Text = ""Text1.SetFocusEnd SubPrivate Sub fonBond_Click() Text1.FontBold = TrueEnd SubPrivate Sub fonItalic_Click() Text1.FontItalic = TrueEnd SubPrivate Sub fonUnder_Click() Text1.FontUnderline = True End SubPrivate Sub fonStri_Click() Text1.FontStrikethru = True End SubText1.FontName = "宋体" End SubPrivate Sub fonL_Click() Text1.FontName = "隶书" End SubPrivate Sub fonH_Click() Text1.FontName = "黑体" End SubPrivate Sub fonY_Click() Text1.FontName = "幼圆" End SubPrivate Sub fon14_Click() Text1.FontSize = 14End SubPrivate Sub fon20_Click() Text1.FontSize = 20End SubText1.FontSize = 24End SubPrivate Sub fon32_Click() Text1.FontSize = 32End SubPrivate Sub fonRed_Click() Text1.ForeColor = vbRedEnd SubPrivate Sub fonBlue_Click() Text1.ForeColor = vbBlueEnd SubPrivate Sub fonBlack_Click() Text1.ForeColor = vbBlack End SubPrivate Sub fonYellow_Click() Text1.ForeColor = vbYellow End Sub第25题Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu popMenu, vbPopupMenuCenterAlignEnd SubPrivate Sub popa_Click()Label1 = "瞒天过海"Text1 = "备周则意怠，常见则不疑。
VB实验作业参考答案
1)单击窗体后在窗体上显示“您好！×××同学”。
要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。
答案参照课本P27的例1-6。
2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写：
Command1.Top = Form1.ScaleHeight - Command1.Height
End Sub
Private Sub Form_Resize()
Call Form_Load
End Sub
Private Sub Command1_Click()
End
Dim r1 As Single, r2 As Single, Rp As Single, Rs As Single
r1 = InputBox("请输入第一个电阻值：")
r2 = InputBox("请输入第二个电阻值：")
Rp = (r1 * r2) / (r1 + r2)
Rs = r1 + r2
程序代码：
Private Sub Command1_Click()
Dim sg As String, tz As String, bz As String
sg = Text1.Text
VB语言程序设计-4套作业参考答案
第1套您已经通过该套作业,请参看正确答案1、与传统的程序设计语言相比，Visual Basic语言最突出的特点是（）。
A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术参考答案：C您的答案：C2、Visual Basic集成环境的主窗口中不包括（）。
A．标题栏B．菜单栏C．状态栏D．工具栏参考答案：C您的答案：C3、Visual Basic窗体设计器的主要功能是（）。
A．建立用户界面B．编写源程序代码C．画图D．显示文字参考答案：A您的答案：A4、下列叙述中正确的是（）。
A．只有窗体才是VB中的对象B．只有控件才是VB中的对象C．控件和窗体都是VB中的对象D．控件和窗体都不是VB中的对象参考答案：C您的答案：C5、为了把窗体上的某个控件变为活动的，应执行的操作是（）。
A．单击窗体的边框B．单击该控件的内部C．双击该控件D．双击窗体参考答案：B您的答案：B6、确定一个控件在窗体上的位置的属性是（）。
A．Width或HeightB．Width和HeightC．Top或LeftD．Top和Left参考答案：D您的答案：D7、在窗体上面画一个名称为Text1的文本框，然后编写如下的事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)......End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是（）。
A．单击鼠标B．双击文本框C．鼠标滑过文本框D．按下键盘上的某个键参考答案：D您的答案：D8、为了装入一个VB应用程序，应当（）。
A．只装入窗体文件(.frm)B．只装入工程文件(.vbp)C．分别装入工程文件和标准模块文件(.bas) D．分别装入工程文件、窗体文件和标准模块文件9、当窗体最小化时缩小为一个图标，设置这个图标的属性是（）。
A．MouseIconB．IconC．PictureD．MousePoint参考答案：B您的答案：B10、为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（）。