当前位置:文档之家› vb程序设计实验项目书

vb程序设计实验项目书

vb程序设计实验项目书
vb程序设计实验项目书

Visual Basic程序设计

严亚周编写

目录

实验一 Visual Basic的环境

实验二顺序结构和选择结构

实验三循环结构

实验四过程与函数

实验五控件的应用

实验六菜单与多窗体程序设计

实验七文件操作

实验八图形操作

实验九数据库技术

实验十学生选课系统的设计与实现(#)

实验一 Visual Basic的环境

一、实验目的

1、掌握VB 的启动和退出方法。

2、熟悉VB 的集成开发环境。

3、掌握在窗体上创建控件的方法。

4、掌握简单程序的编辑、保存、运行、编译方法。

二、实验内容

1、启动VB,熟悉VB 的集成环境中各窗口的功能,并掌握它们的打开、关闭方式。

2、操作VB6.0的各种工具栏,在对象窗口上添加几种常用的控件并在属性窗口上修改它们的常用属性

3、编写显示“欢迎使用Visual Basic6.0”的窗体程序。

三、实验步骤

1、VB的启动和退出

启动的几种方式:用开始菜单启动、从“资源管理器”中启动、从“运行”对话框中启动、通过快捷方式启动。

退出的几种方式:单击VB主窗口标题栏的“关闭”按钮、选作“文件”菜单的“退出”命令、按Alt+F4组合键、按Alt+Q组合键、单击控制菜单,执行关闭命令。

2、VB开发环境中常用窗口的打开和关闭。

打开“资源管理器”窗口的几种方式:选作“视图”菜单中“工程资源管理器”命令、单击工具栏上的“工程资源管理器”图标按钮、Ctrl+R组合键。

打开“窗体设计器”窗口的几种方式:在“工程资源管理器”窗口中选择要打开的窗体,然后单击该窗体顶部的“查看对象”按钮、选择“视图菜单”中的“对象窗口”命令、单击工具栏上的“对象窗口”图标按钮、按Shift+F7组合键。

打开“代码窗口”的几种方式:在“工程资源管理器”窗口中选择窗体或模块,然后单击该窗体顶部的“代码窗口”按钮、选择“视图菜单”中的“对象窗口”命令、单击工具栏上的“对象窗口”图标按钮、用鼠标双击窗体或窗体上的某个控件。

打开“属性窗口”的几种方式:选择“视图菜单”中的“属性窗口”命令.、单击工具栏上的“属性窗口”图标按钮、按F4功能键。

打开“工具箱”窗口的几种方式:选择“视图菜单”中的“工具箱”命令、单击工具栏上的“工具箱”图标按钮。

关闭窗口。所以窗口都可以采用以下三种方式关闭:

单击窗口右上角的关闭按钮“×”、将要关闭的窗体选为当前当前窗口(标题栏为蓝色),然后按Alt+F4组合键。

3、使用联机帮助

4、常用控件的建立

在窗体上建立一个命令按钮、一个标签、一个文本框,一个复选框和一个数据控件。

5、编写显示“欢迎使用Visual Basic6.0”的窗体程序。

(1)新建工程

在桌面上双击Microsoft Visual Basic 6.0快捷方式图标,系统进入Visual Basic6.0集成开发环境,并显示“新建工程”对话框,默认选择是建立“标准EXE”(即标准工程)。单击“打开”按钮,Visual Basic 6.0进入设计模式。如图1-1所示。

图1-1“新建工程”对话框

单击“文件”菜单,选择“新建工程”菜单项,也可进入设计模式。

(2)设计界面

在系统提供的名为Form1的窗体上进行界面设计。单击工具箱上的标签(Label)控件,在窗体上添加标签的位置处按下鼠标左键,并拖动,调整虚框的大小,松开鼠标,就将标签控件添加到窗体上。初始界面如图1-2所示。

图1-2初始界面

(3)设置属性

如表1-1所示。

表1-1 属性设置

设置属性后的界面如图1-3所示。

(4)编写程序代码

Private Sub Form_Click( )

Label1.Caption = "欢迎使用Visual Basic6.0"

End Sub

(5)运行程序

运行VB程序有三种方法:①单击工具栏上的“启动”按钮;②从“运行”菜单中选择“启动”菜单项;③按F5键。

例如,单击工具栏上的“启动”按钮运行程序后,单击窗体,程序运行效果如图1-3所示。

(6)保存程序

单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项,选择合适的保存路径,先保存窗体文件(例如窗体文件名为“实验一.frm”),然后保存工程文件(例如工程文件名为“实验一.vbp”)。

2.将Visual Basic工程编译生成可执行文件

单击“文件”菜单中的“生成实验一.exe”菜单项,就可生成可执行的.exe文件。

退出Visual Basic集成开发环境,双击实验一.exe文件,则实验一.exe文件就可直接运行。

四、课后思考

1、运行Visual Basic 6.0需要什么样的最小硬件环境?

2、Visual Basic 6.0集成环境中包括哪些主要窗口?如何打开和关闭?

3、编写程序可能发生哪些错误?怎样来避免?

4、Visual Basic 6.0的工程包括哪几类文件?

5、Visual Basic 6.0 有哪几种工作模式?各有何特点?在哪些情况下可进入中断模式?

实验二顺序结构和选择结构

一、实验目的

1、掌握顺序结构中基本输入输入输出语句及相关的函数过程使用

2、掌握选择结构中选择结构的基本语法并能够熟练应用于相关编程

二、实验内容

1、输入语句、输出语句的使用,其他辅助语句的使用

2、使用命令创建程序文件。在编辑窗口输入程序,保存并执行程序,分析程序的输入、输出

3、编写一个顺序结构程序,计算一元二次方程的两个根

4、单分支选择结构

5、双分支选择结构

三、实验步骤

1、InputBox 函数与MsgBox函数的使用

随机给小学生出 10 道二位数的加法题,每答对一道题得10 分,最后用消息框输出小学生的得分。第1步:启动VB ,新建一标准工程。

第2步:编写代码:

Private Sub Form_Load()

Dim sum%, x%, y%, z%

For i = 1 To 10

Randomize

x = Int(Rnd * 90 + 10)

y = Int(Rnd * 90 + 10)

z = InputBox(x & "+" & y & "=", "第" & i & "题")

If x + y = z Then sum = sum + 10

Next

MsgBox " 你最后的得分是:" & sum, vbOKOnly, "xiaoxueshengchuti"

End Sub

2.求解一元二次方程的根。

第一步:设计如图的界面

第二步:编写程序代码:

Option Explicit

Private Sub cmdQjfc_Click()

Dim a As Single, b As Single, c As Single

Dim d As Single, x1 As Single, x2 As Single

a = Val(txtA)

b = Val(txtB)

c = Val(txtC)

d = b ^ 2 - 4 * a * c

If d < 0 Then

lblJg = "方程无实数解!"

Else

x1 = (-b + Sqr(d)) / (2 * a)

x2 = (-b - Sqr(d)) / (2 * a)

lblJg = "X1=" & x1 & Chr(10) & "X2=" & x2

End If

End Sub

第三步:运行程序:输入系数a、b、c点击按钮“求解方程”得出结果

3.税务部门征收所得税,规定如下:

(1)收入在800元以内,免征;

(2)收入在800~1000元以内,超过200元的部分纳税5%;

(3)收入在1000~2000元以内,超过1000元的部分,纳税8%;

(4)当收入达到2000元或超过时,纳税10%;

编程实现上述操作。

(1)编写程序代码如下:

Private Sub Form_Click( )

r = InputBox(“请输入您的收入”)

r = Val(r)

select case r

case is<=800

tax = 0

case is<=1000

tax =( r-800) * 0.05

case is<=2000

tax =( r-1000) * 0.08

case else

tax =( r-1000) * 0.10

end select

Print “收入”; r ; “应纳税” ; tax

End Sub

(2)程序运行

程序运行后,单击窗体,在输入对话框中输入收入数,程序将输出纳税金额。例如输入1560,运行情况如图所示。

图纳税运行情况

四、课后思考

1、msgbox函数与msgbox过程有什么区别?

2、选择结构中if……else……与select与有什么区别,分别用于什么样的选择

实验三循环结构

一、实验目的

1、掌握For / Next 循环语句的用法。

2、掌握Do / Loop 语句的用法。

3、掌握循环结构程序设计的方法。

二、实验内容

1、 Do …Loop 语句

求两个正整数m和n的最大公约数。

求最大公约数最常用的方法是:辗转相除法。

其设计思路是:

(1)假设m大于n;

(2)用n作除数,去除m,得余数r。

(3)若r≠0,则令m←n,n←r,继续相除得到新的r值,直到r=0为止。

(4)最后的n即为最大公约数。

2、For 语句将一维数组中的元素利用移位的方法显示如图所示的图形。

三、实验步骤

1、求两个正整数m和n的最大公约数。

第1步:在窗体上创建5个标签、2个文本框和1个命令按钮。

第2步:控件的初始属性设置后的界面如图所示:

第3步:编写代码:

Private Sub Command1_Click()

Dim m As Long, n As Long, temp As Long

If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0)

