文档库 最新最全的文档下载
当前位置:文档库 › VB课后作业

VB课后作业

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 click

Text1.visiable=false

Command2 click

Text2.visiable=true.

Text2.fontsize=16

Text2.text=”VB程序设计”

12.VB中变量名只能以字母开始。

13.or and 取负。

14.Unicode与ANSI的转换函数是:strconv。Unicode方式,西文,中文都为1个字符,占2个字节。

15.28°=(28/180)*3.14

16.任何函数的参数,都要用括号括起。

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) →-1

26.负号与平方一起时:先平方,再负号。

27.format()。#不需添0,而0需要添。

28.inputbox(),如果未定义,则返回值都为字符串。

29.msgbox与inputbox的参数一定要搞清楚。

30.注:msgbox(“”,type.title)

31.注;inputbox(“”,title,default)

32.各种数据类型对应的符号。

33.数字的位数问题。例:a=11 b=22 print a;b →,11,,22→第一个逗号为符号位。每个正数的后面有一个空格。

字符串前后没有空格。

34.以下程序代码在窗体的单击事件过程(form_click)中编写,结果输出到窗体上。

a)从键盘上输入4个数,编写程序,计算并输出这4个数的和及平均值。通过inputbox函数输入数据,在窗体

显示和及平均值。

解:

我的:

dim a,b,c,d as double

Dim total,average as double A=inputbox(“请输入数”) B=inputbox()

C=

D

Total=a+b+c+d

Average=total/4 吴军的:

Dim x1 as single

Dim x2 as single

Dim x3 as single

Dim x4 as single

X1=inputbox(“请输入第一个数”) X2=inputbox(“请输入第二个数”) X3=inputbox(“请输入第三个数”) X4=inputbox(“请输入第四个数”) Print “和为”;x1+x2+x3+x4

Print “平均值为”;(x1+x2+x3+x4)/4

b)编写程序,要求用户输入下列信息:姓名、年龄、通信地址、邮政编制、电话。然

后将输入的数据用适当的格式在窗体上显示出来。

解:dim mz as string

Dim nl as integer

Dim dz as string

Dim yz as string

Dim dh as string

Mz=inputbox(“请输入姓名”)

Nl=inputbox(“请输入年龄”)

Dz=inputbox(“请输入地址”)

Yz=inputbox(“请输入邮政编码”)

Dh=inputbox(“请输入电话号码”)

Print mz,nl,dz,yz,dh

(注意这儿的间隔号为逗号)

区别:

逗号:按标准输出格式显示数据项。14个字符位置为单位把一个输出行分为若干个区段,逗号后面的表达式在下一个区段输出。

如果各输出项之间用分号或空格作出分隔符,则按紧凑输出格式输出数据。

c)编写程序,求解鸡兔同笼问题,一个笼子中有鸡x只,兔y只,每只鸡有2只脚,

每只兔有4只脚,今知鸡和兔的总头数为h,总脚数为f。问笼中鸡和兔各若干?

h=71 f=158.

解:

Dim x as integer

Dim y as integer

Dim h as integer

Dim f as integer

H=inputbox(“请输入鸡和兔的总头数”)

F=inputbox(“请输入鸡和兔的总脚数”)

X=(4*h-f)/2

Y=(f-2*h)/2

?”鸡的只数为”;x

?”兔的只数为”;y

注:公式不能直接输入方程组,必须是用常量代替的式子。

d) 设a=5,b=2.5,c=7.8,编写程序计算:c

b a ab y ?+∏=

解:

Dim a as single Dim b as single Dim c as single

Const pi =3.1415926 A=5;b=2.5;c=7.8 Y=(pi*a*b)/(a+b*c) ?y

e) 输入以秒为单位表示的时间,编写程序,将其换算成几日几时几秒。 解:

Dim s As Long Dim n As Long Dim m As Long Dim l As Long Dim k As Long

s = Val(InputBox("shuru")) n = s \ 86400 s = s Mod 86400 m = s \ 3600 s = s Mod 3600 l = s \ 60 s = s Mod 60 k = s

Print n; "日"; m; "时"; l; "分"; k; "秒" 注:考虑清楚mod 与 \的用法。 f)

自由落体位移公式为:t v gt

s 02

21+=

,其中v0为初始速度,g 为重力加速度,

t 为经历程的时间,编写程序,求位移量s ,设v0=4.8m/s,t=0.5g,g=9.81m/s2,在程序中把g 定义为符号常量,用Inputbox 函数输入v0和t 两个变量的值。 解:dim s as double dim v as double dim t as double const g =9.81 v=inputbox(“”) t=inputbox(“”) s=(g*t^2)/2+v*t ?s

35. 使文本框既有水平滚动条,又有垂直滚动条。第一步:multiline=TRUE 。第二步:

scrollbars=3.(0——没有。1——水平。2——垂直。3——水平和垂直。)

36.backstyle:0——为透明。1——为覆盖背景。

37.alignment:0——靠左。1——靠右。2——居中。

38.控件的属性:default=true , cancle=true时,代表,按enter键、esc键,就可以执行。

39.multiselect =1.代表可以不用shift ctrl来选择多个

40.整型:%

41.长整型:&

42.单精度浮点数:!

43.双精度浮点数#

44.货币型@

45.字符串型:$

46.决定窗体有无控制菜单的属性是:controlbox

47.列表框,组合框。添加项目:additem 删除:removeitem

48.标签自动调整大小,以显示全部文本内容,应把标签的autosize属性设置为true .

49.文本框中显示垂直滚动条。不仅要把scrollbars=2,还要把multisize=true.

50.为了使自动放大或缩小图像框中的图形以与图像框的大小相适应,必须把图像框的

stretch=false。

51.计时器的间隔属性为interbal

52.列表框中的序号从0开始。

53.CH6

a)在窗体上画4个图像框和一个文本框,在每个图像框中装入一个箭头图像,分为4

个不同的方向,在文本框的multiline属性设置为true,编写程序:当单击某个图像

框时,在文本框中显示相应的信息。

设计视图中:注意:stretch=FALSE。Pictures属性等。此图为image,所以不可作为父控件,有stretch属性。可以自动适应图的大小。

Private Sub Image1_Click()

Text1.Text = "单击向上箭头"

End Sub

Private Sub Image2_Click()

Text1.Text = "单击向下箭头"

End Sub

Private Sub Image3_Click()

Text1.Text = "单击向右箭头"

End Sub

