第一篇：程序设计语言VB综合设计题及答案
《程序设计语言VB》综合设计题
1.编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text = Now）。
2.编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。
3.编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。4.编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，才在Text1中显示“Hello”字符。
5.编一程序能实现在窗体上打印出如下图所示的图形。
A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB B 6.编一程序用于判断一正整数是否为素数。（提示：只能被1和本身整除的正整数称为素数。为了判断一个数n是不是素数，可以将n被2到sqr(n)之间的所有整数除，如果都除不尽，则n就是素数，否则n是非素数。）
7.选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。
8.有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成a、b比较大小的子过程，用c将大数回传。要求按值传送a、b。
9.编一程序用于求所有的“水仙花数”。所谓“水仙花数”是指一个3位数，其各位数字立方和等于该数本身。例如：153就是一水仙花数，因为153 = 13+53+33。
10.设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。11.编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。
提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。
12.编写程序：通过四个命令按钮Command1-Command4，在图片框Picture1内分别实现画点、画线、画圆、擦除等功能。
13.编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按钮
2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。
14.编一程序：用三个文本框分别输入a、b、c，求一元二次方程ax2+bx+c=0的解x1和x2，只包括实根。
15.编一程序：利用输入对话框输入两个正整数，求最大公约数。
答案
1.Private Sub Command1_Click()
Timer1.Interval = 5
Timer1.Enabled = True End Sub Private Sub Command2_Click()
Timer1.Enabled = False End Sub Private Sub Command3_Click()
Timer1.Enabled = False
Text1.Text = “" End Sub Private Sub Timer1_Timer()
Text1.Text = Now End Sub
2.Private Sub Command1_Click()Dim i, s As Integer For i = 100 To 200
If i Mod 3 = 0 Then s = s + i Next i MsgBox(”100-200之间所有可以被3整除的数的总和为：“ & Str(s))End Sub
3.Private Sub Command1_Click()Dim a(9), i, j, m As Integer For i = 0 To 9
a(i)= Val(InputBox(”
For i = 0 To 9
For j = i + 1 To 9
If a(i)> a(j)Then
m = a(i)
a(i)= a(j)
a(j)= m
End If
Next j Next i For i = 0 To 9
Print a(i);Next i End Sub
4.Private Sub Command1_Click()If Check1.Value = 1 And
Check2.Value = 1 And Check3.Value = 0 Then Text1.Text = “Hello” End If End Sub
5.Private Sub Command1_Click()Dim i, j As Integer For i = 1 To 4
For j = 1 To(2 * i1)To 1 Step-1
Print “B”;
Next j
Print Next i End Sub
6.Private Sub Command4_Click()
Dim n, k, i, temp As Integer
n = InputBox(“请输入一个正整数”)
k = Int(Sqr(n))
i = 2
temp = 0
Do While i <= k And temp = 0
If n Mod i = 0 Then
temp = 1
Else
i = i + 1
End If Loop
If temp = 0 Then
Print n;“是一个素数”
Else
Print n;“不是素数”
End If End Sub
7.Private Sub Command1_Click()Dim n, p As Single n = Val(Text1.Text)Select Case n
Case Is <= 1600
p = 0
Case 1600 To 5000
p =(n5000)* 0.05 End Select End Sub
8.Private Sub c1(ByVal a As Single, ByVal b As Single, c)If a > b Then c = a Else c = b End Sub
Private Sub Command1_Click()Dim a, b, c As Single a = Val(Text1.Text)b = Val(Text2.Text)
Call c1(a, b, c)
Print c End Sub
9.Private Sub Command1_Click()Dim a, b, c, n As Integer For n = 100 To 999
a = Int(n / 100)
b = Int((n(a * 100 + b * 10)
If n = a ^ 3 + b ^ 3 + c ^ 3 Then Print n;
Next End Sub
10.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu MenuA
End If End Sub
Private Sub B_Click(Index As Integer)
Select Case Index
Case 1
Form1.BackColor = vbWhite
Case 2
Form1.BackColor = vbYellow
Case Else
Form1.BackColor = vbRed
End Select End Sub
11.Private Sub Command1_Click()Dim a(2), i, j, m As Integer For i = 0 To 2
a(i)= Val(InputBox(“
If a(i)> a(j)Then
m = a(i)
a(i)= a(j)
a(j)= m
End If
Next j Next i If a(0)+ a(1)> a(2)Then
If a(0)^ 2 + a(1)^ 2 = a(2)^ 2 Then
Print ”能构成直角三角形,面积为：“ & a(0)* a(1)/ 2
Else
Print ”能构成三角形，但不是直角三角形“
End If Else
Print ”不能构成三角形“ End If End Sub
12.Private Sub Command1_Click()Picture1.PSet(Picture1.Width / 2, Picture1.Height / 2)End Sub
Private Sub Command2_Click()Picture1.Line(0, 0)-(Picture1.Width, Picture1.Height)End Sub
Private Sub Command3_Click()Picture1.Circle(Picture1.Width / 2, Picture1.Height / 2), 800 End Sub
Private Sub Command4_Click()Picture1.Cls End Sub
13.Dim a, b, c As String Private Sub Command1_Click()a = InputBox(”请输入
Private Sub Command2_Click()c = a + b MsgBox “连接后的字符串为：” & c & “。长度为：” & Len(c)End Sub
14.Private Sub Command4_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a = 0 Then
x =-c / b
Print x Else
t = b * bSqr(t))/ 2 / a
Print X1, X2
End If End If End Sub
15.Private Sub Command1_Click()m = Val(InputBox("
第二篇：程序设计语言VB单项选择题及答案
《程序设计语言VB》单选题
1.Visual Basic是一种面向（）的程序设计语言。
A.用户 B.事件 C.程序 D.对象
2.在Visual Basic6.0中规定工程文件的扩展名是（）。
A.vbp B.for C.frm D.bas 3.Visual Basic6.0中规定窗体文件的扩展名是（）。
A.for B.frm C.vbp D.bas 4.如何使一个标签或按钮控件在运行时不可用（）。
A.把它的Visible属性设置成False B.把它的Visible属性设置成True C.把它的Enabled属性设置成False D.把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（）属性中调整？
A.Font B.Color C.Text D.Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。
A.Value B.Cancel C.Default D.Enabled 7.在VB中，记录对象数据的是（）。
A.方法 B.事件 C.属性 D.语句
8.在文本框上显示文本的属性是（）。
A.Value B.Text C.Print D.Enabled 9.InputBox函数返回值的类型为（）。
A.字符串 B.数值 C.变体
D.数值或字符串（视输入的数据而定）
10.设有语句：a = InputBox(“请输入数值:”,“输入示例”, “100”)程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。A.字符串“20” B.字符串“120” C.默认值100 D.数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。
A.Label控件 B.TextBox控件 C.Timer控件
D.CommandButton控件
12.语句PRINT “25*4”的输出结果是（）。
A.25*4 B.“100” C.100 D.出现错误信息
13.只能用来显示字符信息的控件是（）。
A.文本框 B.标签框 C.图片框 D.图像框
14.下列可作为Visual Basic变量名的是（）。
A.A%A B.4A C.?xy D.Stemp 15.下列哪个符号不能作为VB中的变量名（）。
A.timefly B.pass4
C.min4max D.R[8] 16.在窗体内声明的变量是（）。
A.局部变量 B.模块变量 C.公共变量 D.任意变量
17.语句Dim x As Integer作用是:将x定义为（）变量。
A.单精度型 B.整型 C.布尔型 D.字符型
18.在VB中,用Boolean来表示的数据类型是（）。
A.长整型 B.字符型 C.布尔型 D.单精度型
19.定义常量需要用到的关键字是（）。
A.Const B.Dim C.Private D.Public 20.如果要处理3.1415类数据，使用的变量类型应该是（）。
A.Single B.Long C.Integer D.String 21.表达式2*3^2+2*8/2+3^2的值为（）。
A.27 B.31 C.35 D.42 22.数学表达式 X^2+3XY对应的VB算术表达式是（）。
A.X*2+3X*Y B.X*X+3XY C.X*X+3*X*Y D.X*X+3*XY 23.在VB语言中，求余运算符是（）。
A.％
B.MOD C.* D./ 24.判断两个逻辑关系任一满足的逻辑运算是（）。
A.Or B.And C.Not D.Ok 25.表达式4+5 6 * 7 / 8 Mod 9 的值是（）。
A.4 B.5 C.6 D.7 26.选拔身高T超过1.7米且体重W小于60公斤的人，表示该条件的布尔表达式为（）。
A.T>=1.7 And W<=60 B.T<=1.7 Or W>=60 C.T>1.7 And W<60 D.T>=1.7 Or W<60 27.VB中下列逻辑表达式书写正确的是（）。
A.a>b and a>c B.a>b>c C.a≤b D.a≠122 28.设x=4,y=8,z=7，表达式x A.1 B.-1 C.TRUE D.FALSE 29.Sqr(81)+Fix(3.6)的值是（）。 A.12 B.7 C.8 D.9 30.把字符串“123”转换为数值123 时应该使用的函数是（）。 A.Str B.Val C.Len D.Log 31.表达式Abs（-3）+int(3.14)的值为（）。 A.5 B.6 C.0.14 D.6.14 32.Int(Rnd * 100)表示的是（）范围内的一个整数。 A.[0,100] B.[1,99] C.[0,99] D.[1,100] 33.Len(“Friend”)的值是（）。 A.6 B.7 C.8 D.9 34.Int(-3.14)的值是（）。 A.-3 B.-3.14 C.-4 D.3.14 35.Right（“banana”, 4）的值是（）。 A.ba B.banana C.nana D.ban 36.表达式 Mid(“Hello”, 2, 3)的值是（）。 A.“ll” B.“llo” C.“ell” D.“ello” 37.语句if 3*4>=10 then a=1 else a=2 执行后，a的值为（A.12 B.10 C.1 D.2 38.语句If x=1 Then y=1,下列说法正确的是（）。 A.x=1和 y=1 均为赋值语句 B.x=1和 y=1均为关系表达式 C.x=1为关系表达式，y=1为赋值语句 D.x=1为赋值语句，y=1为关系表达 。） 39.下面程序段中，（）不是把两个数中的大值赋给变量Ｍax。 A.Max=IIf(x>y,x,y)B.If x>y Then Max=x Else Max=y C.Max=x ：If y>=x Then Max=y D.If y>=x Then Max=y Max=x 40.在Select判断结构中，下面的表述中不正确的是（）。 A.Case 1 B.Case a > 5 C.Case 3 To 6 D.Case is <10 41.由“For i=1 To 16 Step 3”决定的循环结构被执行（）次。 A.4 B.5 C.6 D.7 42.Dim a(5, 5)As Long 定义的数组元素的个数是（）。 A.10 B.11 C.25 D.36 43.用于清空数组数据的关键字是（）。 A.Erase B.Lbound C.Ubound D.Redim 44.下列关于do while „loop 和do„loop while循环执行循环体次数的描述正确的是（）。 A.do while „loop循环和do„loop while循环至少都执行一次 B.do while „loop循环可能不执行，do„loop while循环至少执行一次 C.do while „loop循环至少执行一次，do„loop while循环可能不执行 D.do while „loop循环和do„loop while循环可能都不执行 45.For-Next 语句属于程序基本结构中的（）。 A.顺序结构 B.循环结构 C.分支结构 D.选择结构 46.下列关于Exit For 的说法，正确的是（）。 A.它可以退出任何类型的循环 B.一个循环只能有一个Exit For C.每个循环必须有Exit For D.Exit For本身是无条件退出循环 47.在Visual Basic代码窗口中,将某一条语句加以注释和说明时,应在语句前加（）。 A., B.: C.' D.? 48.为了将一个语句写在多行上所使用的行续接符是：（）。 A.& B._ C.' D.： 49.在一个语句内写多条语句时,每个语句之间分隔符号是（）。 A., B.； C.: D.' 50.Function过程的定义，不必须有的是（）。 A.过程的名称 B.虚参 C.End Function D.给过程赋值 51.下列过程调用语句中，被调用的过程一定是Sub子过程的语句是（）。 A.Pro1(x)B.Print Pro2(x)C.x= Pro3(x)D.Call Pro4(x)52.Sub过程与Function过程最根本的区别是（）。 A.Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以 B.Function过程可以有形参，Sub过程不可以 C.Sub过程不能返回值，而Function过程能返回值 D.两种过程参数的传递方式不同 53.当拖动滚动条中的滚动块时，将触发滚动条的事件是（）。 A.Move B.SetFocus C.Scroll D.Change 54.列表项选择后得到的选中索引是指（）。 A.Value B.ListValue C.Index D.ListIndex 55.定时器定时工作所触发的事件是（）。 A.Click()B.Change()C.Timer()D.Load()56.在图片框中加载图形(c:666.jpg)的方法是（）。 A.Loadpicture(“c:666.jpg”)B.Loadpicture()C.print(“c:666.jpg”)D.cls 57.以下关于VB列表框的叙述中（）是错误的。 A.可通过属性“Item”，返回列表框中的项目 B.可通过属性“Text”，得到当前列表项中的内容 C.可通过属性“ListIndex”返回当前选中的列表项的索引 D.可通过属性“ListCount”返回列表框中项目的数目 58.为了把焦点移到某个指定控件，所使用的方法是（）。 A.GetFocus B.Visible C.Refresh D.SetFocus 59.为了隐藏一个窗体，所使用的方法为（）。 A.Load B.Show C.Hide D.UnLoad 60.如果窗体被遮挡，通过调用（）方法，可以将其显示。 A.Hide B.Show C.Unload D.load 61.VB窗体设计器的主要功能是（）。 A.建立用户界面 B.画图 C.编辑文字 D.编写程序代码 62.窗体的（）方法可以清除窗体上的图形与文本。 A.print B.cls C.load D.circle 63.窗体没有（）属性。 A.Caption B.Text C.Picture D.Top 64.当一个工程有多个窗体时，其中的启动窗体是（）。 A.70.在Visual Basic中,以下选项中表示单击事件的是（）。 A.KeyUp B.Click C.Activate D.Load 71.下面不属于键盘事件的是（）。 A.KeyUp B.KeyDown C.KeyPress D.Click 72.每当窗体失去焦点时会触发的事件是（）。 A.Active B.Deactive C.LostFocus D.Initialize 73.设在窗体上有一通用对话框控件Commonialog1，通过调用（）语句可以建立“颜色”对话框。 A.Commonialog1.ShowOpen B.Commonialog1.Action=2 C.Commonialog1.ShowColor D.Commonialog1.Action=5 74.用语句Commonialog1.ShowOpen建立了“打开”对话框以后，要得到用户所选择文件的路径及文件名，应使用Commonialog1的（）。A.DialogTitle属性 B.FileTitles属性 C.FileName属性 D.InitDir属性 75.用于显示弹出式菜单的方法名是()。 A.ShowOpen B.ShowMenu C.ShowPopup D.PopupMenu 76.打开菜单编辑器的快捷键是（）。 A.CTRL+F B.Alt+F C.CTRL+E D.Alt+E 77.下列叙述中，错误的是（）。 A.顺序文件打开后，既可以读又可以写 B.随机文件打开后，既可以读又可以写 C.顺序文件打开后，只能读或者只能写 D.顺序文件和随机文件的打开都使用Open语句 78.VB编程中顺序文件的处理将用到关键字是（）。 A.File B.Save C.Open D.Disk 1.D 2.A 3.B 4.C 5.A 6.C 7.C 8.B 9.A 10.A 11.B 12.A 13.B 14.D 15.D 16.B 17.B 18.C 19.A 20.A 21.C 22.C 23.B 24.A 25.B 答案 26.C 27.A 28.D 29.A 30.B 31.B 32.C 33.A 34.C 35.C 36.C 37.C 38.C 39.D 40.B 41.C 42.D 43.A 44.B 45.B 46.D 47.C 48.B 49.C 50.B 51.D 52.C 53.D 54.D 55.C 56.A 57.A 58.D 59.C 60.B 61.A 62.B 63.B 64.D 65.C 66.B 67.C 68.D 69.C 70.B 71.D 72.C 73.C 74.C 75.D 76.C 77.A 78.C 1定义一个下标上界为10整型数组，并用随机函数为其赋值（值处于[0,100]之间），计算数组中所有偶数的和。Private Sub Command1_Click()Randomize Dim a%(10)Dim i%, s% For i = 0 To 10 a(i)= 101 * Rnd()Next For i = 0 To 10 If a(i)Mod 2 = 0 Then s = s + a(i)End If Next Print “所有偶数的和为”, s 2 设 S=35，C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面7位。C/1!-C^3/3!+C^5/5!-„ +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ „ 参考答案如下： Private Sub Command1_Click() Dim n As Integer Dim x As Double x = 0.3 Dim item As Double Dim sum As Double Dim fac As Double For n = 1 To 35 fac = 1 Dim i As Integer For i = 1 To 2 * n1)* x ^(2 * n1 If n Mod i = 0 Then isprime = False Exit Function End If Next isprime = True End Function Private Sub Command1_Click() Dim i As Integer Dim sum As Long For i = 1000 To 2000 If isprime(i)= True Then sum = sum + i End If Next Text1.Text = “sum=” & sum End Sub 'sum= 419684 13.编写一个函数，求某个数的阶乘。 调用该函数计算22!。 Public Function fact(ByVal n As Integer)As Long Dim i As Integer, f As Long f = 1 For i = 1 To n f = f * i Next i fact = f End Function Private Sub Command1_Click() Dim m As Integer, i As Integer, s As Long m = InputBox(“输入一个正整数： ”) s = fact(m) MsgBox(s)End Sub ‘479001600 14.编写子过程，计算并输出3000-4000之间的素数之和C与其中最小的素数MIN。 Private Sub Command1_Click() Dim sum, i, min As Integer min=0 For i = 3000 To 4000 Dim isprime As Boolean = True Dim j As Integer For j = 2 To i1)* n *(n + 1) sum = sum + item n = n + 2 Loop While Abs(sum)<= 100 MsgBox(sum)End Sub 'sum=-68 编写一个函数，其功能为求两个数的最大公约数。 Public Function gcd(ByVal m As Integer, ByVal n As Integer)As Integer Dim i As Integer If m > n Then Dim t As Integer t = m: m = n: n = t End If For i = m To 1 Step-1 If m Mod i = 0 And n Mod i = 0 Then gcd = i Exit Function End If Next End Function 20.用InputBox输入一个年份，判断该年份是否是平年，若是则输出“Yes”，否则输出“No”。 Dim year As Integer year = Val(InputBox(“"))If(year Mod 400 = 0)Or(year Mod 4 = 0 And year Mod 100<>0) Then MsgBox(”No“)Else MsgBox(”Yes“) End If 输入两个整数m、n，编写程序使得 m>=n，并输出m、n的值。 Dim m, n As Integer m = Val(InputBox(”“))n = Val(InputBox(”“)) If m < n Then Dim t As Integer t = m : m = n : n = t End If MsgBox(”m=“ & m & ”;“ & ”n=“ & n) 22求下面级数前n项的和S，在求和 过程中，当某项（注意，该项参与求和）的绝对值小于0.0001 时求和终止。结果取 5 位小数。 1-1/3+1/5-1/7+1/9-1/11+ „ +(-1)^(n-1)*1/(2n-1)+ „ Private Sub Command1_Click() Dim n As Integer Dim item As Double Dim sum As Double i = Do While True item =(-1)^(i1) 整数：”)sum = sum + item If Abs(item)< 0.0001 Then Exit Do Else i = i + 1 End If Loop MsgBox(Format(sum, “0.0000”)) End Sub ' sum=0.78545 编写一个函数，其功能为判断一个3位正整数是否是“水仙花数”。（“水仙花数”是指各位数字的立方和与该数相等，如153=1^3+5^3+3^3,153就是水仙花数。） Public Function Panduan(ByVal x As Integer)As Boolean Dim a As Integer, b As Integer, c As Integer a = x 100 b =(x Mod 100)10 c = x Mod 10 If x = a ^ 3 + b ^ 3 + c ^ 3 Then Panduan = True Else Panduan = False End If End Function Private Sub Command1_Click() Dim i As Integer i = InputBox(“输入一个3位正 MsgBox(Panduan(i))End Sub 定义一个下标上界为10整型数组，并为其赋值（值处于[0，100]之间），计算数组中所有不小于60的数据的和。 Dim a(10), i, sum As Integer For i = 0 To 10 a(i)= Int(Rnd()* 101) Next For i = 0 To 10 If a(i)〉=60 Then sum = sum + a(i) End If Next print sum 25.编写程序，求下面级数前n项的和s=1/1!-1/2!+1/3!-1/4!+....+(-1)^(n-1)*1/n!+.....。 '求和过程当某一项的绝对值小于0.0001时结束（注意，该项参与求和），计算并输出所求的s，要求结果保留6位小数。Private Sub Command1_Click() Dim m As Double, n As Long, s As Double, f As Integer s = 0: n =-1: m = 1: f = 1 Do While 1 / m >= 0.0001 m = m * f f = f + 1 n =-n s = s + n / m Loop s = Format(s, ”0.000000“)Print s End Sub 26输入一个四位数，分别输出它的个位数字，是十位数字，百位数字，千位数字。Private Sub Command1_Click()Dim a%, j%, k%, i%, m% a = InputBox(”请输入一个四位整数“)j = a 1000 k = a 100 Mod 10 i = a 10 Mod 10 m = a Mod 10 Print ”个位数字;“;m Print ”十位数字;“;i Print ”百位数字;“;k Print ”千位数字;“;j End Sub 6.计算sum=2!+4!+6!+...+10!Private Sub Command1_Click()Dim a%, i% Sum = 0 i = 1: a = 1 Do a = 2 * i If i Mod 2 = 0 Then Sum = Sum + a End If i = i + 1 Loop While i <= 10 Print Sum End Sub 27编写程序，计算并输出下面级数前n项（n=20）中奇数项的和。1*2*3-2*3*4+3*4*5-4*5*6+....+(-1)^(n-1)*n*(n+1)*(n+2)+...Private Sub Command1_Click()Dim s!, i% For i = 1 To 20 Step 2 s = s + i *(i + 1)*(i + 2)Next MsgBox(s)End Sub 28随机输出一个小写字母。Private Sub Command1_Click()Dim a As String Randomize a = Chr(Int(97 + 26 * Rnd))MsgBox(a)End Sub、29编写程序，计算并输出下面级数前n项（n=50）中偶数项的和。s=1*2+2*3+3*4+4*5+....+n*（n+1）+.....Private Sub Command1_Click()Dim s!, i% For i = 2 To 50 Step 2 s = s + i *(i + 1)Next MsgBox(s)End Sub 30斐波那契数列是由计算某类动物繁殖增长量而提出的。数列的前两项是1、1，以后的每一项都是其相邻前两项的和。编写程序求：数列前30项和。 Private Sub Command1_Click()Dim a&, b&, c&, i% a = 1: b = 1: c = 2: Sum = 0 For i = 1 To 28 c = a + b a = b b = c Sum = Sum + c Next MsgBox(Sum)End Sub 31输入三个数a、b、c，编写程序使得a<=b<=c，并输出a、b、c的值。Private Sub Command1_Click()Dim a%, b%, c%, t% a = Val(InputBox(”请输入a的值!“))b = Val(InputBox(”请输入b的值!“))c = Val(InputBox(”请输入c的值!“))If a > b Then t = b b = a a = t End If If a > c Then t = a a = c c = t End If If b > c Then t = b b = c c = t End If Print a, b, c End Sub 32编写程序，设n=20，x=3.4，计算并输出S(n)的值，要求结果保留5位小数。S(n)=Inx/x+In2x/x^2+In3x/x^3+.....+In(n*x)/x^n+.....Private Sub Command1_Click()Dim x#, i% Dim S(20)As Double n = 20 x = 3.4 For i = 1 To 20 S(20)= S(20)+ Log(i * x)/(x ^ i)Next Print Format(S(20), ”0.00000“)End Sub 33输入任意三个数 找出其中最大的数 Private Sub Command1_Click()Dim a!, b!, c!, Max!a = Text1.Text b = Text2.Text c = Text3.Text Max = a If b > Max Then Max = b If c > Max Then Max = c Text4.Text = Max End Sub 输出1到100之间的素数 Print 1;2;a = 3 While a <= 100 i = 2 While i < a If a Mod i = 0 Then i = a End If i = i + 1 Wend If i = a Then Print a; End If a = a + 1 Wend、34打印斐波那契数列20项 Private sub form_click()A=0 B=1 Text1.text=text1.text&str(A)&str(B)&chr(13)& Chr(10)For i=1 to 9 A=A+B B=A+B Text1.text=text1.text&str(A)&str(B)&chr(13)& Chr(10)Next i 35判定素数 A=val(inputbox(“input a”))For i=2 to a If(a mod i=0)then Exit for End if Next i If i 36求sum 1+(1+2)+(1+2+3)………….n = Val(Text1.Text)sum = 0 For i = 1 To n sum1 = 0 For j = 1 To i sum1 = sum1 + j Next j sum = sum + sum1 Next i Text2.Text = sum 37求50名学生的平均成绩并统计高于平均分的人 Dim c(1 to 50)as integer Dim p!,n%,i% P=0 For i=1 to 50 C(i)=inputbox(“请输入第”&i&”位学生的成绩” P=p+c(i)Next i P=p/50 N=0 For i= 1 to 50 If c(i)>p then n=n+1 Next i Print “平均分=”;”高于平均分的人数=”;n 设C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面7位。C/1!-C^3/3!+C^5/5!-„ +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ „ Dim n as integer Dim x as integer X=0.3 Dim item as double Dim sum as double Dim fact as double For n=1 to 35 Fact=1 Dim I as integer For I =1 to 2*n-1 Fact=fact*i Next Item =(-1)^(n-1)*x^(2*n-1)/fact Sum=sum+item Next Sum=int(sum*10000000+0,.5)/100000000 Magbox 39已知A、B为整数A和B的立方和为1000求所有的A、B。 Dim x ,y as integer For x=0 to10 For y=0 to10 If x^3+y^3=1000 then Msgbox(x=;y=) 定义一个下标上界为30的单精度数组，设置好其初值（值处于[20，90]），计算数组中所有元素的均值。Dim array(30)as single For i=0 Array(i)=20+int(rnd()*71)Next i Dim sum% For i=0 to 30 Sum=sum+array(i)Next i Print sum 31 End sum 41求下面级数前S项中奇数项的和sum。在求和过程中，以第一个奇数项的数值大于 10000 的项为末项。1!-2!+3!-4!+ „ +(-1)^(S-1)*S!+ „ Dim n as integer Dim item double Dim I as integer Dim sum as double Dim abs as double Do while true Item =1 For I =1 to n Item = item*1 Next i Sum=sum +item N=n+2 If abs(item)>10000 then Exit do Else N=n+2 End if Loop Msgbox(sum) 42计算sum=1/1!+1/2!+1/3!+....+1/10!Private Sub Command1_Click()Dim m As Integer, n As Long, s As Double n = 1 s = 0 For m = 1 To 10 n = n * m s = s + 1 / n Next Print s 42求从[j,s]区间内的素数及素数和（这里需要用到三个文本框和2个按钮）'Private Sub Command1_Click()Dim n%, i%, j%, s% Sum = 0 j = Val(Text1.Text())s = Val(Text2.Text())For n = j To s For i = 2 To n1 Then Sum = Sum + n: Print n Next n Text3.Text = Sum End Sub Private Sub Command2_Click()Cls Text1.Text = ”“ Text2.Text = ”“ Text3.Text = ”“ Text1.SetFocus End Sub 43某分段函数描述如下：（1）当x为偶数时，y的值为x的二分之一。（2）当x为奇数时，y的值为x的二倍。Private Sub Command1_Click()Dim x!, y!x = Val(InputBox(”请输入X的值！“)) If x Mod 2 = 0 Then y = x / 2 Else y = 2 * x MsgBox(y)End If End Sub 44随机输出一个小写字母。Private Sub Command1_Click()Dim a As String Randomize a = Chr(Int(97 + 26 * Rnd))MsgBox(a)End Sub、45编写程序，计算并输出下面级数前n项（n=50）中偶数项的和。s=1*2+2*3+3*4+4*5+....+n*（n+1）+.....Private Sub Command1_Click()Dim s!, i% For i = 2 To 50 Step 2 s = s + i *(i + 1)Next MsgBox(s)End Sub 46编写程序，设n=20，x=3.4，计算并输出S(n)的值，要求结果保留5位小数。S(n)=Inx/x+In2x/x^2+In3x/x^3+.....+In(n*x)/x^n+.....Private Sub Command1_Click()Dim x#, i% Dim S(20)As Double n = 20 x = 3.4 For i = 1 To 20 S(20)= S(20)+ Log(i * x)/(x ^ i)Next Print Format(S(20), ”0.00000“)End Sub 47设 S=35，C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面7位。C/1!-C^3/3!+C^5/5!-„ +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ „ 参考答案如下： Private Sub Command1_Click() Dim n As Integer Dim x As Double x = 0.3 Dim item As Double Dim sum As Double Dim fac As Double For n = 1 To 35 fac = 1 Dim i As Integer For i = 1 To 2 * n1)* x ^(2 * n1 fac = fac * i Next item =(-1)^(n1)/ fac sum = sum + item Next sum = Int(sum * 10000000 + 0.5)/ 10000000 MsgBox(sum)End Sub ' sum = 0.479426 49编写子过程，计算并输出3000-4000之间的素数之和C与其中最小的素数MIN。 Private Sub Command1_Click() Dim sum, i, min As Integer min=0 For i = 3000 To 4000 Dim isprime As Boolean = True Dim j As Integer For j = 2 To ia(1))*(pa(3)))MsgBox(s)Else MsgBox(”不能构成三角形")End If End Sub VB程序设计语言多媒体教学课件的设计与实现 摘 要 随着现代教育技术的不断发展，教学的方式和手段也在不断地改进，多媒体技术在学科教学中的推动作用越来越显著，它通过将文字、图像、声音、动画等多种媒体有机结合起来，在教学上可取得良好的效果，它具有说服力强、工作效率高、信息量大、创造性思维能力训练佳等特点，多媒体教学将对学生产生深远的影响。我们一直倡导在教学中引入各种教学手段，随着多媒体技术的引入，使得教学资源和教学方式变得更加多样化，学生也非常容易接受，从而明显地提高了教学的效果。关键词：多媒体教学，authorware，VB 1选题背景 1.1开发背景 目前制作多媒体教学课件的软件很多，如Dreamweaver，flash，powerpoint和authorware等。但Macromedia公司开发的Authorware以其功能强大、好学易用等特点独占熬头。Authorware是一种基于图标和流程线的多媒体开发工具，使用者不需具备计算机编程的基础知识就能制作出功能强大的交互型教学软件。 1.2选题的目的和意义 基于authouware环境开发的多媒体教学课件作为一种辅助教学手段，在设计时可以明确教学目标，突出重点、难点，有助于激发学生的学习兴趣，调动学生参与的积极性，促进学生对知识的掌握和吸收，进而提高教学质量。1.3指导思想及研究现状 九十年代是多媒体技术飞速发展的年代，也是多媒体应用技术不断拓展的年代。随着多媒体技术的发展，逐步改变着整个人类的生活、学习方式。多媒体技术将对整个教育产生深远的影响，使传统陈旧的教育方式面貌大为改观。 传统的教学模式是：“以教师为中心，教师利用讲解、板书和各种媒体作为教学法的手段和方法向学生传授知识，学生则被动地接受教师传授的知识。”而建构主义的教学模式则是：“以学生为中心，在整个教学过程中由教师起组织者、帮助者和促进者的作用，利用情境协作，会话等学习环境要素充分发挥学生的主动性、积极性和首创精神。”在两种模式中，教师、学生、教材、媒体四个要素有着完全不同的作用。 从认识论的角度看，学生对事物的认识过程的起点是对事物的感性认识。在物理科的学习中学生由于无法理解一些抽象的理论，而对物理产生一种畏惧的心理，阻碍了他们学习物理的情趣，但应用CAI技术就可以直观的解释一些物理现象和规律，激发学生的兴趣，提高学习的效率。 二十一世纪是信息时代，对于在学校里学习的学生，也应培养处理大量信息的能力。因而在课堂教学中教师应该向学生提供更多的信息、更多的资料，及物理学的发展情况，来扩展学生的知识面。教学过程中，教师经常花较多时间板书，特别是上电学课时写例题、画图例的时间更多，而采用多媒体中的显示文本的功能，这可使本应花十几分钟的内容在几秒内显示于学生眼前。由于使用多媒体的直观性也大大缩短了教学难点的突破过程。这就有时间讲解更多相关的知识和现实的应用，引导他们理论联系实际，丰富了课堂内容，而且从根本上改变过去“满堂贯”的教学弊端，给学生较多自由时间复习巩固，优化了课堂教学，增加了课堂的信息量。 传统的物理教学过程中，主要是教师讲学生听，不便于学生个性的培养。应用CAI能够真正改变学生和教师的位置，使学生成为学习的主体。当学生有问题时，可以及时提出或利用计算机网络与同学讨论，从而多渠道寻找解决问题的办法。当学生对某个物理现象有自己的观点时，也可以提供给大家进行研讨和交流，教师提供解答，这样双向交流中使学生的思维更加活跃，有利于培养学生的创新意识，实现学生主体教师主导的现代教学思想。authorware实现解决方案 2.1开发工具的选择与比较 目前，多媒体教学主要使用几种软件：Dreamweaver，flash，powerpoint和authorware等。 2.1.1 Dreamweaver Dreamweaver是集网页制作和网站管理于一身的网页编辑器，是针对专业网页设计师的视觉化网页开发工具。 Dreamweaver是唯一提供Roundtrip HTML、视觉化编辑与原始码编辑同步的设计工具。它包含HomeSite和BBEdit等主流文字编辑器。帧(frames)和表格的制作速度快的令您无法想像。进阶表格编辑功能使您简单的选择单格、行、栏或作未连续之选取。甚至可以排序或格式化表格群组，Dreamweaver 支援精准定位，利用可轻易转换成表格的图层以拖拉置放的方式进行版面配置。所见即所得 Dreamweaver成功整合动态式出版视觉编辑及电子商务功能，提供超强的支援能力给Third-party厂商，包含ASP，Apache，BroadVision，Cold Fusion，iCAT，Tango与自行发展的应用软件。2.1.2 flash Flash 是一种创作工具，设计人员和开发人员可使用它来创建演示文稿、应用程序和其它允许用户交互的内容。Flash 可以包含简单的动画、视频内容、复杂演示文稿和应用程序以及介于它们之间的任何内容。 Flash是用于制作网页动画的多媒体软件，能够集图形、声音、动画、影像文件制作出极富感染力的动画作品。2.1.3 powerpoint PowerPoint是专门用于创建演示文稿的软件，即用电脑播放的幻灯片。PowerPoint是一种多媒体简报式软件，由于它使用简单，制作效率高，便于课件的集成、修改及二度开发；PowerPoint文件很容易保存为网页文件，可以很方便地实现在线演示，通过与其它创作工具的结合，可以制作出集图、文、声、动画为一体、交互性强、操作简便的多媒体课件。2.1.4 authorware Authorware是将图片、文本、声音、视频等多种媒体集成到一起的优秀工具软件。authworware的主要技术特点如下： （1）具备多媒体素材的能力。 （2）具备多样化的交互作用能力和提供强有力的交互控制。（3）具备操作方便、式样灵活的文字、图形图象、动画处理能力。（4）可使用模块和库。 （5）具备强劲的数据处理和集成能力。（6）具备直观易用的开发界面。（7）提供增强的代码编辑窗口。（8）提供方便强大的发行功能。（9）多媒体文本编辑器。 （10）具备内置的数据跟踪能力，提供精彩的范例程序。2.2 四种实现方式的应用范围 PowerPoint幻灯片课件、Authorware多媒体课件、Flash动画型课件均适用于多媒体教室，Dreamweaver网页型课件应用于网络教室或多媒体教室。 2.3 性能比较 Dreamweaver网页型课件 优点：Dreamweaver 网页课件除了具有强大的交互功能和页面跳转功能，还具有超强的信息链接功能，这是其他类型课件所无法比拟的。 缺点：课件开发制作的难度较大。 课件的超大容量和超强的交互性、以及通往互联网的信息通道给学生的任务驱动型学习、合作探究性学习、自主性学习留下了广阔的空间。 Flash动画型课件 优点：Flash课件具有教强的交互功能，程序的开发通过元件、按钮、图层、帧和场景的组合，可以制作出动感极强的课件。 缺点：课件的交互功能不如Authorware课件强大，交互性设计不如Authorware简捷，故常作为其他课件的积件。 除了能够有效地改变知识的呈现方式和教学的交互方式外，动感极强的课件还能够吸引学生的注意力和激发学生的学习兴趣。 PowerPoint幻灯片课件 优点：PowerPoint 课件的开发制作非常方便，操作简明。缺点：课件的交互性较差，只能实现单一的线性播放，要进行页面之间的跳转比较麻烦。 只是改变了知识的呈现方式，仍然是教师主讲型的课堂教学。 Authorware多媒体课件 优点：Authorware课件具有强大友好的交互功能，程序的开发制作基于流程线和设计图标，具有所见即所得的特点。 缺点：课件只能实现图标驱动动画，对动画的制作和处理能力较弱。 能够创设真实的教学情景，有效地改变知识的呈现方式和教学的交互方式。使课件不仅成为教师教学的辅助工具，而且成为学生思维的训练工具。 2.4 Visual Basic介绍 Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言，它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。 具有如下特点： (1)可视化的程序设计过程Visual Basic在开发过程中所看到的界面，与程序运行时的界面基本相同 (2)事件驱动的编程机制用户的操作：“事件”由事件的触发决定程序的执行顺序(3)面向对象的程序设计(4)结构化的程序设计语言(5)提供了集成开发环境 (6)支持多种数据库系统的访问 《VB程序设计》在高等教育学习中既是重点又是难点，利用多媒体课件演示操作简单，定位便捷;突出人机交互功能;文字简练，图形丰富，超文本导航;动画演示丰富多彩;控件按钮丰富;背景设计与课件内容布局协调、美观;充分发挥了多媒体声音、图形、图像、音频和视频相结合的优势，能帮助学生利用多感官系统接受信息，实现学习目标，产生更好的学习效果。3总结与展望 3.1总结 多媒体技术只不过是一种教学手段，更重要的是如何实现多媒体技术与学科教学的整合。多媒体技术与课程的整合，是能够实现高效率，高速度课改目标的重要手段，有效地将多媒体技术融入到学科教学的课程中，成为现代化教学的重要组成部分。通过整理和组合，将会使各种教学资源、各个教学要素和教学环节相互融合，达到整体优化，实现课改目标。在制作authorware课件过程中须注意一下几点： ⑴明确教学目标，突出重点、难点。 作为一种辅助教学的手段，使用课件的目的就在于调动学生学习的积极性和提高教学质量。因此在设计时必须明确教学目标，突出重点、难点，符合学生的年龄特点、认知规律和认识水平。教学内容的选取、表达和组织要体现预定的教学目标，要有助于学生的身心发展。 ⑵激发学生的学习兴趣，充分发挥学生学习的主动性。 课件设计时要充分体现多媒体计算机作为教学媒体的特点——交互性。利用文字、图片、动画等多种媒体，多感观、多渠道地激发学生的学习兴趣，调动学生参与的积极性，以促进学生对知识的掌握和吸收。 ⑶选择适当的课件类型。 根据学科知识内容及教学方法的需要，选择合适的课件类型能够充分实现教师主导和学生主体的统一。常见的课件类型有课堂演示型、模拟实验型、练习型等。 ⑷课件的内容要具有科学性。 课件中的内容要表达清楚、准确、无科学性错误，语言文字要规范。 3.2展望 总之，随着现代教育技术的不断发展，多媒体在教学中的应用范围越来越广泛，它对教学带来的影响也越来越大，因此，多媒体技术知识也显得越来越重要。如果我们掌握了更多的计算机多媒体知识，并将它们恰当地应用到教学工作中来，能更加顺畅地贯彻授课意图，更好地完成教学目标，有利于学生增加才干，挖掘潜力，培养潜能，提高综合素质，体现高等教育的特色，培养社会主义现代化建设的有用人才！ 参考文献： ［1］韦应波，郝飞，宋志强，等.多媒体教学的探讨［J］.局解手术学杂志，2004，13（1）:46-47.［2］李学农，陈庆.论多媒体教学的发展与启示［J］.医学教育，1994，138（12）:37-39.［3］文灿.多媒体课件在外科应用解剖教学中的应用［J］.局解手术学杂志，2003，12（2）:141-142.［4］倪 武，缪晓辉，王俊学.论当前多媒体教学中的不足及对策［J］.中国高等医学教育 2000，5:23-24.［5］黄成荣，黄澍庄.多媒体教学的负面影响［J］.南宁师范高等专科学校学报，2000，3a ［6］Authorware7.0经典实例详解 朱仁成 张守丽 罗有萍编著-北京： 清华大学出版 2003 ［7］Authorware6.x入门与提高 东方人华主编；王华英，幸莉仙编著。-北京：清华大学 出版社，2003.6 ［8］Authorware6.0职业技能培训教程 全国计算机信息高新技术考试教材编写委员会编写。-北京：北京希望电子出版社，2002.7 ［9］Authorware多媒体设计专家门诊 邓椿志、李恒、王德军编著。-北京：清华大学出版社。［10］《基于Authorware 设计的多媒体课件制作》.教学与管理[J].2009.3:80-81 唐颖悟2004.1061-62.［11］杨金土等.对高等技术教育课程设计的若干理论认识[J].中国高等教育, 2002.21 ［12］魏建华编著·多媒体新课堂 Authorware教程·北京希望电子出版社 ［13］李立华等编著·Flash速成·人民邮电出版社 ［14］贾永红编著·计算机图象处理与分析·武汉大学出版社 ［15］刘振华等编著·多媒体课件制作实用教程·清华大学出版社 ［16］清汉计算机工作室编著·FrontPage 2000网页制作实例·机械工业出版社 ［17］钟玉琢等编著·多媒体技术及其应用·机械工业出版社 ［18］James D.Foley·Computer Graphics Principles and Practice·机械工业出社·2002.6·第1版 ［19］Malan Sonka· Image Processing,Analysis,and Machine Vision·人民邮电出版社·2002.8 ［20］Ramesh Jain ·Machine Vision·机械工业出版社·2003.8·第1版 综 合 性 实 验 实 验 名 称:关闭标题包含指定字符的所有窗口 专 业 班 级: 学 生 姓 名： 学 号： 指 导 教 师： 需求分析： 关闭标题包含指定字符的所有窗口，使我们能更方便的关闭很多窗口，避免了一个一个关闭的麻烦 运行环境： WINDOWS XP系统；VB6.0； 3开发工具和编程语言 Visual Basic6.0语言； 4 系统设置： 下例程序运行后，单击按钮关闭标题包含“记事本”的所有窗口 '在窗体上放置 3 个控件，所有控件无需设置任何属性，全部采用默认设置： ' Command1，Label1，Text1 Private Declare Function FindWindowEx Lib “user32” Alias “FindWindowExA”(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String)As Long Private Declare Function PostMessage Lib “user32” Alias “PostMessageA”(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)As Long Private Declare Function GetWindowText Lib “user32” Alias “GetWindowTextA”(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long)As Long Private Sub Form_Load()'设置控件初始状态，实际可以在窗体设计阶段完成 Dim S As Single Me.Caption = “关闭指定窗口”: Text1.Text = “记事本” Label1.AutoSize = True: Label1.Caption = “窗口标题包含的字符：” Command1.Caption = “关闭指定窗口” S = Label1.Height Label1.Move S, S Text1.Move S + Label1.Width, S * 0.5, S * 8, S * 2 Command1.Move S, S * 3, S * 8, S * 2 End Sub Private Sub Command1_Click()Dim hWnds As Long, nCap As String, nFind As String Dim S As Long, S1 As Long, nLong()As Long, nCount As Long S = 255: nFind = Text1.Text Do hWnds = FindWindowEx(0, hWnds, vbNullString, vbNullString)If hWnds = 0 Then Exit Do nCap = String(S + 1, “ ”)GetWindowText hWnds, nCap, S S1 = InStr(nCap, Chr(0))If S1 > 0 Then nCap = Left(nCap, S1-1)If InStr(nCap, nFind)> 0 Then ' PostMessage hWnds, &H10, 0, 0 '不在这里发送关闭消息，是为了防止漏查 nCount = nCount + 1 ReDim Preserve nLong(1 To nCount)nLong(nCount)= hWnds End If Loop For S = 1 To nCount PostMessage nLong(S), &H10, 0, 0 '发送关闭窗口消息 DoEvents Next End Sub 5参考文献： 龚培增，杨志强Visual Basic程序设计教程（第三篇：VB编程题及答案
第四篇：VB程序设计语言多媒体教学课件的设计与实现
第五篇：vb综合实验
![下载程序设计语言VB综合设计题及答案[精选五篇]word格式文档](http://static.xiexiebang.com/skin/default/images/icon_word.png){kind=icon}
点击咨询 