Or Val(Text1.Text) > 2147483647 Or

Val(Text2.Text) > 2147483647 Then

MsgBox “输入的数0或溢出,请重新输入!”,

vbInformation + vbOKOnly, “数据错误”

Text1.Text = ""

Text2.Text = "“

Text1.SetFocus

Else

m = Val(Text1.Text)

n = Val(Text2.Text)

If m < n Then

End If

Do

r = m mod n

m = n :n = r

Loop While r <> 0

Label5.Caption = m

End If

End Sub

运行程序后,在m、n中输入数据后单击“求解”按钮,其结果将显示在第5 个标签中,如图所示。

2、For 语句

将一维数组中的元素利用移位的方法显示如图所示的图形

第1步:建立一个标准工程,窗体上添加一个“显示”按钮。

第2步:编写代码

Private Sub Form_Click()

Dim a(1 To 7)

For i = 1 To 7

a(i) = i

Print a(i);

Next i

Print

For i = 1 To 7

t = a(7)

For j = 6 To 1 Step -1

a(j + 1) = a(j)

Next j

a(1) = t

For j = 1 To 7

Print a(j);

Next j

Print

Next i

End Sub

四、课后思考

1. 循环结构的特点是什么?

2. 两种类型的循环(当型和直到型)能否进行相互转换?

3. 在一个给定的For …… Next语句中,如何求出循环体的执行次数?

4. For …… Next语句适合处理什么情况的循环?

5. Do …… Loop语句适合处理什么情况的循环?

实验四过程与函数

一、实验目的

1、掌握过程与函数的定义和使用方法;

2、掌握过程中变量的作用域;

3.掌握参数传递的方法;

二、实验内容

1、自定义一个名为Jiecheng的双精度类型函数,它能接收一个整型的自变量,计算并返回该自变量的阶乘。

N!=1 * 2 * 3 * …* (n-1) * n

三、实验步骤

第一步:设计如下界面:

第二步:双击窗体进入代码窗体,添加一下代码:

Public Function jiecheng(n As Integer) As Double

Dim i As Integer

Dim s As Double

s = 1#

For i = 1 To n

s = s * i

Next i

jicheng = s

End Function

第三步:双击command1按钮,即计算阶乘按钮,编写以事件过程:

Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox "无输入"

Exit Sub

End If