Private Sub Image4_Click()

Text1.Text = "单击向左箭头"

End Sub

b)在窗体上建立3个文本框和一个命令按钮。程序运行后,单击命令按钮,在第一个

文本框中显示由command_click事件过程设定的内容,同时在第二个,第三个文本

框中分别用小写字母和大写字母显示第一个文本框中内容。

(提示:用第一个文本框的change事件过程在第二个、第三个文本框中显示指定的内容)

一.Private Sub Command1_Click()

Text1.Text = "Microsoft Visual Basic"

Text2.Text = LCase(Text1.Text)

Text3.Text = UCase(Text1.Text)

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

二、Private Sub Command1_Click()

Text1.Text = "Microsoft Visual Basic"

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub Text1_Change()

Text2.Text = LCase(Text1.Text)

Text3.Text = UCase(Text1.Text)

End Sub

c)编写程序:用文本框检查口令输入。在窗体建立一个文本框、一个图片框和3个命

令按钮,把3个命令按钮的标题分别设置为开始,检查口令和结束。运行后,

单击第一个命令按钮,清除文本框的信息。并把光标移到文本框中,接着在文本框

中输入口令,然后单击第二个,检查输入的口令是否正确。如果正确,则图片框中

显示一个图形,否则显示一个信息框,要求重新输入,此时将调用第一个命令按钮

的click事件过程,再一次在文本框中输入口令,直到输入正确的口令为止。如果

单击结束按钮,则结束程序。

解:

Private Sub Command1_Click()

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

If Text1.Text = "1234" Then

Picture1.Picture = LoadPicture("C:\Users\ma\Desktop\6——3\1.jpg")

Else

MsgBox "口令不正确,请重新输入。”"

End If

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Command1.Caption = "开始"

Command2.Caption = "检查口令"

Command3.Caption = "结束"

Text1.Text = ""

Text1.PasswordChar = "*"

End Sub

d)用图形编辑软件,话一个简单的图形,然后把它装入图片框。

e)编写程序,演示列表框控件的基本操作,在窗体上建立两个列表框、两个命令按钮,

程序运行后,在第一个列表框中选择所需要的项目,单击添加按钮,把所选择的

项目移到第二个列表框中,如果单击删除按钮,则执相反工作。第二个列表框中,

允许选择多个项目。要求每个列表框的下面用标签控件显示各自的style 和sorted.

本题中:sorted和style、multiselcted为Listbox的只读属性。只能设计时在属性框中修改。

List1.RemoveItem List1.Text(错的)因为:text属性为选中的值,不可以直接修改。

Private Sub Command1_Click() List2.AddItem List1.Text

List1.RemoveItem List1.ListIndex End Sub

Private Sub Command2_Click() List1.AddItem List2.Text

List2.RemoveItem List2.ListIndex End Sub

Private Sub Form_Load()

Form1.Show

List1.AddItem "日本"

List1.AddItem "中国"

List1.AddItem "美国"

List1.AddItem "法国"

List1.AddItem "英国"

List1.AddItem "德国" List1.AddItem "马来西亚"

If List1.Sorted = False Then

Label1.Caption = "sorted=false" Else

Label1.Caption = "sorted=true" End If

If List1.Style = 0 Then

Label2.Caption = "style=standard" Else

Label2.Caption = "style=checkbox" End If

If List2.Sorted = False Then

Label3.Caption = "sorted=false" Else

Label3.Caption = "sorted=true" End If

If List2.Style = 0 Then

Label4.Caption = "style=standard" Else

Label4.Caption = "style=checkbox" End If Command1.Caption = "添加" Command2.Caption = "删除" End Sub

Listbox 的相关属性:

1.list——该属性用来列出表项的内容。S=列表框.list(index)

2.listcount——列表框的数量。

3.listindex——已选中列表项的位置。

4.multiselect——0,只能选一项。1,可以同时选多个想。2,可以选择指定范围内的表项。

5.selected——选择指定表项,或取消选择表项。列表框.selected(索引值)=true 或false。

6.当multiselect=1,2时,处理控件选择的项目数。

7.sorted。排序。

8.text——为选中的项的值。

事件:

列表框.additem 项目字符串[,索引值]

列表框.cls 清除所有内容

列表框.removeitem 索引

f)编写程序:用计时器按秒计时,在窗体上画一个计时器控件和一个标签,程序运行后在标签内显示经过的秒

数,并响铃。

系统时间显示,并响铃:Private Sub Form_Load() Label1.Caption = ""

Timer1.Interval = 1000 Label1.FontBold = True Label1.FontSize = 40

Label1.Font = "黑体"

Label1.AutoSize = True

End Sub

Private Sub Timer1_Timer() Label1.Caption = Time$ Beep

End Sub

显示经过了几秒钟:Public i As Integer——非常重要的一个定义。Private Sub Form_Load()

Label1.Caption = ""

Timer1.Interval = 1000

Label1.FontBold = True

Label1.FontSize = 40

Label1.Font = "黑体"

Label1.AutoSize = True

End Sub

Private Sub Timer1_Timer()

i = i + 1

Label1.Caption = "经过了" & i & "秒" Beep

End Sub

54.CH7

1.编写程序:计算1+2+3+4 (100)

解:

Private Sub Command1_Click()

Dim i As Integer

Dim total As Integer

total = 0

For i = 1 To 100 Step 1

total = total + i

Next

FontSize = 30

FontName = "楷体"

Print "1+2+3+4+5+…+100" & "=" & total

End Sub

Private Sub Command2_Click()

End

End Sub

2.我国现有人口约为12亿,设年增长率为1%,编写程序,计算多少年后增加到20亿。

解:结果为52年

Private Sub Form_Click()

Dim a, m, n As Single

a = 0.01: m = 12: n = 20

Dim i As Integer

While m <= n

i = i + 1: m = m * (1 + 0.01)

Wend

FontSize = 30

Print "现有的12亿人口,要到" & i & "年后,才回到20亿"

End Sub

3.给定三角形的3条边长,计算三角形的面积,编写程序,首先判断给出的3条边能否构成三角形,如可以构成,

则计算并输出该三角形的面积,否则要求重新输入。当输入-1时结束程序。

解:

Private Sub Form_Click()

Dim a, b, c As Integer

Dim p, s As Double

Dim m As Boolean

m = False

Do Until (m = True)

a = Val(InputBox("请输入边长1"))

If a = -1 Then End

b = Val(InputBox("请输入边长2"))

