青岛科技大学vb答案实验一
青岛科技大学VB上机答案-实验一
实验一 VB环境和简单应用程序设计（4个学时）一、实验目的1.熟悉Visual Basic集成开发环境的使用。
2.掌握建立、编辑和运行简单的Visual Basic应用程序的全过程。
3.掌握窗体对象的属性、事件和方法。
二、实验内容1. 在VB的集成开发环境中实现如下的操作：1）、将“标准”工具栏去掉后再添加上，将“编辑”工具栏添上再去掉。
2)、分别利用“菜单”和“工具栏”中的命令打开“属性窗口”、“工程资源管理器窗口”3）、将“窗体布局窗口“的”启动位置“设置成“手工”。
4)、在工具箱中任意添加一个Active X 控件。
5）、在工程1中增加两个窗体：Form1、Form26）、在工程1中增加两个标准模块：Module1 、Module27）、在工程1中增加一个类模块：Class18）、在工程资源管理器中将Form2、Module2 删除。
9）、在在工程资源管理器中利用“切换文件夹”按钮隐藏或显示对象的文件夹10）、将代码窗口中的字体大小改为18号字。
2．设计一个窗体，窗体内有1个文本框和3个命令按钮控件。
要求：当按“显示”按扭时，在文本框内显示“欢迎来到青岛科技大学！”一串红色、四号、隶书字符串。
当按“清除”按钮时，清除文本框内全部信息；当按“退出”按钮时，结束程序运行。
1) 创建界面（将设计好的界面截下来粘贴在下面）3)代码设计Private Sub Command1_Click()Text1.Text = "欢迎来到青岛科技大学!" Text1.ForeColor = vbRedText1.FontSize = 14Text1.FontName = "黑体"End SubPrivate Sub Command2_Click()Text1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub4)调试过程记录（错误情况及改正方法，不得少于三条）（一）在进行“显示”指令设置时由于不清楚指令代码，导致指令编写错误。
VB实验教材的实验与习题答案
VB实验教材的实验与习题答案第一章VB开发环境与VB概述习题答案习题一、选择题第二章常用控件与界面设计习题答案习题一、选择题第三章实验与习题实验实验3_1…算术运算Private Sub Command1_Click()Const a As Single = 3, b As Single = 2, c As Single = -1, d As Single = 6Dim x As Single, y As Single, z As Single, m As Singlex = 2: y = 1: z = 1: m = 1List1.ClearList1.AddItem a / (b + c / b)List1.AddItem (x + Sqr(x ^ 2 + 1)) ^ (1 / 3)List1.AddItem ((2 * y) / (a * x + b * y) * (a * x - b * y))List1.AddItem 1 + 1 / (1 + 1 / m)List1.AddItem 1 / 2 * (d / 3) ^ (2 * x)List1.AddItem Log(y + Cos(x) ^ 2)List1.AddItem Abs((Exp(x) + Sin(x) ^ 3) / (x + y))List1.AddItem Log((Exp(x * y) + Abs(1 / Tan(z) + Cos(x) ^ 3)) / (x + y - z))List1.AddItem Sin(45 * 3.1415 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1) List1.AddItem Log(a) / Log(b)End Sub…关系运算Private Sub Command2_Click()List1.ClearList1.AddItem Mid("Visual Basic", 1, 12) = Right("Language Visual Basic", 12) List1.AddItem "ABCRG" >= "abcde"List1.AddItem Int(134.69) >= CInt(134.9)List1.AddItem 78.9 / 32.77 <= 97.5 / 43.87 And -45.4 > -4.98 List1.AddItem Str(32.345) = CStr(32.345)End Sub…逻辑运算Private Sub Command3_Click()Dim x As Integer, y As IntegerDim C1 As Integer, C2 As Integer, C3 As IntegerC1 = 70: C2 = 80: C3 = 90x = 9: y = -2List1.ClearList1.AddItem x + y < 10 And x - y > 0List1.AddItem (x% >= 0 And y% >= 0) Or (x% < 0 And y% < 0)List1.AddItem x = 0 Xor y = 0List1.AddItem C1 + C2 + C3 >= 255 Or C1 > 90 And C2 > 90 And C3 > 80 End Sub实验3_2略实验3_3略实验3_4…零售结算Private Sub Command1_Click()Dim dj As Single, sl As Single, je As Single, n As IntegerLabel1.Caption = "金额："dj = InputBox("请输入商品的单价：", "单价框")sl = InputBox("请输入商品的数量：", "数量框", 1)je = dj * sln = MsgBox("共计金额=" & je, vbOKCancel + vbInformation, "结果") If n = vbOK Then Label1.Caption = "金额：" & Str(je) & "元"End Sub…产生随机数Private Sub Command2_Click()Dim m As Integer, n As IntegerDim x1 As Integer, x2 As Integer, x3 As Integerm = V al(Text1.Text): n = Text2.TextRandomizex1 = Int(Rnd * (n - m + 1) + m)x2 = Int(Rnd * (n - m + 1) + m)x3 = Int(Rnd * (n - m + 1) + m)Label4.Caption = "结果为：" & Str(x1) & Str(x2) & Str(x3)End Sub…求逆序数Private Sub Command3_Click()Dim a As Integer, h As Integer, t As Integer, n As IntegerRandomizea = Int(Rnd * (999 - 100 + 1) + 100)h = Mid(CStr(a), 1, 1)t = Mid(CStr(a), 2, 1)n = Right(CStr(a), 1)Label5.Caption = a & "-->" & Format(n * 100 + t * 10 + h, "000")End Sub实验3_5略习题选择题1-20: DBBDB DDBCA DDDCD DB A DB21-40: DCDAA B_ACA BCADA B_BCD41-60: BCBDC CADBA CBDDD ABAAA61-80:BBCAB BDAAA CBBDD CBDAD81-89:CBDBB BADC填空题1、2 -32768~327672、整型长整型单精度双精度3、0 False “”4、Chr(Int(Rnd*(Asc(“L”)-Asc(“C”))+Asc(“C”)))x>0 And y>0 Or x<0 And y<0c>=”a” And c<=”z” Or c>=”A” And c<=”Z”x>=10 And x<20x<z<="">5、False2TrueFalseTrueTrueTrueTrue6、18820010068.568765547、a=1 b=1a=2 b=1a=3 b=1a=4 b=18、Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400 =09、He Said, “Good morning”.10、EDEF11、(A>0 And A<>Int(A)) And (B<0 And B<>Int(B))12、a+b+c+d(a+b+c+d)/4sumaver13、(f-2*h)/2(4*h-f)/2简答题1、略2、Private Sub Form_Click()Const g = 9.8Dim V0 As Single, t As SingleDim S As SingleV0 = InputBox("请输入V0的值：")t = InputBox("请输入时间t的值：")S = (1 / 2) * g * t ^ 2 + V0 * tMsgBox ("位移量为：" & S)3、Private Sub Command1_Click()Dim l As Single, w As Single, h As Single Dim s As Singlel = Text1.Textw = Text2.Texth = Text3.Texts = (l * w + l * h + w * h) * 2Label1.Caption = sEnd Sub第四章选择分支与循环实验答案实验4-1方法一：x<=5 ; y方法二：Is<=2 ;Case Else实验4-2Shape1.BackColor=vbRed;Inter=15;Inter=Inter-1;Inter;实验4-3b<c< p="">b=aa=k实验4-4方法二：s*n ; t/s<10^-5实验4-5方法一:m>=10^-4 ; (-1)^(n+1)*m实验4-6x2=x3 ; <10^-6实验4-7i+2*j+5*k=10 ; n实验4-9题目一：a) 5b)i=16 p=12 n=5c)i=9 p=8 n=1题目二：120 10实验4-10N=1 ；S=N& "*3 " & "+1 "实验4-11Len(st); Ch=Lcase(ch) ; Case Else ; Mid(Char,I,1)&St 实验4-12i\100 ; (i Mod 100)\10习题一、选择题1．C 2. C 3.A 4. D 5.A 6. B 7. B 8. D 9. B 二、填空题1．Is=0 ; 1 To 10 ; Is >102. 93. 3 ; 4 154. this is a book ;This Is A Book5. 3 ; 3 ; 3 56. 32 07. 48. 15 19. 1 ; 401 ;10410. 1 2 3 ;1 3; 111. (3)12. 2 0 2413. 10 1414. BAABC CBAABC15. X Mod P=0 ; X=X+1 ;Find=False16. abs(t)<10^(-7) ; s+t17. Mid(n,1,1)=Mid(n,2,1) And Mid(n,3,1)=Mid(n,4,1) S=S+118. Mid(n,i,1)>Mid(n,i+1,1)19. "输入n";N/I=0 ;Print I</c<>。
vb实验报告(答案)
Print "数理化"
End Sub
Private Sub Cmd2_Click()
Print "政史地"
End Sub
心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）
A. Text1.MaxLength = 0 B. Text1.Enabled = False
C. Text1.Visible = FalseD. Text1.Width = 0
5、设置命令按钮的属性时，只有将（A）属性设置为1，Picture属性才有效，否则无效。
A、StyleB、CaptionC、EnabledD、Default
试验报告（1）
院（系）：课程名称：日期：
班级
学号
实验室
专业
姓名
计算机号
实验
名称
VB环境的熟悉与应用
成绩评定
所用
软件
Visual Basic 6.0
教师签名
实
验
目
的
或
要
求
1．熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程。
2．初步了解几个常用控件的使用方法。
实
验
步
骤
、
心
得
体
会
1、在vb中____C_____被称为对象。
10、确定一个控件在窗体上位置的属性是__Left_______和___Top______。
11、窗体边框类型的默认值是___2___。
9、Visual Basic集成开发环境主要窗口包括__窗体设计窗口；代码设计窗口；_属性窗口；_工程资源管理器窗口_；_工具箱窗口。
大学计算机VB实验答案
计算机VB实验内容实验二1. 《实践指导》P10，实验1，设计一个加法器程序（请参考本次实验中实例2）。
（程序实际运行效果可参考程序“Prg3.exe” ）保存要求：(1)在lab02文件夹中新建子文件夹“prg3”，用于保存本题的程序；(2)将本题的工程文件命名为“project3.vbp”，窗体文件命名为“form3.frm”。
注：该题的第5项要求中关于“同时第一个文本框获得焦点”部分不要求实现过程Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = a + bLabel2 = cEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Label2 = ""End Sub2. 编写一个标签变化程序（请参考本次实验中实例题1来完成，如下图1所示）（程序实际运行效果可参考程序“Prg4.exe” ）保存要求：(1)在lab02文件夹中新建子文件夹“prg4”，用于保存本题的程序；(2)将本题的工程文件命名为“project4.vbp”，窗体文件命名为“form4.frm”。
设计要求：(1)单击窗体（Form1），则窗体打印输出文字“你点击了窗体”（如下图2所示）(2)单击按钮Command1，则在Label1中显示“你点击了按钮Command1，请进入”，字体大小15磅，字体为宋体（如下图3所示）(3)单击按钮Command2，Label1显示“你点击了按钮Command2，请离开”，字体大小25磅，字体为黑体（如下图4所示）（图1）（图2）（图3）（图4）过程Private Sub Command1_Click()Label1.FontSize = 15Label1.FontName = "宋体"Label1 = "你点击了按钮Command1，请进入"End SubPrivate Sub Command2_Click()Label1.FontSize = 25Label1.FontName = "黑体"Label1 = "你点击了按钮Command2，请离开"End SubPrivate Sub Form_Click()Form1.Print "你点击了窗体"End Sub实验三二、设计题1．《实践指导》P20，实验3。
VB实验报告(含答案)
实验报告课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____实验一 VB环境和创建一个简单的VB程序一．实验目的：1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。
程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图所示。
图实验1-1 运行界面三．实验结果：对象属性设置对象属性属性值说明caption我的第一个vb程序窗体Form1caption请输入姓名标签Label1text““文本框Text1caption显示命令按钮Command1caption清除命令按钮Command2四．实验思考：1.标签label控件设置的属性代码有哪些=“请输入姓名”=24=True2.两个按钮所使用的是什么事件代码分别是什么Private Sub Command1_Click()=“姓名”实验二简单程序设计数据类型及常用内部函数的简单应用一．实验目的：1．掌握Visual Basic数据类型的基本概念。
2．掌握用Visual Basic的各种运算符及表达式。
3．学习使用Visual Basic内部函数和数据输入、输出方法。
4．掌握命令按钮、文本框和标签。
5．设计顺序程序。
二．实验内容：1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。
转换公式是：C= 5 / 9(F - 32)。
F为华氏温度，C为摄氏温度。
实验报告簿（程序设计基础VB答案）
实验日期_____________________实验名称：实验一常用标准控件一【实验目的与要求】1.掌握Visual Basic的启动与退出。
2.熟悉Visual Basic的集成开发环境。
3.掌握在窗体中放置控件的方法。
4.掌握在“属性窗口”中设置控件属性的方法。
5.掌握在“代码编辑器”窗口中输入程序代码的方法。
6.掌握工具栏上启动按钮、结束按钮的使用方法。
7.掌握标签、文本框、命令按钮、列表框等控件的使用方法。
【实验内容与步骤】实验1.1.1 标签的使用(一)1.题目与要求：在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求：1)标签的内容为“计算机等级考试”；2)标签可根据显示内容自动调整其大小；3)标签带有边框，且标签内容显示为三号字。
2.实验步骤1)界面设置：在名称为Form1的窗体上放置一个标签控件Label1；2)属性设置（请将表格补充完整）表1.1.1 对象属性文件名为sjt1.frm。
实验1.1.2 标签的使用(二)1.在名称为Form1的窗体上画一个名称为 Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示“等级考试”，并使标签的外观如图所示。
2．属性设置（请将表格补充完整）表1.1.2 对象属性sjt2.frm。
实验1.1.3 文本框的使用1.题目与要求：在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。
请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中。
程序中不得使用任何变量。
2.实验步骤1)界面设置：在名称为Form1的窗体上放置两个文本框；2)属性设置表1.1.3 对象属性Private Sub T1_Change()T2.Text=T1.Text (T2=T1)End Sub3)保存文件：存盘时必须存放在C:\VB\Sy01文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
VB实验报告答案 txt
End Sub
方法二
Private Sub Command1_Click()
x = InputBox("请输入弧度数值", "弧度转换", 0)
xx = Val(x)
Dim x!, a!, aa%, b!, bb%, c!, cc$
x = Val(Text1)
a = x * 180 / 3.14
aa = Int(a)
b = (a - aa) * 60
bb = Int(b)
c = (b - bb) * 60
cc = Format(c, "#.000")
If x > y Then
t = x: x = y: y = t
End If
End If
Label1 = x & Space(5) & y & Space(5) & z
End Sub
2-4
方法一
Private Sub Command1_Click()
x = Val(InputBox("请输入上网时间:"))
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
青岛科技大学VB实验题一
实验八 综合实验（4个学时）一、实验目的1．掌握常用控件的使用。
2．掌握下拉菜单的设计方法。
3．掌握创建多重窗体程序的有关技术。
4．了解常用事件及过程。
5．综合运用所学的知识，编写具有可视化界面的应用程序。
二、实验内容利用菜单、对话框、选择结构语句、循环结构语句、多窗体、常用控件、过程等知识点进行综合程序设计。
具体要求：1．在主窗体上，设计下拉式菜单：数值计算实验加载退出n! 成绩统计问题（5-1）1+3+…+99 输出星花矩阵（6-1）滚动字幕（7-4）2．分别单击菜单项n!( 要求从键盘键入n的值)，1+3+5+….99时，要求在主窗体中设置Label1显示题目，Label2显示结果。
1）Form1中的代码设计如下：Option ExplicitPrivate Sub Form_Load()Label1.Caption = ""Label2.Caption = ""Label3.Caption = ""End SubPrivate Sub mnu1_Click()Dim a As Integer, i As Integera = 0For i = 1 To 99 Step 2a = a + iNext iLabel3.Caption = "1+3+…+99=" & aEnd SubPrivate Sub mnucheng_Click()Form11.ShowEnd SubPrivate Sub mnuexit_Click()EndEnd SubPrivate Sub mnugun_Click()Form13.ShowEnd SubPrivate Sub mnun_Click()Dim n As Integer, i As Integer, s As Doublen = Val(InputBox("请输入n的值"))s = 1For i = 1 To ns = s * iNext iLabel1.Caption = n & "!="Label2.Caption = sEnd SubPrivate Sub mnuxing_Click()Form12.ShowEnd Sub2）将从键盘上输入n = 9时的运行界面剪切下来粘贴在下面。
vb实验报告答案
vb实验报告答案VB实验报告答案引言：Visual Basic（VB）是一种基于事件驱动的编程语言，广泛应用于Windows平台的软件开发。
本文将就VB实验报告中的几个问题进行解答和讨论，以帮助读者更好地理解和掌握VB编程。
一、VB的特点和应用领域VB作为一种高级编程语言，具有易学易用的特点。
它采用了面向对象的编程思想，提供了丰富的控件库和强大的图形用户界面设计能力，使得开发者可以快速构建出功能完善的Windows应用程序。
VB广泛应用于企业管理系统、数据库应用、游戏开发等领域。
二、VB的开发环境和工具VB的开发环境主要包括Visual Studio和Visual Basic Express两种。
Visual Studio是微软提供的一套集成开发环境（IDE），包含了VB的开发工具和调试器，可用于开发各种类型的应用程序。
而Visual Basic Express则是一款免费的VB开发工具，适合初学者入门使用。
三、VB的基本语法和数据类型VB的基本语法与其他编程语言相似，包括变量声明、条件语句、循环语句等。
VB中的数据类型包括整型、浮点型、字符串型等，开发者可以根据需求选择合适的数据类型来存储和处理数据。
四、VB中的控件和事件VB提供了丰富的控件库，如按钮、文本框、标签等，开发者可以通过拖拽控件到窗体上的方式来构建用户界面。
同时，VB也支持事件驱动编程，即通过响应用户操作或系统事件来触发相应的代码执行。
开发者可以为控件添加事件处理程序，以实现交互功能。
五、VB中的数据操作和数据库连接VB提供了强大的数据操作功能，可以通过ADO（ActiveX Data Objects）技术来连接和操作数据库。
开发者可以使用SQL语句来执行数据库查询、插入、更新和删除等操作，实现对数据的管理和处理。
六、VB的调试和错误处理在开发过程中，调试和错误处理是非常重要的环节。
VB提供了调试工具，如断点调试、单步执行等，可以帮助开发者定位和修复程序中的错误。
VB实验参考答案
VB实验参考答案VB实验参考答案VB（Visual Basic）是一种常用的编程语言，广泛应用于软件开发领域。
在学习VB的过程中，进行实验是非常重要的一部分。
本文将为大家提供一些VB实验的参考答案，帮助大家更好地理解和掌握VB编程。
实验一：简单的计算器程序要求：编写一个简单的计算器程序，能够实现基本的加减乘除运算。
参考答案：```vbPrivate Sub btnCalculate_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If rbAdd.Checked Thenresult = num1 + num2ElseIf rbSubtract.Checked Thenresult = num1 - num2ElseIf rbMultiply.Checked Thenresult = num1 * num2ElseIf rbDivide.Checked ThenIf num2 <> 0 Thenresult = num1 / num2ElseMsgBox("Error: Division by zero!")End IfEnd IftxtResult.Text = resultEnd Sub```实验二：学生成绩管理系统要求：编写一个学生成绩管理系统，能够实现学生信息的录入、查询和统计功能。
参考答案：```vbPrivate Sub btnAdd_Click()Dim name As StringDim score As Integername = txtName.Textscore = CInt(txtScore.Text)lstStudents.Items.Add(name & " - " & score)End SubPrivate Sub btnSearch_Click()Dim searchName As StringDim index As IntegersearchName = txtSearch.Textindex = lstStudents.FindString(searchName)If index <> -1 ThenlstStudents.SelectedIndex = indexElseMsgBox("Student not found!")End IfEnd SubPrivate Sub btnStatistics_Click()Dim totalScore As IntegerDim averageScore As DoubleDim count As IntegerFor Each item As String In lstStudents.ItemsDim score As Integer = CInt(item.Split("-")(1).Trim()) totalScore += scorecount += 1NextaverageScore = totalScore / counttxtTotalScore.Text = totalScoretxtAverageScore.Text = averageScore```实验三：简单的图书管理系统要求：编写一个简单的图书管理系统，能够实现图书信息的录入、查询和删除功能。
VB电脑课实验-答案汇总
学院专业(班级)姓名学号任课教师目录实验一 Visual Basic编程环境和控件 (1)实验二窗体及基本控件使用 (7)实验三顺序结构程序设计 (14)实验四选择结构程序设计 (20)实验五选择结构程序设计（续） (25)实验六循环结构程序设计 (33)实验七循环结构程序设计（续） (38)实验八常用控件 (42)实验九常用控件（续） (51)实验十数组 (56)实验十一数组（续） (65)实验十二顺序文件 (70)实验十三过程 (77)实验十四过程（续） (84)实验十五菜单及通用对话框 (90)实验十六随机文件（选作） (94)附录:VB统考编程题（精选） (98)期末自测题（A卷） (108)期末自测题（B卷） (113)实验报告的整理与编写上机实验结束后，编写实验报告是软件工程的要求，也是培养科学作风的重要途径，实验报告的主要内容包括：（1）实验目的实验作为教学的一个重要环节，其目的在于更深入地理解和掌握课程教学中的有关基本概念，应用基本技术解决实际问题，从而进一步提高分析问题和解决问题的能力。
因此，当我们着手做一个实验的时候，必须明确实验的目的，以保证达到课程所指定的基本要求。
在写实验报告时，要进一步确认是否达到了预期的目的。
（2）实验内容实验的目的是要通过解决一些具体问题来达到的。
在书中，每一部分都安排了多个实验题目，根据教学安排、进度、实验条件、可提供的机时、学生的基础等因素，可以选择其中的几个或全部。
因此，在实验报告中，实验内容是指本次实验中实际完成的内容。
在每一个实验题目中，一般都提出一些具体要求，其中有些具体要求是为了达到实验目的而提出的，不仅有具体的实验题目，还应包括具体要求。
（3）程序设计说明包括算法设计思路，必要的流程图，界面设计说明、使用模块及变量的说明等。
（4）源程序代码Visual Basic的源程序包括界面设计和代码。
程序设计的产品是程序，它应与算法或流程图相一致，要与用户界面设计一致。
vb实验报告标准答案
竭诚为您提供优质文档/双击可除vb实验报告标准答案篇一：Vb郭贤海实验报告及答案实验1.1设计一个程序，程序运行的初始界面如图1-1所示。
当单击“显示”按钮时，在文本框中显示“欢迎使用Vb！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。
图1-1程序运行初始界面图1-2单击“显示”按钮后的程序界面实验1.2设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。
同时要求：（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）；（3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”按钮变为不可用（图1-4）。
图1-3第1题的程序运行初始界面图1-4单击“改变文字”按钮后的程序界面图1-5单击“隐藏”按钮后的程序界面四、实验原始记录实验1.1程序的界面设计。
（可以是多张主要的图。
下面的图要替换成你们自己设计的图。
如何取图？设计好界面，按“printscreensysRq”键，打开画图软件，单击“编辑|粘贴”命令，利用菜单栏下方的“选定”功能，选中窗体，按“ctrl+c”键，然后选中下面的实验样例图，按“ctrl+V”键，替换掉）程序代码。
privatesubcommand1_click()Text1.Text="欢迎使用Vb！"endsubprivatesubcommand2_click()Text1.Text=""endsubprivatesubcommand3_click()endendsub实验1.2程序的界面设计。
（可以是多张主要的图。
下面的图要替换成你们自己设计的图）程序代码。
privatesubcommand1_click()Label1.Visible=Truecommand2.enabled=Truecommand1.enabled=Falseendsubprivatesubcommand2_click()Label1.Visible=Falsecomma nd2.enabled=Falsecommand1.enabled=Trueendsub privatesubcommand3_click()Label1.caption="你好，张三！"command3.enabled=Falseendsub五、实验结果及分析实验1.1运行结果。
vb程序设计学习与实验指导书答案(包含实验答案) (1)
VB学习与实验指导测试题参考答案第一章一、选择题1 A2 B3 D4 D5 B6 B7 C8 A9 C 10 A 11 A 12 C 13 C 14 D 15 C16 A 17 B 18 D二、填空题1 事件2 对象按钮3 工程4 视图属性窗口5 窗体编辑器第二章一、选择题1 A2 C3 C4 D5 C6 D7 A二、填空题1 类2 事件 34 5 6 Name（名称）第三章一、选择题1 A2 A3 CD4 C5 A6 C7 C8 A9 D 10 D 11 C 12 C 13 A 14 D 15 D 16 A 17 C 18 B 19 B 20 D 21 B 22 D 23 A 24 B 25 C26 C 27 B 28 D 29 B二、填空题1 (a*sin(30*3.14/180)+c*log(b))/((abs(d)+1)*(e+f))+12 mod3 x*y>0 and x=fix(x) and y=fix(y)4 y mod 4=0 and y mod 100<>0 or y mod 400=05 int(rnd*90)+106 0 “”7 空格8 6,845.309 (1) 8 (2) 1(3) abcd (4) 出错（类型不匹配）(5) false (6) 29/06/2008 (7) I like VB (8) 4(9) 4 4 (10) 3 4(11) 10 -10 (12) -1(13) aa (14) 3(15) 0 (16) 1(17) C (18) 5(19) 4 (20) 34.54 (21) 中国(22) 上海(23) VISUAL BASIC (24) visual basic10 (1) x<-100 or x>100 (2) a=int(a) and b=int(b) anda*b>0(3) x<=y or x>=z (4) a>0 and fix(a)<>a (5) a = 0 Xor b = 0 (6) len(s)<10(7) UCase(s) = s(8) Left(s, 1) = "a" And Right(s, 1) = "a"(9) instr(s,"a")<>0(10) Trim(s) = s(11) Date() = #8/8/2008#(12) Weekday(date) = 2第四章一、简单填空1 Randomize2 N=int(rnd*90)+103 M=(int(rnd*91)+10)/104 Exit for5 Exit do二、读程序写结果1 150 122 22 23 -13 5 3 04 20 40 60三、程序填空1Mid(s,I,1)c>=”A” and c<=”Z”c>=”a” and c<=”z”c>=”0” and c<=”9”212n\2n mod i=0sum+in=sum31000Cstr(n)Cstr(m)Right(s2,len(s1))=s141002002n-1exit forcount+1cound mod 5=0print5Sum=1A*x*x/((2*n-1)*(2*n))Sum+aAbs(a)<=1e-7第五章一、选择题1 B2 C3 C4 A5 C6 A7 D8 B9 C 10 A11 B 12 D 13 A二、读程序写结果1 120 362 10 31 73 26 14 26三、程序填空1 A(I,j); Picture1.print A(I,1)1J“第” & I & “行最大数是” & maxdata & “,第” maxj & “列”2 Text1.text & a(i) KPreserve b(k)B(k)=a(i)3 Sqr(n-m)=int(sqr(n-m)) Redim preserve b(k)NA(m) & b(m)4 Int(rnd*51)+501B(i)+1第六章一、判断题1 √2 √3 ×4 ×5 √6 √7 √8 √9 √10 √11 ×12 √13 √14 ×15 √16 √17 √18 √19 √20 √二、选择题1 A2 C3 A4 A5 A6 D7 B8A四、读程序写结果1 x=2 y=2 m=22 94 5 9 273 50 264 5 64 55 7 14 11 22 15 306 29 29 37 1225第七章一、选择题1 B2 B3 D4 C5 B6 D7 A8 D9 B 10 B 11 C 12 A 13 B 14 C 15 D 16 C 17 A 18 A 19 B 20 C21 B 22 C 23 B 24 B 25 B二、简单填空1 LargeChange2 Timer.Enabled = False3 AddItem4 格式5 Picture6 Enabled7 Load8 SetFocus9 MultiLine10 ms三、程序填空1 InputboxTimer1_timer Text2.textLabel3.caption=””2 Form_load List1_dblclick List1.listindex List2_dblclick List2.listindex3 (3)TextList1.textRemoveitem 10-2*i-1第八章一、选择题1 D2 B3 C45 C二、简单填空1 popupmenu23 visible4 连接符-5第九章一、选择题1 C2 C3 B4 B5 B6 B7 C8 B二、简单填空1 Eof2 记录字节3 大小4 复制5 Drive三、程序填空1 For inputDo until eof(1) Line input #1,data2 Input as #1#1,strClose #1综合测试题一一、选择题1 A2 C3 D4 B5 D6 A7 A8 C9 A 10 C二、填空1 Int(x)=x and int(y)=y and x*y<02 YAW oureelcome3 5 15 1514 11 19 135 412 196 n nn onn7 until abs(t)< =eps (-1)^nt*x*x/n8 K=1c(k)=pP=””List1.additem c(i)9 (Byval a as integer) as boolean i>int(a/2)judge(p)10 FalseText1.text=text1.text & “(“ & m & “,” & n & ”)” & vbcrlf M=kN mod i=0综合测试题二一、选择题1 A2 B3 C4 A5 C6 C7 C8 B9 C 10 A二、填空1 (Int(51*rnd)+100)/1002 23456 67 8103 W WW 84 2 33 74 4 125 GCD(21,3)=3 GCD(45,24)=36 47 23 117 Instr(s,”,”) Mid(s,n+1) A(3)=val(s)8 m+val(mid(cstr(n),i,1))mand total(p2) mod 6=0 “(“ & p1 & “,” & p2 & “)”9 (a,t1,t2)m=a(i,1)a(I,j)>m then m=a(I,j) s=small(1):m=large(1)10 Call eu(n+2,f2)Whle i<nN mod j=0 and i mod j=0P=p+1下篇实验教程实验2 Visual Basic 变量、函数与表达式的使用实验2-1 算术运算符的使用13178332262-2-22007-10-153 2.857143 2.85714285714286实验2-2 字符运算符的使用20071020071020172007-10-10102007-10-20出错，类型不匹配实验2-3 关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4 逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5 常用函数的使用3.14 3.147.389056098930651 -1 .999999998205103 4-1 1 0.70554755825 251250 0A a65 9748 688 -98 -89 -9aaa 4.5 aaa4.516 5Visua 6.0sua Basic Basic 6.0abcde EFGBasic Basic BasicVisual Basic 6.0 Basic8 8aaa dd2011-3-152011-3-15 14:35:5215320113001.731.731.7317.32E-010173%实验3 算法基础及程序控制结构实验3-1 三个数的交换A=CC=BB=TBC实验3-2 求周长和面积Const PI=3.14159262*PI*RPI*R*RPicture1.ClsFormat(L, ".00")Format(M, ".00")实验3-3 求分段函数的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text = ""Text2.Text = ""实验3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b ^ 2 - 4 * a * c"x1=" & (-b + Sqr(delt)) / (2 * a)"x2=" & (-b - Sqr(delt)) / (2 * a)Text2.Text = ""Text3.Text = ""End实验3-5 判断素数N Mod k = 0k=NN Mod i=0k=2实验3-6 求最大公约数和最小公倍数M<NL=ML=NM Mod k = 0 And N Mod k = 0Text3.Text = kExit ForM>NL=ML=Nk Mod M = 0 And k Mod N = 0Text4.Text = kExit For实验3-7 判断升序数、降序数CStr(N)Len(S) – 1Mid(S, k, 1) >= Mid(S, k + 1, 1)k = Len(S)N = Val(Text1.Text)S = CStr(N)For k = 1 To Len(S) - 1If Mid(S, k, 1) <= Mid(S, k + 1, 1) Then Exit For Next kk = Len(S)实验3-8 判断回文数Len(s)\2-1Mid(S, k, 1) <> Mid(S, Len(S) - k + 1, 1)k = Len(S) \ 2Mid(S, k, 1) + S1S = S1实验3-9 求级数的值Val(Text1.Text)1x ^ ns * nt / s <= 10 ^ -6Text2.Text = y实验3-10 查找数字串并求和Text1.Text = ""Text2.Text = ""List1.ClearText1.TextFalseWhile Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Flag = Truek = k * 10 + Mid(s, i, 1)i = i + 1Flag = Truesum + kText2.Text = sum实验3-11 随机产生20个奇数Int((99 - 10 + 1) * Rnd) + 10a Mod 2 = 1n Mod 5 = 0Picture1.Cls实验3-12 加密解密Chr(Asc("a") + (Asc(c) - Asc("a") + 3) Mod 26)c = Chr(Asc("A") + (Asc(c) - Asc("A") + 3) Mod 26) c & s2Text2.TextLen(s2)Mid(s2, i, 1)c = Chr(Asc("a") + (Asc(c) - Asc("a") + 23) Mod 26) c = Chr(Asc("A") + (Asc(c) - Asc("A") + 23) Mod 26) c & s1s1Text1.Text = ""Text2.Text = ""实验3-13 统计单词个数Text1.TextMid(s, i, 1) <> " " And i <= Len(s)i = i + 1Mid(s, start, i - start)nText1.Text = ""List1.Clear实验4 数组的使用实验4-1 一维数组的产生及输出i = 1 To 20Int((9 - 0 + 1) * Rnd + 0)i = 1 To 20Print a(i);Printi = 1 To 20Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.Printi = 1 To 20Text1.Text & Space(2) & a(i)If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf v In aIf i Mod 5 = 0 Then Picture2.Print实验4-2 选手得分Int((50 - 10 + 1) * Rnd + 10) / 10i = 1 To 6sum = sum + score(i)max = score(1)min = score(1)score(i) > max Then max = score(i)score(i) < min Then min = score(i)(sum - max - min) / 4实验4-3 产生10个互不相同的整数Int((999 - 10 + 1) * Rnd + 10)t Mod 10 = 5Then Exit Forn= n + 1a(i) = tFor i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext i实验4-4 统计数字出现的次数IsNumeric(S) = FalseExit SubLen(S)c >= "0" And c <= "9"A(c) = A(c) + 1A(k) <> 0m = m + 1实验4-5 排序1 To 10Int((99 - 10 + 1) * Rnd + 10)Text1.Text & A(n) & " "1 To 9i + 1 To 10A(i) > A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) > A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j) = T1 To 10Text3.Text = Text3.Text & A(i) & " "10T = A(i)ji - 1k + 11 To 10Text4.Text = Text4.Text & A(i) & " "实验4-6 二维数组的产生及输出1 To 41 To 5Int((9 - 0 + 1) * Rnd + 0)1 To 41 To 5Print A(i, j);Print1 To 41 To 5Picture1.Print A(i, j);Picture1.Print1 To 41 To 5Text1.Text = Text1.Text & A(i, j) & " "Text1.Text = Text1.Text & vbCrLf实验4-6 查找最大和最小元素及其位置1 To 31 To 4A(i, j) = Int((99 - 10 + 1) * Rnd + 10)Picture1.Print A(i, j);Picture1.PrintA(1, 1)， 1， 1A(1, 1)， 1， 1A(i, j)ijA(i, j) < minA(i, j)ij"最大元素" & "A(" & maxi & "," & maxj & ")=" & max "最小元素" & "A(" & mini & "," & minj & ")=" & min实验4-7 矩阵转置Dim A() As Integer"请输入N的值"ReDim A(N, N) As IntegerFor i = 1 To NFor j = 1 To NA(i, j) = Int((99 - 10 + 1) * Rnd + 10)Text1.Text = Text1.Text & A(i, j) & " "Next jText1.Text = Text1.Text & vbCrLfNext it = A(i, j)A(i, j) = A(j, i)A(j, i) = tFor i = 1 To NFor j = 1 To NText2.Text = Text2.Text & A(i, j) & " "Next jText2.Text = Text2.Text & vbCrLfNext i实验5 过程实验5-1 孪生素数和降序素数Dim i As IntegerFor i = 2 To N - 1If N Mod i = 0 Then Exit FunctionNext iPrime = TrueDim a As IntegerDim b As Integera = N \ 10b = N Mod 10If a > b ThenDecNumber = TrueElseDecNumber = FalseEnd If10 To 100Prime(i) = True And Prime(i + 2) = TrueList2.AddItem i & "和" & i + 2DecNumber(i) = True And Prime(i) = TrueList3.AddItem i实验5-2 求多项式和k = 1a = f(x, k)S + ak = k + 1Single As SingleDim i As Integer, a As Singlea = (x + 1) / xFor i = 2 To ka = a * (x + i) / ((2 * i - 1) * x)Next ia实验5-3 进制转换Asc(C) - Asc("A") + 10Left(S, k - 1)Mid(S, k + 1)Change(Mid(S2, i, 1)) * N ^ (0 - i)T1 + T2Tran(8, S)Tran(16, S)Not (C >= "0" And C <= "7" Or C >= "A" And C <= "F" Or C = ".")实验5-4 Armstrong数i As Long, a As Long, b As LongCombo1.Text实验5-5Option Base 1Dim a(5) As IntegerDim b(5) As Integerb(i) = i * i + 1Text2.Text = Text2.Text & b(i) & " "1 To 51 To 5Gcd(a(i), b(j)) = 1Gcd = KExit For实验5-6Create(a)Output(a)Sort(a)Output(a)GetMaxMin(a, MaxData, MinData)MaxDataMinDataAverage(a)Int((99 - 10 + 1) * Rnd + 10)1 To UBound(a)a(i);a(i) > a(j)t = a(j)a(j) = a(i)a(i) = t2 To UBound(a)a(i) > MM = a(i)a(i) < NN = a(i)s = s + a(i)Average = s / UBound(a)实验6 界面设计实验6-1 用户登陆MsgBox "请登录！"PassWordInput=TxtPassW.TextUserIdInput=UserId And PassWordInput=PassWordCmdReset_Click实验6-2 学籍登记OptXb(0).Value = TrueList1.AddItem Space(4) & xh & Space(6) & xm & Space(6) & xb & Space(12) & xy & Space(16) & zy & Space(4)List1.RemoveItem List1.ListIndex实验6-3 字体格式设置Select Case OpFontCheck2.Value = 1OpColor = IndexOpFont = Index实验6-4 兴趣调查List1.AddItem ItemEndSelect Case IndexItem = Text1.Text实验6-5 调色板。
大学vb教材参考答案
⼤学vb教材参考答案第1章⼀.单项选择题1-5:DBCAC 6-10:ABCDC 11-15:BCCAB ⼆. 多项选择题1、ACDE2、BCE3、CD4、CE5、AE6、ACE7、ABCD三. 填空题1．事件驱动2．解释编译3．设计、运⾏和中断。
4．属性、事件和⽅法。
5．窗体单击（Form_Click）。
6．（第1个空取消），代码7． MyForm 。
要求复习：教材的例题：P7 例1-1实验教程的练习：P5 第1、2 题习题2参考答案（本章答案请同学们⾃⼰到机器上去验证）⼀．单选题1.①D，②D2.①A，②C3.A4.B5.B8.D9.B 10.B 11.A 12.A 13.B 14.A 15.B 16.B 17.B 18.A 19.B 20.A 21.B 22.B 23.D 24.A 25.B 26.B 27.A 28.B 29.C 30.A ⼆. 多项选择题1.A，B2.A，D3.4.C，D，E5.A，B，D，E6.A，B，C7.A,D,E8.B,C9.A，D，E 10. 11.A，D，E 12.A，B 13.A，B，D，E 14.B，D 15.C，D 16.A，C 17.A，D三. 填空题1、⑴sin(50*3.14/180)⑵(2+x*y)/(2-y^2)⑶a^2-(3*a*b/(3+a))⑷(x^3)^(1/8)+sqr(y^2+4*a^2/(x+y^3))2、int(rnd*(51)+50)3、⑴138 ⑵3 ⑶214 ⑷inchina ⑸70 (6)45 ⑺0第3章⼀．单项选择题1-5: C B D D B 6-10：C B D D A 11-15：A C C B C16-20：A B A A C 21-25：D B B C A 26：B 27：B 28：取消29：A 30：A 31：C⼆．多项选择题1． AC 2． ACE 3． ABCF 4． ABCDE 5. BD三．填空题1． $000, 124 。
VB实验报告(含答案)分解
课程名称_程序设计基础Visual Basic_
班级___________＿
姓 名_________
实验一VB环境和创建一个简单的VB程序
一．实验目的：
1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
5．设计顺序程序。
二．实验内容：
1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。转换公式是：C=5 / 9(F - 32)。F为华氏温度，C为摄氏温度。
2.用三种除法运算（/、\、Mod）做计算。
要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
a = Val(Text1.Text)
Dim C!,F!
F=val(inputbox(“输入华氏温度”))
C=5/9*（F-32）
Msgbox“对应的摄氏温度为：”& C
End Sub
2.用三种除法运算（/、\、Mod）做计算，说明三种除法的区别？
/：两个数相除
\：两个数整除
Mod：两个数相除，得余数
3.三种除法运算（/、\、Mod）做计算，Command1命令的单击事件的程序代码是什么？
Label1.Caption=“请输入姓名”
Label1.fontsize=24
Label1.fontbold=True
2.两个按钮所使用的是什么事件？代码分别是什么？
青岛科技大学信息工程 VB期末考试题库及答案
试卷方案：201105 Visual Basic 期末考试方案一、单项选择_共50题（选：20题*1’=20分）第1题以下有关对象属性的说法中，错误的是___________.A. 工具箱中的控件并不是VB 中所有的控件B. 若将Frame 的Enabled 属性设置为False ，则不能使用放置在Frame 里面的控件C. 对象的Name 属性在运行时不能改变D. 对象的所有属性都可以在属性窗口中设置第2题数学表达式 ||27sin 3y x e x +++的VB 算术表达式为_______ . A. Sin(27)+Sqr(x+Exp3)/(x+y)B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y)C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y)D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)第3题下列有关对象的叙述中,正确的是______A. 对象由属性，事件和方法构成B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置C. 对象的事件一定就是由VB 预先设置好的人工干预的动作D. 对象的方法是对象响应某个事件后执行的一段程序代码第4题表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___.A. 1B. -1C. –2D. –3第5题下列关于菜单的说法中,错误的是__________.A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件B. 菜单项不可以响应DblClick 事件C. VB6.0允许创建超过四级的子菜单D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled 属性为False 第6题以下关于数组的说法中,错误的是__________.A. 使用了Preserve 子句的Redim 语句，只允许改变数组最后一维的上界B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型C. Erase 语句的功能只是对固定大小的数组进行初始化D. Lbound 函数返回值是指定数组某一维的下界第7题设a=3,b=2,c=1,运行print a>b>c 的结果是____________.A. TrueB. FalseC. 1D. 出错以下说法不正确的是____________.A. 使用不带关键字Preserve 的ReDim 语句可以重新定义数组的维数B. 使用不带关键字Preserve 的ReDim 语句可以改变数组各维的上、下界C. 使用不带关键字Preserve 的ReDim 语句可以改变数组的数据类型D. 使用不带关键字Preserve 的ReDim 语句可以对数组中的所有元素进行初始化第9题在列表框List1中有若干列表项,可以删除选定列表项的语句是__________.A. List1.text=""B. List1.List(List1.ListIndex)=""C. List1.ClearD. List1.RemoveItem List1.ListIndex第10题数学表达式 |cos sin |)2(sin ln 2352x x x x e x -+-π对应的VB 表达式是__________. A. (e^(2*π*x-5)*Log(x)+(Sin(2x))^3)/Sqr(Sin(x)-Cos(x^2))B. (Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))C. (Exp(2*π*x-5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))D. e^(2*3.14159*x-5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))第11题以下有关数组参数的说明中，正确的是______A. 在过程中也可用Dim 语句对形参数组进行说明B. 动态数组作为实参时，可用ReDim 语句在过程中改变对应形参数组的维界C. 调用过程时，数组名不能作为实参D. 数组可以按地址传递也可以按植传递第12题下列有关过程的说法中,错误的是_____________.A. 在Sub 或 Function 过程内部不能再定义其它Sub 或 Function 过程B. 对于使用ByRef 说明的形参,在过程调用时形参和实参只能按传址方式结合C. 递归过程既可以是递归Function 过程,也可以是递归Sub 过程D. 可以像调用Sub 过程一样使用Call 语句调用Function 过程第13题要将焦点设置在某个控件上,以下四个选项中正确的是______.A. 只能使用鼠标直接点击控件B. 只能使用Tab 键将焦点移到该控件C. 只能在程序中调用该控件的SetFocus 方法D. A 、B 、C 三选项中涉及的方法均可使用第14题以下Case 语句中,能正确描述Y 的绝对值大于6的是______.A. Case Abs(Y)>6B. Case -6 To 6C. Case Not(-6 To 6)D. Case Is<-6,Is>6以下关于变量作用域的叙述中,正确的是____________.A. 窗体中凡用Private 声明的变量只能在某个指定的过程中使用B. 模块级变量只能用Dim 语句声明C. 凡是在窗体模块或标准模块的通用声明段用Public 语句声明的变量都是全局变量D. 当不同作用域的同名变量发生冲突时，优先访问局限性小的变量第16题以下关于数值常量的说法中,错误的是______A. 八进制数的表示方法是在数字前面加&OB. 十六进制数的表示方法是在数字前面加&HC. 在浮点运算中使用D 来分隔尾数和指数时，系统将把该数值作为单精度型数处理D. 32768是合法的数值常量第17题数学表达式 y x e x ++30sin 3对应的VB 表达式是___________.A. Abs(e^x+Sin(30)^3)∕Sqr(x+y))B. Abs(Exp(x)+Sin(30)^3)∕(Sqr(x+y))C. Abs(e^x+Sin(30*3.14159∕180)^3)∕(Sqr(x+y))D. Abs(Exp(x)+Sin(30*3.14159∕180)^3)∕Sqr(x+y))第18题下面的4个表达式中,有关_________个能够对Single 类型变量x(正数)的第3位小数正确地进行四舍五入计算. Format(x,″#.00″) Int(100*(x+0.005))/100 CInt(100*(x+0.005)/100 Fix(100*(x+0.005))/100A. 1个B. 2个C. 3个D. 4个第19题执行以下语句时,会出现错误提示的是__________.A. Print"2b3 " +12.5B. Print"12.5"+ 12C.Print"12.5" & 12.5D.Print"2e3"+12 第20题以下Case 语句含有错误的是___________.A. Case 0 To 10B. Case Is>10C. Case Is>10 And Is<50D. Case 3,5,Is>10 第21题下列语句中,正确的是__________A. Textl.SetFocusB. Forml.ClearC. Labell.SetFocusD. Listl.Cls第22题下列选项中,所包含的所有表达式能够将两位整数x 的个位数与十位数对调(如将78转换为87)的是_______________.①Val(Right(X,1)&Left(X,1)) ②Val(Right(Str(X),1)&Left(Str(X),1))③Val(Right(CStr(X),1)&Left(CStr(X),1)) ④Val(Mid(X,2,1)+Mid(X,1,1))A. ①②B. ②③C. ②④D. ①③④第23题以下关于子过程或函数的定义中,正确的是______A. Sub f1(n As String*1 )B. Sub f1(n As Integer)As IntegerC. Function f1(f1 As Integer)As IntegerD. Function f1(ByVal n As Integer)下列有关控件数组的说法中,错误的是______.A. 控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组B. 控件数组中的所有控件不得具有各自不同的属性设置值C. 控件数组中的所有控件共享同一个事件过程D. 控件数组中每个元素的下标由控件的Index属性指定第25题以下对数组参数的说明中,错误的是___________ .A. 在过程中可以用Dim语句对形参数组进行声明B. 形参数组只能按地址传递C. 实参为动态数组时，可用ReDim语句改变对应形参数组的维界D. 只需把要传递的数组名作为实参，即可调用过程第26题要向文件datal.txt添加数据,正确的文件打开命令是_____________.A. Open"datal.txt"For Output As #1B. Open"datal.txt"For Input As #1C. Open"datal.txt"For Append As #5D. Open"datal.txt" For Write As #5第27题下面有关数组处理的叙述中，正确的是__________.A. 在过程中使用ReDim语句可以改变动态数组数据的类型B. 在过程中，可以使用Dim 、Private和 Static语句来定义数组C. 用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数D. 不可以用Public语句在窗体模块的通用处说明一个全局数组第28题下面的表达式中,运算结果为True的是__________.A. "abcrd" <="ABCRD"B. Int(134.69) <=CInt(134.69)C. 3>2>1D. Mid("Visual",1,4)=Right("lausiV",4)第29题设计界面时,要使一个文本框具有水平和垂直滚动条,应先将其________属性置为True,再将ScrollBar属性设置为3.A. MultiLineB. AutoSizeC. AlignmentD. RightToLeft第30题下面有关数组的说法中,正确的是______A. 数组的维下界不可以是负数B. 模块通用声明处有Option Base 1，则模块中数组定义语句Dim A(0 To 5)会与之冲突C. 模块通用声明处有Option Base 1，模块中有Dim A(0 To 5),则A数组第一维维下界为0D. 模块通用声明处有Option Base 1，模块中有DimA(0 To 5),则A数组第一维维下界为1第31题下面有关数组的叙述中,不正确的是______.① 在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量② 数组作为形式参数时,传递的是每个数组元素的值③ 在窗体模块的通用声明处可以用Public 说明一个全局数组④ 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值A. ②③B. ①③④C. ①②③④D. ③④第32题下列关于对象SetFocus与GotFocus的描述中,正确的是_____A. SetFocus是事件,GotFocus是方法B. Setfocus和Gotfocus都是事件C. Setfocus和GotFocus都是方法D. SetFocus是方法,GotFocus是事件第33题创建一个名为"文件"的菜单项,欲使其可用Alt+F方式访问,则在菜单编辑器的标题文本框中应输入_________.A. 文件($F)B. 文件(&F)C. 文件(#F)D. 文件(%F)第34题在下列属性中,属于CommandButton控件、ListBox控件共有的是______.A. Caption、TextB. Visible、FontC. Caption、VisibleD. List、Visible第35题下列能够正确表示条件"X≤Y<Z"的VB逻辑表达式是______A. X≤Y<ZB. X<=Y And Y<ZC. X≤Y OR Y<ZD. X<=Y<Z第36题以下关于Function过程的说法中,错误的是___________.A. Function过程名可以有一个或多个返回值B. 在Function过程内部不得再定义Function过程C. Function过程中可以包含多个Exit Function语句D. 可以像调用Sub过程一样调用Function过程第37题下面的关系表达式中,运算结果为True的是______.A. CInt(1.5)=Int(1.5)B. Fix(1.5)=Int(1.5)C. Fix(-1.5)=CInt(-1.5)D. Fix(-1.5)=Int(-1.5)第38题已知X<Y,A>B,则下列表达式中,结果为True的是______A. Sgn(X-Y)+Sgn(A-B)=-1B. Sgn(X-Y)+Sgn(A-B)=-2C. Sgn(Y-X)+Sgn(A-B)=2D. Sgn(Y-X)+Sgn(A-B)=0第39题执行__________语句时,会出现出错提示信息.A. Print 5+7=14B. Print 16384*2C. Print 32768*2D. Print "14"+32第40题数学表达式yxey x+ +++π2log30sin对应的Visual Basic表达式是______.A. Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)B. (Sin(30*π/180)+Sqr(Ln(x)+y))/(2*π+Exp(x+y))C. Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e^(x+y))D. (Sin(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159+Exp(x+y))第41题在一个多窗体程序中,可以仅将窗体Form2从内存中卸载的语句是________.A. Form2.UnloadB. Unload Form2C. Form2.EndD. Form2.Hide第42题Print 方法可在______上输出数据.①窗体 ②文本框 ③图片框 ④标签 ⑤列表框 ⑥立即窗口A. ①③⑥B. ②③⑤C. ①②⑤D. ③④⑥第43题若要使逻辑表达式x>y Xor y<z 结果为True,则x 、y 、z 的取值应为下列选项中的_______.A. x=3、y=3、z=4B. x=2、y=1、z=2C. x=1、y=3、z=2D. x=2、y=2、z=2第44题下列____________是合法的变量名.A. absB. –alC. cdc dD. Abe_10第45题下列______是正确的VB 常量.A. D-6B. E-6C. 5DD. 5E-6第46题若在模块中用Private Function Fun(A as Single,B as Integer) As Integer 定义了函数Fun.调用函数Fun 的过程中定义了I 、J 和K 三个Integer 型变量,则下列语句中不能正确调用函数Fun 的语句是___________.A. Fun 3.14,JB. Call Fun(I,365)C. Fun(I),(J)D. K=Fun("24","35")第47题若需要在同一窗体内安排两组相互独立的单选按钮(OptionButton),可使用______控件做容器将它们分开. ①TextBox ②PictureBox ③ Image ④ FrameA. ①或②B. ②或③C. ②或④D. ③或④第48题以下关于文件的叙述中，错误的是__________。
VB程序设计智慧树知到答案章节测试2023年青岛科技大学
模块一测试1.( )年4月 VB 1.0 发布。
A:1991B:1990C:1992D:1993答案:A2.VB程序设计是由( )驱动的编程机制。
A:对象B:程序C:窗口D:事件答案:D3.VB常用控件在集成开发环境的( )中。
A:窗体设计器B:代码窗口C:工程资源管理器D:工具箱答案:D4.2002年发布的Visual 要依附于.NET Framework环境。
（）A:错B:对答案:B5.VB工程文件的扩展名为.frm。
（）A:错B:对答案:A模块二测试1.ASCII称为美国标准信息交换代码，是由一个字节的低七位编码而成，共有( )个编码。
A:32B:256C:128D:64答案:C2.VB是一种面向（）的可视化程序设计语言。
A:类B:过程C:实例答案:D3.VB程序一行有多条语句，语句之间用( )隔开。
A:冒号B:顿号C:逗号D:分号答案:A4.位权是数制中表示所在位置数码的数值大小的量。
（）A:对B:错答案:A5.“青岛”+“科技大学”的值是青岛科技大学。
（）A:对B:错答案:A模块三测试1.( )属性用于设置窗体标题栏的显示文本。
A:VisibleB:CaptionC:NameD:show答案:B2.( )属性用于设置默认命令按钮。
A:DefaultB:NameC:CaptionD:Visible答案:A3.封装、继承、多态是OOP的三大要素。
（）A:错B:对答案:B4.文本框中输入的字符最多为1024个。
( )A:错B:对答案:A5.Enabled属性用于设置框架是否可用。
（）A:错答案:B模块四测试1.if…Then…else语句是( )分支选择结构。
A:语句错误B:多C:双D:单答案:C2.重复执行某一语句块称作( )。
A:循环B:反复C:顺序D:分支答案:A3.一个循环结构嵌入到另一个循环结构的循环体中的结构形式，称为循环结构的( )。
A:嵌套B:递归C:套装D:重复答案:A4.Select Case语句条件表达式可以是数值表达式或字符串表达式，一般为变量。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验一 VB环境和简单应用程序设计（4个学时）
一、实验目的
1.熟悉Visual Basic集成开发环境的使用。
2.掌握建立、编辑和运行简单的Visual Basic应用程序的全过程。
3.掌握窗体对象的属性、事件和方法。
二、实验内容
1. 在VB的集成开发环境中实现如下的操作：
1）、将“标准”工具栏去掉后再添加上，将“编辑”工具栏添上再去掉。
2)、分别利用“菜单”和“工具栏”中的命令打开“属性窗口”、“工程资源管理器窗口”
3）、将“窗体布局窗口“的”启动位置“设置成“手工”。
4)、在工具箱中任意添加一个Active X 控件。
5）、在工程1中增加两个窗体：Form1、Form2
6）、在工程1中增加两个标准模块：Module1 、Module2
7）、在工程1中增加一个类模块：Class1
8）、在工程资源管理器中将Form2、Module2 删除。
9）、在在工程资源管理器中利用“切换文件夹”按钮隐藏或显示对象的文件夹
10）、将代码窗口中的字体大小改为18号字。
2．设计一个窗体，窗体内有1个文本框和3个命令按钮控件。
要求：
当按“显示”按扭时，在文本框内显示“欢迎来到青岛科技大学！”一串红色、四号、隶书字符串。
当按“清除”按钮时，清除文本框内全部信息；
当按“退出”按钮时，结束程序运行。
1) 创建界面（将设计好的界面截下来粘贴在下面）
3)代码设计
Private Sub Command1_Click()
Text1.ForeColor = vbRed
Text1.FontSize = 14
Text1.FontName = "黑体"
Text1.Text = "欢迎来到青岛科技大学！" End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
4)调试过程记录（错误情况及改正方法，不得少于三条）
直接在text中打出了“欢迎来到青岛科技大学！”改正使用“显示”按钮
Text1.SelText = "欢迎来到青岛科技大学！" 改正Text1.Text = "欢迎来到青岛科技大学！" Text1.Cls程序运行错误改正Text1.Text = ""
3. 设计一个窗体，在窗体上添加一个文本框和三个命令按钮。
要求：
当按“显示”按扭时，在文本框内显示“Visual Basic 程序设计”一串字符串。
当按“黑体”按钮时，文本框内的字符串的字体变为黑体；
当按“隶书”按钮时，文本框内的字符串的字体变为隶书；
1) 创建界面（将设计好的界面截下来粘贴在下面）
3)代码设计
Private Sub Command1_Click()
Text1.Text = "Visual Basic 程序设计"
End Sub
Private Sub Command2_Click()
Text1.FontName = "黑体"
End Sub
Private Sub Command3_Click()
Text1.FontName = "宋体"
End Sub
4)调试过程记录（错误情况及改正方法，不得少于三条）。