Text2.Text = jiecheng(Val(Trim(Text1.Text)))

End Sub

第四步:点击运行,测试结果

四、课后思考

1、该实验中,如果函数类型定义为int型是否可以?

2、什么是形参?什么是实参?

实验五控件的应用

一、实验目的

1、掌握列表框、组合框、驱动器列表框、目录列表框、时钟和通用对话框常用属性、重要事件和基本方法

2、熟练掌握VB窗口中控件的使用,掌握建立基于图形界面的应用程序的方法

3、掌握定时器控件中的Timer事件驱动的编写。

二、实验内容

1、利用列表框、、组合框、驱动器列表框、目录列表框、图片框等控件设计一个的图片搜索器。

2、编写一个倒计时程序,界面自己设计,包括“开始”和“停止”按钮。运行时,若单击“开始”按钮,则开始倒计时,若单击“停止”按钮,则暂停倒计时。若时间到,则显示消息框。

三、实验步骤

1、利用列表框、、组合框、驱动器列表框、目录列表框、图片框等控件设计一个的图片搜索器。

第一步:设计如图的界面

第二步:编写程序代码

Option Explicit

Private strDri As String

Private Sub File1_Click()

On Error Resume Next

Dim strFilePath As String

strFilePath = File1.Path & "\" & File1.FileName

Image1.Picture = LoadPicture(strFilePath)

End Sub

Private Sub Form_Load()

Combo1.AddItem "*.BMP"

Combo1.AddItem "*.JPG"

Combo1.AddItem "*.GIF"

Combo1.AddItem "*.BMP;*.JPG;*.GIF"

Combo1.ListIndex = Combo1.ListCount - 1

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

On Error GoTo ERR

Dir1.Path = Drive1.Drive

strDri = Drive1.Drive

Exit Sub

ERR:

MsgBox "该驱动器内无数据可读", _

vbOKOnly + vbExclamation + _

vbDefaultButton1 + vbSystemModal, "提示"

Drive1.Drive = strDri

Dir1.Path = strDri

Resume Next

End Sub

Private Sub Drive1_GotFocus()

strDri = Drive1.Drive

End Sub

Private Sub Combo1_Click()

File1.Pattern = Combo1.Text

End Sub

Private Sub Image1_Click()

End Sub

2、编写一个倒计时程序,界面自己设计,包括“开始”和“停止”按钮。运行时,若单击“开始”按钮,则开始倒计时,若单击“停止”按钮,则暂停倒计时。若时间到,则显示消息框。

第一步:界面设计:

Timer1的属性Interval要设置为1000

第二步:编写程序代码:

Dim time1 As Date

Dim T1 As Date, T2 As Date

Private Sub Command1_Click()

T1 = #12:00:10 AM#

star

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

T2 = T1 - Time + time1

Label1 = Format(T2, "long time")

If T2 = #12:00:00 AM# Then

MsgBox ("时间到!")

End

End If

End Sub

Public Sub star()

Timer1.Enabled = True

time1 = Time

End Sub

四、课后思考

1、在实验1中将控件放在窗体上时,如果先放框架内的控件,再放框架,会产生什么结果?

2、Timer控件的Interval属性有什么作用?

实验六菜单与多窗体程序设计

一、实验目的

1、掌握VB下拉菜单和弹出菜单的特点

2、掌握VB菜单设计窗口的使用

3、掌握在应用程序中设计下拉菜单和弹出菜单的方法

4、掌握多窗体程序设计的一般步骤和方法

二、实验内容

1、设计一个类似与Windows 2000记事本的应用程序

要求:文本框只有垂直滚动条,具有自动换行功能;菜单中的某个功能不可选时,其颜色变得暗淡;设计一个快捷键,当在文本中单击右键时弹出包含打开和保存两个选项的快捷菜单。

2、设计Form1和Form2两个窗体,Form1为工程的启动窗体,若单击Form1,则显示Form2,然后单击Form2,则显示Form1,然后卸除Form2;若用户双击Form2,则结束应用程序的运行。

三、实验步骤

1、设计一个类似与Windows 2000记事本的应用程序

第一步:界面设置:选择“工具”菜单中的“菜单编辑器”命令,设置各菜单项的属性。

选择“工程”中的“部件”命令,在打开的“部件”对话框中选择“Microsoft Common Dialog Control 6.0”

第二步:属性设置:见下表

第三步:编写程序代码

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

PopupMenu mnufile, 2

End If

End Sub

Private Sub mnuexit_Click()

End

End Sub

Private Sub mnuopen_Click()

CdMenu.ShowOpen

mnusave.Visible = True

End Sub

Private Sub mnusave_Click()

CdMenu.ShowSave

End Sub

第四步:调试运行。

四、课后思考

弹出菜单和下拉菜单有何区别?他们之间的关系是什么?

实验七文件操作

一、实验目的

1、掌握与文件系统有关的语句、函数

2、掌握与文件管理有关的控件及应用

3、熟悉顺序文件、随机文件的读写操作

4、了解二进制文件的读写操作

二、实验内容

1、窗体上有驱动器列表框,文件夹列表框,文件列表框。编写程序使得三个列表框协调工作。并当用户选择一个文件后,能够显示该文件的属性。

2、利用顺序文件的知识,将文本框text1中的内容保存到一个顺序文件中,然后打开该文件显示内容,同时在标题栏上显示文件保存路径。

三、实验步骤

1、窗体上有驱动器列表框,文件夹列表框,文件列表框。编写程序使得三个列表框协调工作。并当用户选择一个文件后,能够显示该文件的属性。

分析:使用GetAttr(“文件名”)可以得到这个文件的属性。

步骤:

①添加控件。

在窗体中添加驱动器列表框、文件夹列表框、文件列表框和4个复选框。如图所示。