If b = -1 Then End

c = Val(InputBox("请输入边长3"))

If c = -1 Then End

If (a + b > c) And (a + c > b) Then

m = True

Else

MsgBox ("输入错误,请重新输入")

End If

Loop

If m = True Then

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

FontSize = 30

Print "边长为:" & a; b; c & "的三角形面积为:" & s

End If

End Sub

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

a)收入在200元以内,免征。

b)收入在200——400元内,超过200元的部分纳税3%;

c)收入超过400元的部分,纳税4%

d)收入达到5000元或超过时,将4%税金改为5%

编程序实现上述操作。

解:

Private Sub Form_Click()

Dim a As Double

Dim s As Double

Dim y As Integer

100 a = V al(InputBox("请输入您的工资"))——100为行号标记

Select Case a

Case Is <= 200: s = 0

Case 200 To 400: s = (a - 200) * 0.03

Case 400 To 5000: s = (a - 400) * 0.04 + 200 * 0.03

Case Is > 5000: s = (a - 5000) * 0.05 + 200 * 0.03 + 400 * 0.04

End Select

FontSize = 40

Print "工资为" & a & "元时,需缴税" & s & "元"

y = Val(InputBox("如要继续,请输入数字1;如不继续,输入任意一个非1的数字即可。", "是否要继续计算")) If y = 1 Then

GoTo 100

Else

End

End If

End Sub

5.假定有以下每周工作安排:

星期一、三:讲计算机课

星期二、四:讲程序设计课

星期五:进修英语

星期六:政治学习

星期日:休息

试编写一个程序,对上述工作日程进行检索。程序运行后,要求输入一周里的某一天,程序将输出这一天的工作安排。再输入时用0——6分别代表星期日到星期六,如果输入0——6之外的数,则程序结束运行。

解:

Private Sub Form_Click()

Dim a As String

Dim s As Integer

100

a = InputBox("请输入要检索哪一天:可以输入数字0-6 或汉字一to 日")

Select Case a

Case "一", "三", 1, 3: Print "今天是计算机课"

Case "二", "四", 2, 4: Print "今天上程序设计课"

Case "六", 6: Print "今天是政治学习"

Case 5, "五": Print "今天进修英语"

Case 0, "日": Print "今天休息"

End Select

s = Val(InputBox("如继续,则输入数字1;如不需继续,则输入其余数字即可。", "是否继续"))

If s = 1 Then

GoTo 100

Else

End

End If

End Sub

6.编写程序:打印如下所示的“数字金字塔”

见书

解:注意:因为输入的是数字,数字位数占3位。符号位+数字+空格。所以8=5+j。

Private Sub Form_Click()

Dim i As Integer

Dim j As Integer

Dim k As Integer

k = Val(InputBox("请输入需要打印几行数字"))

For i = 1 To k

Print Spc((k - i) * 8);

For j = 1 To i

Print Spc(5); j;

Next

For j = i - 1 To 1 Step -1

Print Spc(5); j;

Next

Print

Print

Next

End Sub

7.勾股定理中3个数的关系是:a2+b2=c2。编写程序,输出30以内满足上述关系的整数组合,例如3,4,5就是

一个整数组合。

解:

Private Sub Form_Click()

Dim a, b, c As Integer

Dim i, j, k As Integer

For i = 1 To 30

For j = i + 1 To 30

For k = j + 1 To 30——————————————————因为1不可能与1自己本身构成勾股定理。

If i ^ 2 + j ^ 2 = k ^ 2 Then

Print i, j, k

End If

Next k

Next j

Next i

End Sub

注意:因为本程序运行的次数比较多,所以不要再for,next间,随意的加print语句,否则有可能不会看到结果。

8.从键盘上输入两个正整数M和N,求最大公因子。

解:

Private Sub Form_Click()

Dim m, n As Integer

Dim i, a, b As Integer

m = Val(InputBox("请输入数m"))

n = Val(InputBox("请输入数n"))

If m > n Then

a = m

b = n

Else

a = n

b = m

End If

Do

i = a Mod b

a = b

b = i

Loop Until (i = 0)----辗转相除法

i = a

Print i

End Sub

9.如果一个数的因子之和等于这个数本身,则称这样的数为“完全数”,例如,整数28的因子为1,2,4,7,

14,其和1+2+4+7+14=28,因为28是一个完全数。编写一个程序,从键盘上输出正整数N和M,求出M和N之间的所有完全数。

解:

Function wanquanshu(x)

Dim a As Integer

Dim i As Integer

Dim total As Integer

a = Int(x / 2)

For i = 1 To a

If x Mod i = 0 Then total = total + i

Next i

If total = x Then

wanquanshu = 1

Else

wanquanshu = 0

End If

Dim m, n As Integer

Dim i, j, k As Integer

m = Val(InputBox("请输入正数m"))

n = Val(InputBox("请输入正数n"))

For i = m To n

j = wanquanshu(i)

If j = 1 Then Print i & "为完全数"

Next i

End Sub

10.编写程序,打印如下的乘积表:

*3 6 9 12

15…

16…

17…

18…

Private Sub Form_Click()

Dim i, j, k, m, n As Integer

FontSize = 30

Print Spc(6);

For i = 3 To 12 Step 3

Print i; Spc(4);

Next i

For j = 15 To 18 Step 1

Print

Print j;

For k = 3 To 12 Step 3

Print j * k; Spc(4);

Next k

Next j

Print

End Sub

11.从键盘上输入一个学生的学号和考试成绩,然后输出该学生的学号和考试成绩,并根据成绩按下面的规定输出

该学生的评语。见书。

解:

Private Sub Form_Click()

Dim n As Integer

Dim m As String

FontSize = 30

m = Str(InputBox("请输入学生的学号"))

n = Val(InputBox("请输入此学生的成绩"))

Print "学号为" & m & "的学生的成绩为:" & n;

Select Case n

Case 80 To 100: Print Spc(6); "very good"

Case 60 To 79: Print Spc(6); "good"

Case 50 To 59: Print Spc(6); "fair"

Case 40 To 49: Print Spc(6); "poor"

Case 0 To 39: Print Spc(6); "fail"

End Select

End Sub

12.一个两位的正整数,如果将它的个位数字和十位数字对调,则产生另一个正整数,我们把后者叫做前者的对调

数。现给定一个两位的正数,请找到一个两位的正整数,是的这两个两位正整数之和等于它们各自对调数之和,例如:12+32=21+23.编写程序,将具有这一特征的一对两位正整数都找出来。