②设置属性:

(略)

③编写程序代码:

下面两个过程可以使三个列表框协调动作。

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

fi = Dir1.Path + "\" + File1.FileName

a = GetAttr(fi)

If a = 0 Then

Check2.Value = 1

Else

Check2.Value = 0

End If

If a Mod 2 = 1 Then

Check1.Value = 1

Else

Check1.Value = 0

End If

If a Mod 4 >= 2 Then

Check4.Value = 1

Else

Check4.Value = 0

End If

If a >= 32 Then

Check3.Value = 1

Else

Check3.Value = 0

End If

End Sub

④运行程序,如图所示。

2、利用顺序文件的知识,将文本框text1中的内容保存到一个顺序文件中,然后打开该文件显示内容,同时在标题栏上显示文件保存路径。如图所示。

提示:

(1)使用保存、打开对话框CommonDialog1.ShowSave,Commondialog1.showopen

参考代码:

Private Sub Command1_Click()

CommonDialog1.ShowSave

VB程序设计实验报告

《VB程序设计》实验单元二 实验报告 专业班级:新闻班姓名: ________________ 学号:—指导教师:完成时间:2013.5 一、实验题目 数组和自定义类型 二、实验环境 Visual Basic6.0 程序软件 三、实验目的 1.掌握数组的声明、数组元素的引用。 2.掌握固定长度数组和动态数组的使用差别。 3.掌握数组常用的操作和常用算法。 4.掌握列表框和组合框的使用。 5.掌握自定义类型及数组的使用。 四、实验内容 1.随机产生30—100 (包括30、100)的10个正整数,求最大值、最小值、平均值,并显示整个数组的只和结果。 2.随机产生20个学生成绩,统计各分数段人数。即0~59、 60~69、 70~79、80~89、90~100,并显示结果。

五、实验步骤 1.打开VB界面,建立工程 2.在窗体窗口设置界面 3?属性窗口控件对象属性设置 4.编写程序代码 5?运行程序及调试 6?程序建立,保存工程文件六、实验结果 第1题:

70 53 57 28 30 77 1 76 81 70最大值81 最小值1 平均值54.3 4 41 86 79 37 96 87 5 94 36 最大值96 最小值4 平均值56.5 52 76 5 59 46 29 62 64 26 27 :最大值76 最小值5 平均值44.6 82 82 58 98 91 22 69 98 24 53最大值98 最小值22 平均值67.7 10 99 67 1 57 10 10 79 28 4 最大值99 最小值1 平均值36. 5 29 38 30 94 97 40 27 16 16 64实验 r Q Forml 回

VB程序设计课后习题答案(科学出版社)

同步练习1 二、选择题 01——05 CADAB 06——10 ACDAB 11——15 CBDBB 同步练习2 二、选择题 01——05 ABDCA 06——10 CACBC 11——15 DADAD 16——20 BDBBB 三、填空题 1.可视 2.LEFT、TOP、WIDTH、HEIGHT 3.按字母顺序 4.查看代码 5.工具、编辑器 6.FORM窗体、FONT 7.MULTILINE 8.在运行时设计是无效的 9.工程、工程属性、通用、FORM1.SHOW 10.TABINDEX、0 同步练习3 二、选择题 01——05 BCADB 06——10 ADBBC 11——15 DBCBA 16——20 BAABB 三、填空题 1.整型、长整型、单精度型、双精度型 2.SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3.164、今天是:3-19 4.FALSE 5.-4、3、-3、3、-4、4 6.CDEF 7.(X MOD 10)*10+X\10 8.(35\20)*20=20 ( 35 \ 20 )* 20 = 20 9.X MOD 3=0 OR X MOD 5=0 10.27.6、8.2、8、1、100、397、TRUE、FALSE 同步练习4 一、选择题 01——05 DBCAD 06——10 CBBAB

11——15 D25BAC 16——20 CBACB 21——25 DAABC 二、填空题 1.正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2.1 2 3 3.X>=7 4.X

vb程序设计实验教程习题答案

实验教材实验一 1:单项选择题: A A C C C D C B B C 2:填空题: (1).bas (2).vbp,.frm (3)视图工具箱 (4)对象 (5)属性对象事件方法 (6)Windows (7)事件行为 (8)窗体模块 实验二 1:单项选择题: A D C C A B A B D C B B C B C B A B D C 2:基本运算题: (1)27 (2)3.33333333333333 (3)3 (4)0 (5)-3 (6)2 (7)ab33 (8)类型不匹配 (9)3 (10)AB3 实验三 1:单项选择题: B C B D C 2:填空题: (1)300 (2)321456 (3)Shanghai (4)6 7 6 (5)True (6)2+3=5 (7)”area=” 12.56 (8)VISUAL 实验四 1:单项选择题: C A A C A 2:填空题: (1)7 (2)3 5

(3)输入的数小于0 (4)3 (5)False (6)2010 is not leap year. 试验五 1:单项选择题: A C C A B A C C C B 2:填空题: (1)9 (2)①n ②1 (3)①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) (4)①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 (5)Mid(c1,1,i) 实验六 1:单项选择题: D B D C D A C A D D 2:填空题: (1)30 (2)3 (3)①a(2) ②a(3) ③a(1) (4)①1 ②2 ③a(i)=a(6-i) (5)①i+j ②0 ③a(i,j) (6)①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1:单项选择题: A B B A C B 2:填空题: (1)15 (2)①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) (3)d,c,b,a 实验八 1:单项选择题: C A D B D C A C B 2:填空题: (1)a=9 b=4 (2) 36 25 16 9 4 1 (3)①a ②UBound(b) ③

VB程序设计实验要求及报告