解:

所有的符合特征的两位数。

Private Sub Form_Click()

Dim n, m, i, j, a, b, c, d As Integer

For i = 10 To 99

For j = 10 To 99

n = i Mod 10: m = i \ 10

a = j Mod 10:

b = j \ 10

c = n * 10 + m

d = a * 10 + b

If c + d = i + j Then

Print Spc(5);

Print d; "+"; c; "="; i; "+"; j;

End If

Next j

Print

Next i

End Sub

固定一个数。

Private Sub Form_Click()

Dim n, m, a, b, c, d, i, j As Integer

n = Val(InputBox("输入两位数字n"))

For m = 10 To 99

a = n Mod 10

b = n \ 10

c = m Mo

d 10

d = m \ 10

i = a * 10 + b

j = c * 10 + d

If (i + j) = (n + m) Then

Print Spc(5);

Print i; "+"; j; "="; m; "+"; n

End If

Next m

End Sub

55.Break:结束所有continue :结束本次…

56.const 符号常量定义

57.dim static public private

58.VB工具——选项——编辑器

59.F7打开代码窗口

60.F4打开属性窗口

61.enum

62.byte ——2B

63.Boolean ——2B

64.date——8B

65.object——4B

66.decimal——12B

67.CH8

1.Array函数建立的数组的名字必须是变体型(variant)或者不写。

a)并且它定义的函数,必须为static。

2.编程题:

1)从键盘上输入10个整数,并放入一个一维数组中,然后将其前5个元素与后5个元素对换,即第1个元

素与第10个元素互换,第2个元素与第9个元素互换…第5个与第6个互换。分别输出数组原来个元素

的值和兑换后各元素的值。

解:

Option Base 0---一定要放在通用中,否则为无效,错误。

Private Sub Form_Click()

Dim a(10) As Integer

Dim b(10) As Integer

Dim i As Integer

FontSize = 30

For i = 0 To 9

a(i) = Val(InputBox("请输入整数"))

Next i

For i = 0 To 9

Print Spc(3); a(i);

Next i

Print

For i = 0 To 9

b(i) = a(9 - i)—本题的关键。

Print Spc(3); b(i);

Next i

End Sub

2)设有如下两组数据:A:2,8,7,6,4,28,70,25 B:79,27,32,41,57,66,78,80 编写一个

程序,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,8+27等,

并把相应的结果输入第三个数组中,最后输出第三个数组的值。

解:

Option Base 0

Private Sub Form_Click()

Dim i, j, m, n As Integer

Static a As Variant—定义固定的数组的方式,且,此方法定义的a一定不能加下标。

Static b As Variant

Dim c(8) As Integer

a = Array(2, 8, 7, 6, 4, 28, 70, 25)—array函数,与static对应引用。

b = Array(79, 27, 32, 41, 57, 66, 78, 80)

FontSize = 30

For i = 0 To 7

c(i) = a(i) + b(i)

Print Spc(3); c(i);

End Sub

3)有一个n*m矩阵,编写程序,找出其中最大的元素所在的行和列,并输出其值及行号和列号。

解:

Option Base 0

Private Sub Form_Click()

Dim a() As Integer

Dim n, m As Integer

Dim i, j As Integer

Dim max, c, b As Integer

n = Val(InputBox("请输入矩阵的行数:"))

m = Val(InputBox("请输入矩阵的列数:"))

ReDim a(n, m)---不存在redim a (n*m)的形式。

FontSize = 30

For i = 0 To n - 1

For j = 0 To m - 1

a(i, j) = Val(InputBox("请输入数组中的元素值"))

Next

Next

max = 0

For i = 0 To n - 1

For j = 0 To m - 1

If a(i, j) > max Then

max = a(i, j)

c = i

b = j

End If

Next j

Next i

Print "最大数为:第" & c + 1 & "行,第" & b + 1 & "列的:" & max

End Sub

4)编写程序,把下面的数据输入一个二维数组中:25 36 78 13 ;12 26 88 93 ;75 18 22 32 ;56 44 36 58.

然后执行以下操作:输出矩阵两个对角线上的数;分别输出各行合格列的和;交换第一行和第三行的位置,交换第二列和第四列的位置。输出处理后的数组。

解:

Option Base 0

Dim a(3, 4) As Variant

Dim i, j, k, h, l As Integer

Dim htotal(4) As Integer

Dim ltotal(4) As Integer---通用过程

Private Sub Command1_Click()

FontSize = 20

Print "输出矩阵对角线上的数:"

For i = 0 To 3

For j = 0 To 3

If i = j Then Print a(i, j);

Next j

For i = 0 To 3

For j = 0 To 3

If i + j = 3 Then Print a(i, j);

Next j

Next i

Print

End Sub

Private Sub Command2_Click()

FontSize = 20

For k = 0 To 3

h = 0:l = 0

For i = 0 To 3

For j = 0 To 3

If i = k Then h = h + a(i, j)

If j = k Then l = l + a(i, j)

Next j

Next i

htotal(k) = h

ltotal(k) = l

Next k

Print "每行的和:"

For k = 0 To 3

Print htotal(k);

Next k

Print

Print "每列的和:"

For k = 0 To 3

Print ltotal(k);

Next k

Print

End Sub

Private Sub Command3_Click()

Dim m As Integer

Dim x(4) As Integer—中间变量

For m = 0 To 3

x(m) = a(0, m)

a(0, m) = a(2, m)

a(2, m) = x(m)

Next m

Print "交换行后的数组:"

For i = 0 To 3

For j = 0 To 3

Print a(i, j);

Next j

Print

Next i

Print "交换行和列后的数组:"

For m = 0 To 3

x(m) = a(m, 1)

a(m, 1) = a(m, 3)

a(m, 3) = x(m)

Next m

For i = 0 To 3

For j = 0 To 3

Print a(i, j);

Next j

Print

Next i

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Click()

FontSize = 20

For i = 0 To 3

For j = 0 To 3

a(i, j) = Val(InputBox("请输入矩阵元素"))

Next

Next

For i = 0 To 3

For j = 0 To 3

Print a(i, j);

Next j

Print

Next i

End Sub

试编写一个程序,对该名册进行检索。程序运行后,只要在键盘上输入一个人名,就可以在屏幕上显示出这个人的情况。要求:动态数组,人数可以变动;人名不存在时,可以输出相应的信息;每次检索结束时,询问是否继续检索。