上海立信会计学院本科实验报告 班级: 学号: 姓名: 指导教师: 系部: 专业: 实验时间: 实验3 选择结构 一、 实验目的 1. 掌握单分支、双分支和多分支条件语句的使用 2. 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验要求 1. 在C:\下建立子文件夹“VB 实验3”,按照题目要求,在该文件夹下为各题保存相应的文件,如本实验中的第一题,需保存的文件有:工程文件、窗体文件 及可执行文件(),本实验中的第二题,需保存的文件有:工程文件、窗体文件 及可执行文件(),其余实验依此类推。 2. 撰写实验过程中出现了哪些问题、错误,你是如何解决的,做一个小结。 三、 实验内容: 1. 编一程序输入上网的时间并计算上网费用,计算的方法如下: 费用= 50250~102.51030?? ???>≤>≤小时上网时间元,每小时小时上网时间元,每小时小时上网时间元,基数 同时为了鼓励多上网,采用累进计费制,但每月收费最多不超过150元。上网时间在文本框中输入;上网费用在标签中输出,所有控件字体默认、大小为小四。要求使用多分支结构(IF THEN ELSEIF )编写,效果如图3-1所示。

图3-1 Option Explicit Private Sub Command1_Click() Dim s!, sum! s = Val If s <= 0 Then MsgBox "上网时间不能为负数和零", , "输入错误" Text1 = "" Else If s <= 10 Then sum = 30 ElseIf s > 10 And s <= 50 Then sum = 30 + (s - 10) * ElseIf s > 50 And s <= 60 Then sum = 130 + (s - 50) * 2 Else sum = 150

VB课程实验报告

山西财经大学《程序设计(VB+Acces)》实验报告 ****年*月**日实验题目1选择结构程序设计 选课课号2015-2016-2-N081002S00-08034- 学院 ***** 学院 班 级 ******* 姓名*** 学 号 ********* 理论课教师李平珍 上机指 导教师 李平珍 实验目的及要求: 1.掌握条件表达式和分支语句 2.正确使用If...Then...Else和If...Then...ElseIf等语句3.使用选择性控件实现程序应用 编写以下程序段: 求一元二次方程ax2+bx+c=0的根 设计一个四则运算计算器 实验的详细操作步骤、程序代码及运行截图: 一. Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim R1 As Single, R2 As Single A = Val B = Val

If B ^ 2 - 4 * A * C < 0 Then MsgBox "该方程无解." ElseIf B ^ 2 - 4 * A * C = 0 Then R1 = -B / 2 / A MsgBox "该方程仅有一个根为" & R1 & "." Else R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A) R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End If End Sub 二. Private Sub cmdCal-Click() Dim x1 As Single,sign As String,x2 As Single X1=Val(txtA):sign=txtB:x2=Val(txtC)

《VB程序设计》习题答案-林卓然编著

《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1.D 2.B 3.C 4.A 5.C 6. A 7.A 8.B 9.C 10.(1)A (2)B 二、多选题 1.ACDE 2.BCDE 3.CD 4. CE 三、填空题 1.事件驱动 2.解释,编译 3.设计,运行,中断 4. 属性,方法,事件 5. Command2_Click 6. 中央,代码 7.MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2.在窗体上建立一个标签Label1。程序代码如下: Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3.在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1.①D,②D 2.①A,②C 3.A 4.B 5.B 6.B 7.C 8.D 9.B 10.B 11.A 12.A 13.B 14.A 15.B 16.A 17.B 二、多选题 1.BD 2.CD 3.AC 4. AD 三、填空题 1.(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)

VB实验一 实验报告

实验报告一 课程VB程序设计实验项目Visual Basic环境 顺序选择程序设计(4学时) 成绩 专业班级 姓名学号实验日期 实验目的 (1)熟悉Visual Basic6.0集成开发环境 (2)掌握Visual Basic程序的开发过程,能够运行一个完整的Visual Basic程序(3)掌握选择控制结构(If、Select case)语句实现程序分支 (4)掌握控制结构相关控件(单选按钮、复选框) (5)能综合运用选择及循环控制结构解决较复杂的问题 实验内容 一、VB环境和顺序结构 【实验1】设计一个简单VB程序(10分) 它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Basic 程序设计示例",当用户单击命令按钮“显示”时,文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”,单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容,单击命令按钮“结束”时,结束程序。 实验结果: 【实验1 代码】 【实验1 典型结果】 【实验2】编写程序,其功能为输入三角形的三边,求三角形的面积。计算公式为:

S=(a+b+c)/2,面积=sqr(s*(s-a)*(s-b)*(s-c)) (20分) 程序界面如下所示 实验结果: 【实验2 代码】 【实验2 典型结果】 【选做1】单击窗体时,随机产生一个三位正整数,然后逆序输出该数,产生的数与逆序数同时显示,结果如下所示,要求用两种方法实现(使用数字的逆序和字符串的逆序)(15分) 实验结果: 【方法1 代码】 【方法1 典型结果】 【方法2 代码】 【方法2 典型结果】

VB程序设计教程第四版课后答案

vb课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述VB的特点。 答:①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述VB的安装过程。 答:①向光驱中放入VB安装光盘; ②计算机将运行自动安装程序,若没有,执行VB目录下的Setup.exe; ③根据提示逐一回答问题,并点击“下一步”; ④点击“完成”; 2、如何启动VB。

答:三种方法: ①单击“开始”按钮,选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击; ②双击桌面上的VB6.0快捷图标; ③在“开始”菜单的运行对话框中输入命令来启动VB; 第二章习题参考答案 一、选择题: 1-10、 DCACD BCBBC 11-20、BADCA BBAAB 21-29、AACBB CDDC 二、填空题 1.窗体、控件 2.属性值 3.属性窗口设置、代码窗口设置 4.事件过程 5.对象名、下划线、事件名 6. Form_Click 第三章习题参考答案