解:

.bas——标准模块中的:

Type rymc

xm As String

xb As String

nl As String

whcd As String

jg As String

End Type

窗体中:

Public Sub Command1_Click()

Dim s() As rymc

m = Val(InputBox("您将输入几组记录"))

ReDim s(m)

FontSize = 30

For i = 0 To m - 1

s(i).xm = InputBox("请输入姓名")

s(i).xb = InputBox("请输入性别")

s(i).nl = InputBox("请输入年龄")

s(i).whcd = InputBox("请输入文化程度")

s(i).jg = InputBox("请输入籍贯")

Next

Dim an As Boolean

Dim h As String

Dim k As Integer

Dim a As Integer

100

an = False

h = InputBox("请输入要查询的人名")

For i = 0 To m - 1

If h = s(i).xm Then

an = True

k = i

End If

Next i

If an = True Then

Print Spc(3); s(k).xm; Spc(3); s(k).xb; Spc(3); s(k).nl; Spc(3); s(k).whcd; Spc(3); s(k).jg

a = MsgBox("是否继续检索?", vbYesNoCancel)

If a = 6 Then

GoTo 100

Else

End

End If

Else

MsgBox ("检索不成功")

End If

End Sub

注:msgbox 函数。B=msgbox(注解,形式,题目,…)形式:=3 vbyesnocancel。结果:6为yes,7为no ,2为cancel。

6)某单位开运动会,共有10人参加男子100米短跑,运动员和成绩如下:

207号,14.5秒;077号,15.1秒;156号,14.2秒;等。

编写程序,按成绩排出名次,并按如下格式输出:

名次运动员号成绩

1

2…

解:

Type yundongyuan---标准模块中定义

number As String

chengji As Single—成绩为小数

mingci As Integer

End Type

Private Sub Form_Click()

Dim n As Integer

n = Val(InputBox("有多少名运动员"))

Dim i, j, t As Integer

Dim m() As yundongyuan---运用标准模块中的自定义类型

ReDim m(n)

For i = 0 To n - 1

m(i).number = InputBox("请输入运动员号")

m(i).chengji = InputBox("请输入成绩")

Next

For i = 0 To n - 1

For j = n - 1 To i Step -1---冒泡排序法

If m(i).chengji > m(j).chengji Then

t = m(i).chengji

m(i).chengji = m(j).chengji

m(j).chengji = t

End If

Next j

Next i

Print Spc(3); "名次"; Spc(3); "运动员号"; Spc(3); "成绩"

For i = 0 To n – 1----对变量中的名次赋值

m(i).mingci = i + 1

Next i

For i = 0 To n - 1

Print

Print Spc(3); m(i).mingci;

Print Spc(3); m(i).number;

Print Spc(3); m(i).chengji;

Next i

Print

End Sub

7)编写程序,建立并输出一个10*10的矩阵,该矩阵对角线元素为1,其余元素均为0. Dim i, j As Integer

FontSize = 30

For i = 0 To 9

For j = 0 To 9

If i <> j And (i + j) <> 9 Then

a(i, j) = 0 End If

If i = j Or (i + j) = 9 Then a(i, j) = 1 End If Next Next

For i = 0 To 9 Print

For j = 0 To 9 Print a(i, j); Next Next End Sub

8) 编写程序,实现矩阵转置,即将一个 n*m 的矩阵的行和列互换。如:a 矩阵为:

a = 456

123。转置后为:b=46

2514

解:

Private Sub Form_Click() Dim a() As Integer Dim b() As Integer Dim n, m As Integer Dim i, j, k As Integer

n = Val(InputBox("请输入矩阵的行数")) m = Val(InputBox("请输入矩阵的列数")) ReDim a(n, m) ReDim b(m, n) For i = 0 To n - 1

For j = 0 To m - 1

a(i, j) = Val(InputBox("输入数值")) Next j Next

Print "转置前" For i = 0 To n - 1 Print

For j = 0 To m - 1 Print a(i, j); Next j Next Print

Print "转置后"

For i = 0 To m – 1——转置后的行数 For j = 0 To n – 1——转置后的列数 b(i, j) = a(j, i)

Next Next

VB上机综合测试题(十五套)

VB上机综合测试题(一) 一、如下所示,在窗体上,放置一个文本框text1(文本框中的文字为“改变字形”,居中显示)。三个复选框check1,check2和check3,如图设置属性。要求:当用户单击“加粗”、“斜体”、“下划线”这三个复选框时(即当复选框被选中时)能将文本框的字形变为“粗体、斜体、加下划线”(25分) 二、在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值")。程序运行后,单击命令按钮完成以下工作:①随机产生20个0到1000的整数,将其放入一个一维数组中②求出所有元素的平均值,并显示在窗体上(如下图所示)(35分) 三、请设计如下图所示窗体界面。运行程序时,先向左侧文本框中输入一个不超过10的正整数,然后选择"N的阶乘"或"(N+2)的阶乘"单选钮,即可进行计算,计算结果在右侧文本框中显示。请编写程序完成上述功能。(40分)

答案: 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub

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程序设计网上作业2016

题1.若要使命令按钮不可操作,要对下列哪个属性进行设置 A、Enabled B、Visible C、BackColor D、Caption 标准答案:A 题2.打开文件的Open语句中,如果省略“For模式”,则打开的文件的存取方式是 A、顺序存取方式 B、顺序文件方式 C、随机存取方式 D、二进制方式 标准答案:C 题3.命令按钮、单选按钮、复选框上都有Picture属性,可以在控件上显示图片,但需要通过下列哪一个属性来控制 A、Appearance属性 B、Style属性 C、DisabledPicture属性 D、DownPicture属性 标准答案:B 题4.系统启动时自动执行下列哪一个事件过程