一、选择题 1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 、Date、Object、Variant 2、双引号(英文)、# 3、 ASCII、1、2 4、 public、通用、Dim、Static、Private、Static 5、 &、+、+ 6、 Now()、Time、日期型 三、解答题 1、(3) 2、(1 ) 3、(1)常量(关键字)(2)字符型常量(3)逻辑型常量(4)变量(5)字符串常量(6)变量 (7)字符串常量(8)变量(9)日期型常量(题目应是#11/16/1999#)(10)数值型常量(单精度) 4、31 5、(1)(1+y/x)/(1-y/x) (2)x^3+3*x*y/(2-y) (3)sqr(abs(a*b-c^3)) (4)sqr(s*(s-a)*(s-b)*(s-c))

VB程序设计教程(第3版)课后实验答案最新版2

1、完成实验A(P.259)中的第1、 2、 3、5题。 2、参照第2章例2.6,建立一个类似记事本的应用程序,提供:(1) 剪切、复制和粘贴的编辑操作;(2) 字体大小的格式设置;此外,再对记事本的应用程序的功能进行一点扩允。 1.完成在实验B 顺序结构程序。(P.262)中的第1、2 、4 、5.、6题 2.完成实验C 选择结构(P.266)中的第1、2、4、5题 3.用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构(P.268)中的第1、3、4、6题,其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组(P.271)中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A.1 Private Sub Command1_Click() Label3 = Text1 End Sub A.2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A.3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A.5

《VB程序设计》实验报告

台州学院 《VB程序设计》实验报告 实验1.1设计一个程序,程序运行的初始界面如图1-1所示。当单击“显示”按钮时,在文本框中显示“欢迎使用VB!”(图1-1);当单击“清除”按钮时,清除文本框内的文本;当单击“退出”按钮时,结束程序运行。Private Sub Command1_Click() Text1.Text = "欢迎使用VB!" End Sub Private Sub Command2_Click() Text1.Text = "" End Sub Private Sub Command3_Click() End End Sub 实验1.2 设计一个程序,程序运行的初始界面如图1-3所示,其中“显示”按钮为不可用。同时要求: (1)当单击“改变文字”按钮时,在左边标签文字内容改为“你好,张三!”,同时“改变文字”按钮变为不可用(图1-4); (2)当单击“隐藏”按钮时,将左边标签设为不可见,同时“隐藏”按钮变为不可用,“显示”按钮变为可用(图1-5); (3)当单击“显示”按钮时,重新显示左边标签,同时“隐藏”按钮变为可用,“显示” Private Sub Command1_Click() Label1.Caption = "你好,张三!" Command1.Enabled = False End Sub Private Sub Command2_Click() Label1.Visible = False Command3.Enabled = True Command2.Enabled = False End Sub Private Sub Command3_Click() Label1.Visible = True Command2.Enabled = True Command3.Enabled = False End Sub 实验2.1 设计一个程序,运行时界面如图2-1所示。当单击“左”、 “右”、“上”、“下”按钮时,标签分别向左、右、上、下移动。 Private Sub Command1_Click() Label1.Left = Label1.Left - 100 End Sub Private Sub Command2_Click() Label1.Left = Label1.Left + 100 End Sub Private Sub Command3_Click() Label1.Top = Label1.Top - 100 End Sub Private Sub Command4_Click() Label1.Top = Label1.Top + 100 End Sub

《VB程序设计》考试题型练习 答案

《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性,它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种: 文字常量 、 符号常量(用户自定义常量) 系统内部常量 。 3. 变量的三要素是指: 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为: #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中,“\”是 整除 运算符;“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 (x+y+z )/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔,为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件,应将该属性设置为 500 ;为了暂时关闭计时器,应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑,需将文本框的哪个属性设置为True ( D )。 A )MultiLine B )Visible C )TabStop D )Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为( A )。 A )dfAS B )asAS C )dfas D )asas 3. 执行如下语句: a =InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框,在对话框的输入区中的默认值是( C )。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3,b=5,则以下表达式值为真的是( B )。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0)

VB程序设计实验报告

《VB程序设计》实验报告 专业:信息管理与信息系统 班级:1502班 学号: 姓名: 日期:2016年12月20日

一、实验题目:记事本程序的设计 二、实验目的 1、掌握菜单编辑器的使用方法。 2、掌握菜单事件的编程方法。 3、初步掌握多窗体程序设计方法。 三、实验内容与步骤 1、实验内容:设计一个记事本程序。 2、界面设计(贴出对象属性表和界面设计图)。 ①在窗体frmPad上添加一个文本框text1,并根据下表修改窗体及控件属性。 对象窗体属性设置 对象名属性值 FrmPad Caption “记事本” Text1 MultiLine True ScrollBars 2-Vertical Text 清空 ②使用菜单编辑器在窗体上建立菜单:选中窗体frmpad后,单击“工具”菜 单的“菜单编辑器”命令,弹出“菜单编辑器“对话框,如下图所示。 ③根据下表设置菜单。 菜单设置 菜单项标题菜单项名称快捷键其他属性编辑mnuEdit ···剪切mnuCut Ctrl+X ···复制mnuCopy Ctrl+C ···粘贴mnuPaste Ctrl+V

文本风格mnuStyle ···粗体(&B)mnuBold "复选"属性为True ···斜体(&I)mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut ···复制popCopy ···粘贴popPaste 设计好程序窗体如下图所示。 菜单编辑器

界面设计 3、编写程序代码。 Private Sub Form_Load() Text1.FontSize = 16 Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub '复制

VB程序设计答案