A、Load B、Click C、UnLoad D、GotFocus 标准答案:A 题5.VB工程中窗体文件的扩展名是 A、.bas B、.frm C、.vbg D、vbp 标准答案:B 题6.如下数组声明语句,正确的是 A、Dim x[1,4] As integer B、Dim x(1, 1 to 4) As integer C、Dim x([1,n] As integer D、Dim x(1 4) As integer 标准答案:B 题7.如下VB的特点中错误的是 A、简单易学 B、界面友好

C、不可编译 D、集成化环境 标准答案:C 题8.从随机文件读出数据使用的语句是 A、Input # 文件号,变量名 B、Get # 文件号,变量名 C、Put # 文件号,变量名 D、Write # 文件号,变量名 标准答案:B 题9.为了防止用户随意将光标置于控件之上,应 A、将控件的TabIndex属性设置为0 B、将控件的Tapstop属性设置为True C、将控件的TapStop属性设置为False D、将控件的Enabled属性设置为False 标准答案:D 题10.如果希望在InputBox的提示项中输出多行内容时,需要使用下列哪个参数实现 A、Chr(13)+Chr(10) B、Chr(13) C、Chr(10) D、Chr(10)+Chr(13) 标准答案:A

VB程序设计作业参考答案

《VB程序设计》作业参考答案 一.选择题 1-5 ABC CB 6—10 CCA DC 11-15 ABC DB 15-20CDA CB 21-25DBD CC 25-30DAC AA 31-35 DAC AA 36-40 BCC CD 41-45 CCC AC 46-50DDB AD 51-55 ACA CD 56-60 BCA DA 61-65 BAADB 66-70DBDAC 71-75BBBAD 76—80CDABC 81-85ABCD C 86-90BAADD 91-95CBBAD 96.B 二.填空题 (1) E (2) 程序代码(3) CmdDisplay.Visible =False(4) t=a(j)(5) And (6) 回车符(7) text2.setfocus (8) 3 (9) D=B:B=C:C=D (10) Random (11)事件过程(12) 打开对话框(13) 3 (14) a(i,j)=0 (15) L1.text (16) Put # (17) True (18) I MOD 4=0 (19) AaBbCc (20)INT(Rnd*100) ;arr (21)Output ;Write #1,StuNo,StuName,StuEng (22)10 (23)4 (24) 顺序,随机 (25)INPUT,OUTPUT,APPEND (26)程序代码窗口的字符过大或过小,可以通过(工具→选项→编辑器格式→大小)去改变。(27)窗体、控件、对象(28)界面设计(29)对象、代码(30)窗体、标准模块、类模块、工程(31)窗体(Form)、图片框(PictureBox)、打印机(Printer)、立即窗口(Debug) (32)E D(33)81 (34)程序,数据(35)窗体、控件、对象(36)对象、代码(37)用户界面的窗体、执行具体操作的代码。(38)Picture属性、剪切板把图形粘贴 三.编程题 1. Option Base 1 Private Sub Form_click() Dim a(3) As Integer, m As Integer Do While m <> -1 And i < 3 m = InputBox("请输入第" & i + 1 & "条边") i = i + 1 a(i) = m If a(i) < 0 Then MsgBox "输入错误,请重新输入!" i = i - 1 End If Loop If a(1) + a(2) > a(3) And Abs(a(1) - a(2)) < a(3) Then

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上机练习题

1.新建工程,界面如下图,将窗体名称改为f1,标题属性为“我的第一个工程”, Text2允许多行,三个命令按钮名称分别为C1、C2、C3,单击C1按钮将Text1的字体改为黑体,Text2的字体改为隶书。 单击C2按钮将Text1的文字颜色改为红色,Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。 Private Sub Command1_Click() Text1.Font = 黑体 End Sub Private Sub Command2_Click() Text1.ForeColor = vbRed Text2.ForeColor = vbBlue End Sub Private Sub Command3_Click() End End Sub 2.新建工程,界面如上图,运行时,鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色,鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”,鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。 Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbRed End Sub Private Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbGreen End Sub Private Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End Sub Private Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub 3.新建工程,界面如下图,运行时,在文本框Text1中输入内容的同时,在文本框Text2、Text3中显示相同的内容,但字体不同(字体自定)。 Private Sub Command1_Click() Text1.Text = "" Text2 Text1

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大作业模板

题目:班级信息系统 学院: 土木与交通工程学院姓名:苏华立 学号:3112003660 班级:12 路桥一班 指导老师:张伯泉 成绩: 日期:2014年1月

注意:封面如上,打印单面。正文打印为双面,以下正文字体为5号宋体,字符间距值为0.5,大标题加粗,详见下面模板 一、选题过程 1、在学校里,有学校的教务系统,信息管理系统等,那么在一个班级里是否可以有一个小程序供全班同学使用,如查询信息,反馈班级的问题,于是我便想设计一个袖珍版的12路桥一班信息系统。 2、作为班级的学生干部,若能建立一个高效的信息系统,既可以提高办事效率,又可以充分利用我们书本里所学的知识,把知识转化成为实用的东西。 二、总体目标 1、系统具有多个窗体、菜单等人机交互界面。 2、可以实现多种身份验证。 3、开发系统所用的知识能够较全面地覆盖所学内容,熟悉运用和掌握所学的V B知识。 4、系统采用数据库实现数据的存储与管理。 三、系统结构及其功能 1、设计结构 根据系统总体目标该系统由欢迎界面,登录界面,登陆界面分为学生登录与管理员登录,学生登录进入主菜单。主菜单的功能项有信息查询,问题反馈,图片风采。管理员登录的界面主要查看问题的反馈。其结构如图1所示。 欢迎界面 登录界面 学生登录管理员 主菜单 信息查询问题反馈图片风采查看问题反馈打开文件对话框 弹出菜单数据库建立文件

图1系统结构 2、功能介绍 (1)用户登陆:用户通过选择单选框的登录身份进入不同的页面,学生进入主菜单,可以进行信息查询,问题反馈,浏览图片风采,管理员直接进入查看学生反馈的问题。 (2)信息查询:学生可以查看全班各位同学的信息,如电话号码,宿舍号等信息,也可以输入学号直接从数据库中查找需要的信息。 (3)问题反馈:学生输入的问题会被保存进一个顺序文件中,方便管理员进行查看。 (4)图片风采:学生可以看班级的图片,同时弹出菜单,回到主页面。 (5)查看问题反馈:管理员可以通过对话框打开存了学生反映的问题,了解学生的情况。 四、界面设计 1.欢迎界面 该界面主要实现的是欢迎学生登录或管理员登录,其设计结果如图2所示,界面主要控件及其属性设计如表2所示。 图2欢迎界面 表2欢迎界面主要控件设置 控件名称标题字体 Fo r m1w e l c o me您好,请进入主 宋体五号 菜单界面

VB程序设计-2017年6月在线考试答案

《VB程序设计》课程综合复习资料 一、单项选择 1.若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的(D )属性。 A.BACKCOLOR B.BORDERSTYLE C.FORECOLOR D.BACKSTYLE 2.如果要在文本框中输入字符时,只显示某个字符,如星号(*),运行时,在文本框中输入的字符仍然显示出来,而不显示星号,原因可能是(B ) A.文本框的MULTILINE属性值为TRUE B.文本框的LOCKED属性值为TRUE C.文本框的MULTILINE属性值为FALSE D.文本框的LOCKED属性为FALSE 3.下列关于属性设置的叙述错误的是:(A) A.一个控件具有什么属性是VB预先设计好的,用户不能改变 B.一个控件具有什么属性是VB预先设计好的,用户可以改变 C.一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置 D.一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值 4.下列说法正确的是(C ) A.对象属性只能在“属性窗口”中设置 B.一个新的工程可以在“工程窗口”中建立 C.必须先建立一个工程,才能开始设计应用程序 D.只能在“代码窗口”中编写程序代码 5.下列关于窗体上控件的基本操作错误的是:(A ) A.下一次DEL键只能删除一个控件 B.按下一次DEL键可以同时删除多个控件

C.按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件 D.按住ALT键,然后单击每个要选择的控件,可以同时选中多个控件 6.下列关于设置控件属性的叙述正确的是(C ) A.用户必须设置属性值 B.所有的属性值都可以由用户随意设定 C.属性值不必一一重新设置 D.不同控件的属性项都完全一样 7.如果将布尔常量值TRUE赋值给一个整型变量,则整型变量的值为(B ) A.0 B.-1 C.TRUE D.FALSE 8.下列关于控件画法的叙述错误的是(D ) A.单击一次工具箱中的控件图标,只能在窗体上画出一个相应的控件 B.按住CTRL键后单击一次工具箱中的控件图标,可以在窗体上画出多个相同类型的控件C.双击工具箱中的控件图标,所画控件的大小和位置是固定的 D.不合用工具箱中的控件工具,不可以在窗估上画出图形对象,但可以写入文字字符9.应用程序设计完成后,应将程序保存,保存的过程是(D ) A.只保存窗体文件即可 B.只保存工程文件即可 C.先保存工程文件,之后保存窗体文件 D.先保存窗体文件(或标准模块文件),之后还要保存工程文件 10.VB应用程序的运行模式是(C ) A.解释运行模式B.编译运行模式C.两者都有D.汇编模式 11.可视化编程的最大优点是(C) A.具有标准工具箱

VB考试练习题(上机操作)

第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值")。程序运行后,单击命令按钮完成以下工作: ①随机产生20个0到1000的整数,将其放入一个一维数组中 ②求出所有元素的平均值,并显示在窗体上(如下图所示) 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮,如下图所示。在程序运行时,单击"转换"按钮,可以把Text1中的小写字母转换为大写,把大写字母转换为小写,其他字符不变。 3 在窗体上添加一个命令按钮(名称为MyCmd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作: ①随机产生30个0~1000的整数,将其放入一个一维数组中 ②求出其中的最大值,并显示在窗体上。 4 请设计如下图所示窗体界面。程序运行时,在选中一个或两个复选框和一个单选按钮时,单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述

功能。 5 在名称为Form1的窗体上添加一个名称为Text1的文本框;添加两个标题分别为"对齐方式"、"字体",名称分别为Fm1、Fm2的框架;在Fm1框架中添加三个单选按钮,标题分别为"左对齐"、"居中"、"右对齐",名称分别为Opt1、Opt2、Opt3;在Fm2框架中添加两个单选按钮,标题分别为"宋体"、"黑体",名称分别为Opt4、Opt5。 要求:编写五个单选按钮的Click事件过程,使程序运行时,单击这些单选按钮,可以对文本框中的内容实现相应的操作(如图所示)。 6 请设计如下图所示窗体界面。运行程序时,先向左侧文本框中输入一个不超过10的正整数,然后选择"N的阶乘"或"(N+2)的阶乘"单选钮,即可进行计算,计算结果在右侧文本框中显示。请编写程序完成上述功能。 7 在窗体上添加两个文本框和三个标签,设置它们的属性,达到下图效果。程序运行时,在第一个文本框输入一串字符,在第二个文本框中输入一个字符,然后单击"统计"命令按钮,

《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实验作业参考答案 作业一窗体设计 (2) 作业二计算器 (4) 作业三人民币张数求电阻值 (6) 作业四(必做)建康城 (8) 作业五阶乘累加 (9) 作业六(必做)九九乘法表 (11) 作业七(必做)I NPUT B OX 函数输入12个整数,赋值给3×4的二维数组 (12) 作业八递归函数计算两个正整数的最大公约数,递归公式为 (13) 作业九(必做)家电提货单 (15) 作业十统计某个文本文件中各英文字母出现的次数,不区分大小写,并将结果打印到窗体上。 (17) 作业十一设计一个程序,用于打开1个windows应用程序,如打开“记事本”“画图”、“计算器”等。 (19) 作业十二通过菜单选择,对字体、字号进行设置 (21)

作业一 1.简答题(略) 2.编程题: 1)单击窗体后在窗体上显示“您好!×××同学”。 要求:(1)程序中用自己的姓名替代“×××”。(2)文字以红色、仿宋体、加粗、三号字显示,并在字下加横线。(3)建立一个命令按钮,结束时单击此按钮退出。 答案参照课本P27的例1-6。 2)设计一窗体,窗体上有1个文本框(Text1)、1个命令按钮(Command1),运行时文本框中显示“Visual Basic程序设计”,命令按钮标题为“结束”,文本框及命令按钮能随窗体大小的调整而自动调整大小及位置,其中调整文本框使其:Left=0,Top=0,宽度和高度都为窗体的一半;命令按钮:始终位于窗体右下角位置。请编写: (1)用代码初始化各控件(提示:可写在Form_Load事件中)。 (2)文本框控件随窗体的大小而调整大小的代码,以及调整命令按钮位置始终位于窗体右下角的代码(提示:调整大小位置的代码写在Form_Resize事件中)。 (3)结束程序运行的代码(命令按钮)。 程序代码: Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Command1.Left = Form1.ScaleWidth - Command1.Width

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

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

计算机一级VB上机练习题电子版本

计算机一级V B上机 练习题

2007—2008(2) VB上机练习题 1.设计一个数字钟表程序,界面如图所示。运行时单击窗体,显示当前的年月日星期及时间。 2.设计一个数学函数程序,界面如图所示。程序运行时,在文本框中输入任意数值,单击相应按钮标签中显示结果。文本框始终处于选中状态。 3.设计口令检测界面,口令自定,运行初始如第一幅图,若口令错,则如第二幅图;否则,将显示另一欢迎窗口,如第三幅图所示。在连续三次输入错误口令后,给出警告并结束运行。

4.设计一个程序,用户界面如下图所示。程序运行后,单击“计算”,求出应付款额;单击“清除”,清除所有文本框内容。 5.输入一个学生的学号和考试成绩,然后按如图格式在图片框中输出学号、考试成绩及评语,评语:90~100优秀;80~89良好;70~79中等;60~69及格;0~59不及格。 6.设计一个程序,用户界面如下图所示。程序运行后,单击Command1按钮,求出最大最小数。 7.设计一个100(随机函数产生)之内的四则运算题,界面如下。

8.设计一个窗体Forml,界面如右图所示。编写 适当的事件过程,程序运行后在第一个文本框中 输入圆的半径,单击“计算”按钮,分别在第二个 和第三个文本框中显示圆的面积和周长。 9.界面如下图所示。编写适当的事件过程,程序运行后在三个文本框中分别输入三角形的边长值,单击“判断并计算”按钮,判断它们是否能组成三角形,如果可以在Text4中显示三角形的面积,否则在Text4中显示“FALSE”。 10.某工程运行时,图片框中图可以任意。单击“隐藏图像”按钮(command2)界面如右图,单击“显示图像”按钮(command1)界面如左图,编写适当的事件过程。