VB程序设计答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述VB的特点。 答:①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述VB的安装过程。 答:①向光驱中放入VB安装光盘; ②计算机将运行自动安装程序,若没有,执行VB目录下的Setup.exe; ③根据提示逐一回答问题,并点击“下一步”; ④点击“完成”; 2、如何启动VB。 答:三种方法: ①单击“开始”按钮,选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击; ②双击桌面上的VB6.0快捷图标; ③在“开始”菜单的运行对话框中输入命令来启动VB; 第二章习题参考答案 一、选择题: 1-10、DCACD BCBBC 11-20、BADCA BBAAB 21-29、AACBB CDDC 二、填空题 1.窗体、控件 2.属性值 3.属性窗口设置、代码窗口设置 4.事件过程 5.对象名、下划线、事件名 6.Form_Click 第三章习题参考答案

一、选择题 1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空题 1、11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 、Date、Object、Variant 2、双引号(英文)、# 3、ASCII、1、2 4、public、通用、Dim、Static、Private、Static 5、&、+、+ 6、Now()、Time、日期型 三、解答题 1、(3) 2、(1 ) 3、(1)常量(关键字)(2)字符型常量(3)逻辑型常量(4)变量(5)字符串常量(6)变量 (7)字符串常量(8)变量(9)日期型常量(题目应是#11/16/1999#)(10)数值型常量(单精度) 4、31 5、(1)(1+y/x)/(1-y/x) (2)x^3+3*x*y/(2-y) (3)sqr(abs(a*b-c^3)) (4)sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、(1)13 (2)17 (3)#1999-11-12# (4)zxy123ABC 8、(1)19 (2)8.16666666666667 (3)5.25 (4)2 9、(1)-4 (2)2 . 82842712474619 (3)-3 (4)49 (5)”hello”(6)He 7)16 (8)“-459.65”(9)5 10、(4) 11、(2) 12、(4) 第四章习题参考答案 一、选择题: 1—7: DAABBCD 二、填空题 1.500.00% 2.将字号扩大为原来的二倍 3. B 三、编程题(略) 1.文本框、标签和命令按钮的名称分别为text1、label1、command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text

VB程序设计学习与实验指导答案

Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.doczj.com/doc/b014480171.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1

2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6,845.30 9. (1)8 (2)1 (3)abcd (4)出错,类型不匹配 (5)False (6)2008-6-29 (7)I likeVB (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)8 (20)34.54 (21)中国 (22)上海 (23)VISUAL BASIC (24)visual basic 10. (1)x<-100 or x>100 (2)a=Int(a) And b =Int(b) Or a<0 And b<0 (3)x<=y or x>=z (4)a>0 And a<>Int(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,”@”)<>0 (10)Trim(S)=S (11)Date=#8/8/2008#

VB程序的设计教程课后答案

课后习题解答 第一、二章: 1、简述VB6.0的主要特点 答:方便、直观的可视化设计工具;面向对象程序设计方法;事件驱动的编程机制;易学易用的应用程序集成开发环境;结构化程序设计语言;完备的联机帮助功能;强大的多媒体、数据库和网络功能。2、当正常安装VB6.0后,误把Windows子目录删除。当重新安装Windows后,是否需要再次安装VB6.0? 答:要重新安装的。因为安装VB6.0时,有些VB程序被系统自动安装在Windows目录下,所以一旦删除Windows子目录,就必须重新安装VB6.0。 3、Visual Basic 6.0分为学习版、专业版和企业版,如何知道所安装的是哪个版本? 答:在VB6.0的启动界面上,能显示对应的版本。 4、叙述建立一个完整应用程序的过程 答:首先建立用户界面的控件对象(简称控件);然后对控件属性进行设置;再对控件事件过程及编程; 保存应用程序;程序调试和运行。 5、Visual Basic 6.0有多种类型窗口,若要在设计时看到代码窗口,应怎样操作? 答:选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。 6、当建立好一个简单的应用程序后,假定该工程仅有一个窗体模块。试问该工程涉及多少个要保存的文件? 若要保存该工程的所有文件,应先保存什么文件?再保存什么文件?若不这样做,系统会出现什么信息? 答:涉及两个文件要保存。先保存窗体文件(.frm),再保存工程文件(.vbp)。若先保存工程文件,系统也会先弹出“文件另存为”对话框,要求先保存窗体文件。 7、保存文件时,若不改变目录名,则系统默认的目录是什么? 答:系统默认的目录是VB98 8、安装Visual Basic 6.0后,帮助系统是否也已安装? 答:没有。VB6.0的帮助系统在两光盘上,即MSDN Library,其中还包含了VC、VFP等其他语言的帮助系统。 9、如何使用Visual Basic 6.0的帮助系统? 答:最方便的方法是选定要帮助的容,然后按F1功能键,这时系统打开MSDN Library查阅器,直接显示与选定容有关的帮助信息。 10、什么是类?什么是对象?什么是事件过程? 答:类是同类对象集合的抽象,它规定了这些对象的公共属性和方法; 对象是类的一个实例,对象包含三个要素:属性、方法和事件。 当在对象上发生了事件后,应用程序就要处理这个事件,而处理的步骤就是事件过程。 11、属性和方法的区别是什么? 答:属性是对象的特征,方法是对象的行为。前者有值,可以被赋值或引用;后者没有值,表示能够执行的操作。 12、当标签边框的大小由Caption属性的值进行扩展或缩小时,应对该控件的什么属性进行何种设置? 答:将该控件的Autosize属性值设置为true。 13、在VB6.0中,命令按钮的显示形式可以有标准的和图形的两种选择,它们通过什么属性来设置?若选 择图形的,则通过什么属性来装入图形?若已在规定的属性里装入了某个图形文件,但该命令按钮还是不能显示该图形,而显示的是Caption属性设置的文字,应怎样修改? 答:命令按钮的显示形式通过将Style属性值设置为Graphical来实现。通过Picture属性来装入图

VB设计计算器实验报告

VB 设计计算器 实验报告 姓名: 专业: 学号: 二0 一一年十一月七日

设计功能完整的计算器,实现如下图所示按钮(除“ MC,“MR , “MS,“M+ )及菜单功能,如图: 一、解题思路、分析: 对于我来说,设置一个完整的计算器是一个艰巨的任务,一开始想了一小段时间,自己试着编了一些,但就是无法达到一个完整的计算器,于是,就到网上去下载了一些有关计算 器的程序进行参考分析。首先先定义一些量,比如说前后两个操作数opl、op2,小数点是 否真存在的量DecimalFlag ,操作数个数NumOps上一次按键的类型等。接着对窗体进行初始化,同时设置所有变量为其初始。然后对各个键盘的命令进行编写程序,对0---9按键设 置为一个按键命令组,编写一个程序,同时加减乘除设置一个命令组,也编写一个程序,其 他按键都各自设置为一个命令,分别单独进行编写程序。同时在多个命令中都要对显示器中 的小数点进行分析,看它是否是真实存在。同时对于除法分母是否为0,也要加以考虑。 、源程序: Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastI nput = "NONE" OpFlag ="" Text1.Text = Format(0, "0.") 'Decimal.Captio n = Format(0, ".") End Sub Opti on Explicit Dim Op1, Op2 Dim DecimalFlag As In teger Dim NumOps As In teger Dim LastInput 类型 Dim OpFlag Dim TempReadout ' 窗体的初始化过程 ' 设置所有变量为其初始值 前面输入的操作数 小数点仍然存在吗? 操作数个数 指示上一次按键事件的 指示未完成的操作

vb程序设计试题(含答案)

第一套试题 一、选择题(每题2分,共30分) 1.在VB环境中,工程文件的扩展名是( C ) (A).frm (B).bas (C).vbp (D).frx 2.下面4项中不属于面向对象系统三要素的是( A ) (A)变量(B)事件(C)属性(D)方法 3. \、/、Mod、*这4个算述运算符中,优先级别最低的是( C ) (A)\ (B)/ (C)Mod (D)* 4.要使Print方法在Form_Load事件中起作用,要对窗体的( C )属性进行设置(A)BackColor (B)ForeColor (C)AutoRedraw (D)Caption 5.不论何控件,共同具有的属性是( B ) (A)Text (B)Name (C)ForeColor (D)Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”,以下语句正确的是( D ) (A)Form1.Caption=“欢迎使用VB”(B)Form1.Caption=ˊ欢迎使用VBˊ(C)Form1.Caption=欢迎使用VB (D)Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构,这3种基本结构是( D ) (A)递归结构,选择结构,循环结构(B)选择结构,过程结构,顺序结构 (C)过程结构,输入、输出结构,转向结构(D)选择结构,循环结构,顺序结构 8.给变量赋值a=123+MID(“123456”,3,2),a变量中的值是( D ) (A)“12334”(B)123 (C)12334 (D)157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是( D ) (A)If sex=“男”And age<40 And InStr(duty,“教授”)>0 Then n=n+1 (B)If sex=“男”And age<40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 (C)If sex=“男”And age<40 And Right(duty,2)= “教授” Then n=n+1 (D)If sex=“男”And age<40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容,可用来实现的方法是( C )

VB程序设计教程 实验2答案

41011066付乾峰资源1103实验2 自测练习1,程序 Private Sub Command1_Click() Dim s s = Text1.Text Label1.Caption = Left(s, 2) End Sub Private Sub Command2_Click() Dim s s = Text1.Text Label2.Caption = Right(s, 2) End Sub Private Sub Command3_Click() Dim s s = Text1.Text Text1.Text = Label1.Caption & Label2.Caption End Sub 截图

自测练习2,程序 Private Sub Command1_Click() Dim m%, a%, b%, c%, d% m = V al(Text1.Text) a = m Mod 10 b = m \ 10 Mod 10 c = m \ 100 Mo d 10

d = m \ 1000 a = (a + 7) Mod 10 b = (b + 7) Mod 10 c = (c + 7) Mo d 10 d = (d + 7) Mod 10 Print "加密前的4位整数是" & m Print "加密后的结果是" & a & b & c & d End Sub Private Sub Command2_Click() End End Sub 截图 “我和校庆合张影,我给校庆送祝福”——北京科技大学学生公寓九斋活动策划

一、活动名称 “我和校庆合张影,我给校庆送祝福” ——北京科技大学学生公寓九斋活动 二、活动意义 1.在校庆前,表达九斋学员对北科60年校庆的祝福 2.展现九斋学子积极向上的精神风貌 3.加深学生与楼层长之间的友谊便于以后的管理 4.调动大家对校庆的热情与关注欲望 5.增进同学与同学之间的联系 活动地点及时间 地点:九斋一楼大厅校篮球场 时间:2011年3月20日-25日 三、活动对象 北京科技大学九斋公寓所有学生 四、内容: 1.活动时间推进表 时间任务

[整理]VB程序设计复习题及答案.

中南大学现代远程教育课程(专科)考试复习题及答案 《VB程序设计与应用》 一、选择题:在每小题给出的四个选项中,只有一项是符合题目要求的,请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是()。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是()。[ ] A: Filename B: A(A+B)C: A%D D : Print 3. 要让菜单项无效,应将()属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是()事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是()属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中,不正确的为()。[ ] A)事件是由Visual Basic预先定义好的,能够被对象识别的动作 B)DblClick(双击)是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件,需要程序员自己定义 7. 下列控件中可设置滚动条是()。 [ ] A. 检查框(复选框) B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体,( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1,则One为()类型的常数。[ ] A)整型 B)字节型

相关主题
文本预览
相关文档 最新文档