visual_Basic程序的设计教程_课后习题答案及练习

《VB程序设计》综合复习资料 第一章 Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言,采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________,窗体文件的扩展名是____________,标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令,可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是() A.设计模式B.运行模式C.汇编模式D.中断模式 2、可视化编程的最大优点是() A.具有标准工具箱 B.一个工程文件由若干个窗体文件组成 C.不需要编写大量代码来描述图形对象 D.所见即所得 3、下列不能打开属性窗口的操作是() A.执行“视图”菜单中的“属性窗口”命令 B.按F4键 C.按Ctrl+T D.单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是() A.Ctrl+D B.Ctrl+E C.Ctrl+F D.Ctrl+G

5、Visual Basic的编程机制是() A.可视化 B.面向对象 C.面向图形 D.事件驱动 三、简答题 1、代码窗口主要包括哪几部分? 2、在工程资源管理器窗口中,主要列出了哪三类文件? 3、窗体布局窗口的主要用途是什么? 4、VB的基本特点是什么? 5、怎样理解可视化设计? 6、怎要理解事件驱动编程? 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮,应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定,其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点,对于一个对象,只有其visible属性和____________属性为true,才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下,控件有两个属性项的缺省值是相同的,这两个属性项是_______________。 7、VB中的每个对象(控件)都有一组特征,这组特征称为__________,我们通过修改它可以控制对象的外观和操作。 8、通常情况下,VB中一个工程主要包括如下四个文件:窗体文件、工程文件、类模块文件和_____________文件,后者的扩展名为.Bas,通常由Basic语言编写,是一个可共用的子程序。 9、VB有三种工作模式,分别是设计(Design)模式、_____________和中断(Break)模式。 二、选择题 1、以下能够触发文本框Change事件的操作是()

VB作业

1、用IF语句设计一个程序,输入一个年号,程序能判断此年为平年或闰年。 程序如下: Private Sub Command1_Click() Dim year1, year As Integer year1 = Text1.Text If year1 = "" Then Exit Sub Else year = Int(Abs(year1)) End If If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then MsgBox Str(year) & "年是闰年" Else MsgBox Str(year) & "年是平年" End If End Sub Private Sub Command2_Click() End End Sub

2用select语句设计一个程序,输入一个月份,能判断这个月有多少天。 程序如下: Private Sub Command1_Click() If Text1.Text <> "" Then score = Val(Text1.Text) Select Case score Case 1, 3, 5, 7, 8, 10, 12 Print "这个月有31天" Case 4, 6, 9, 11 Print "这个月有30天" Case 2 Print "这个月若是平年有28天,若是闰年有29天" End Select End If End Sub Private Sub Command2_Click() End End Sub Private Sub Label1_Click() End Sub 3、设计一个程序,当单击按钮时窗体的位置会向右移动200缇,且向下移动200缇,并在窗体上显示当前“窗体左上角在屏幕的坐标为:”实现并在窗体上显示“单击窗体恢复原位”,当单击窗体时,清除窗体上已输出的内容,且恢复到窗体的初始位置,并显示:“窗体左上角在屏幕的坐标为:”,如下图:

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

在线考试一一正在答题 作业提交1 表达式2\2 *2/2*2 mod 2的结果是 (A) 0 (B) 25 (C) 5 (D) 1 2. 下列自宦义标识符中非法的是: (A) Me (B) My (C) third (D) fIRst 3. 表达式“A” Like "[A-Z]” 的结果为: (A) A (B) Z (C) TRUE (D) FALSE 4. 表达式x>= 20 and x<= 100,其中x=37 时,结果为 (A) 100 (B) 20 (C) TRUE (D) flase 5. 逻辑表达式1>0 and Not 2<7 or 2>6的值为 (A) 0 (B) FALSE (C) 3 (D) TRUE 6. 表达式x/=2,其中x = 24.运算后x的取值为: (A) 12 (B) 6 (C) 48 (D) 24 7. 下列可以作为VB变量的是: (A) a(x*y) (B) 学生信息

(C) lxyz (D) second 8. 表达式x*=2,其中x = 25,运算后x的取值为 (A) 50 (B) 625 (C) 25 (D) 27 9. 表达式100 mod 12的结果为: (A) 10 (B) 4 (C) 8 (D) 6 20. 下列自左义标识符中合法的是: (A) lMy (B) class (C) forth (D) @home 11. 表达式4?3的结果为: (A) 8 (B) 4 (C) 32 (D) 16 12. 表达式“张三” Like “张的结果为: (A) 张 (B) TRUE (C) FALSE (D) 张三 13. 后缀为?vbp的文件表示VB的 (A) 类模块文件 (B) 窗体文件 (C) 标准类模块文件 (D) 工程文件 14. 下列变量名合法的是 (A) a_2 (B) a-b (C) 2xy (D) float

VB上机考试习题以及答案

VB上机考试 1、利用随机函数产生25个100到999之间的整数,构成5 5的矩阵,输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数,求其平均值(要求保留3位小数,第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键,记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数,按从小到大的顺序显示。Dim a(1

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属性来装入图

相关文档