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
Command1.Top = Form1.ScaleHeight - Command1.Height End Sub
Private Sub Form_Resize()
Call Form_Load
End Sub
Private Sub Command1_Click()
End
End Sub
作业二
1.填空题：
（1）Visual Basic 算术表达式a+b/(b+c/(d+e/Sqr(2*a*b)))对应的数学表达式（ ab e
d c b b
a 2++
+ ）。
（2）产生一个10-99之间的随机整数的表达式（ int(rnd*90)+10 ）。
（3）整形变量X 中存放了一个两位数，要将两位数交换位置，例如，73变成37，实现的表达式是（ (x mod 10)*10+ x\10 ）。
（4）算术表达式Fix(-3.95)+int(-3.02)+Cint(-3.5)+25 mod 10\3的值是（ -10 ）。
（5）表达式Ucase(Mid(″abcdefgh ″,3,4))的值是（ CDEF ）。
2.使用立即窗口显示下列表达式的值（设x=5，y=15，z=3），并分析所输出的结果。
（1）Len(x & y &''z'') （2）Sgn(10 mod 6) & x+y
（3）x mod z +x^2\y+z （4）x^2-y*2>3*z and z^3<>x^2
（5）(y mod 10) *10+y\10 （6）Mid(str(x^3),2,2) & y+z
（7）Ucase(Left(Mid(''This is a Book'',6),4)) （8）Date()+10
（9）Timer Mod 3600 （10）Hour(time())
3.编程题：
（1）编一个模拟简易计算器的程序，运行界面如下图所示：
程序代码：
Private Sub Form_Load()
Label1.Caption = ""
End Sub
Private Sub Command1_Click() ' 加法
Label1.Caption = "＋"
Text3 = Str$(Val(Text1) + Val(Text2))
End Sub
Private Sub Command2_Click() ' 减法
Label1.Caption = "－"
Text3 = Str$(Val(Text1) - Val(Text2))
End Sub
Private Sub Command3_Click() ' 乘法
Label1.Caption = "×"
Text3 = Str$(Val(Text1) * Val(Text2))
End Sub
Private Sub Command4_Click() ' 除法
Label1.Caption = "÷"
Text3 = Str$(Val(Text1) / Val(Text2))
End Sub
Private Sub Command5_Click() ' 清除
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = ""
End Sub
（2）编一个程序，当单击窗体时，在窗体上任意位置，随机输出一个大写的英文字母。
提示：随机大写的英文字母由表达chr(Int(Rnd*26)+65)产生，窗体上的随机位置通过设置当前坐标CurrentX,CurrentY属性来确定。
程序代码：
Private Sub Form_Click()
Dim ch As String
Form1.CurrentX = Form1.ScaleWidth * Rnd '随机确定当前x坐标
Form1.CurrentY = Form1.ScaleHeight * Rnd '随机确定当前y坐标
ch = Chr(65 + Int(26 * Rnd)) '随机产生一个大写字母
Print ch
End Sub
作业三
1.填空题;
（1）下面程序执行的结果是（A=2 B=3 C=2）。
Private Sub Form_Click()
a = 1:
b = 2:
c = 3
a = b
b = c
c = a
Print "a="; a; "b="; b; "c="; c
End Sub
（2）下面程序执行的结果是（5）。
Private Sub Form_Click()
a$ = "123": b$ = "456"
c = Val(a$) + Val(b$)
Print c \ 100
End Sub
（3）下面程序执行的结果是（BABCBACBC）。
Private Sub Form_Click()
x$ = "a": y$ = "b": z$ = "c"
x$ = y$ & x$: y$ = y$ & z$: z$ = x$ & z$ & y$
Print x$ + y$ + z$
End Sub
（4）下面程序执行的结果是（ 1 2 False）。
Private Sub Form_Click()
Dim x%, y%, z%
x = 1: y = 2
z = x = y
Print x; y; x
End Sub
（5）当程序运行后，在文本框Text1中输入1234，窗体上的输出结果是（1-12-123-1234-）。Private Sub Text1_Change()
Print Text1 & "-";
End Sub
2.编程题：
1）编写程序，输入一个职工的工资，打印输出发给该职工的人民币张数最少的方案。
程序代码：
Public Sub Form_click()
Dim hundred As Integer '100元票面数量
Dim fifty As Integer '50元票面数量
Dim Twenty As Integer '20元票面数量
Dim ten As Integer '10元票面数量
Dim five As Integer '5元票面数量
Dim two As Integer '2元票面数量
Dim one As Integer '1元票面数量
Dim total As Integer '总计最小钞票数量
Dim X As Integer '职工工资
Dim tmp As Integer
X = Val(InputBox("输入职工工资 X=？", "输入框"))
hundred = X \ 100 '求100元票面数量
tmp = X Mod 100 ' 求剩余金额
fifty = tmp \ 50
tmp = tmp Mod 50
Twenty = tmp \ 20
tmp = tmp Mod 20
ten = tmp \ 10
tmp = tmp Mod 10
five = tmp \ 5
tmp = tmp Mod 5
two = tmp \ 2
one = tmp Mod 2
total = hundred + fifty + Twenty + ten + five + two + one
Form1.Print "100元票" & (hundred) & "张", "50元票" & Str(fifty) & "张"
Form1.Print "20元票 " & Str(Twenty) & "张", "10元票" & Str(ten) & "张"
Form1.Print "5元票" & Str(five) & "张", "2元票" & Str(two) & "张"
Form1.Print "1元票" & Str(one) & "张"
Form1.Print
Form1.Print "-----------------------------------------------"
Form1.Print "合计票：" & Str(total) & "张"
End Sub
2）编写程序，使用InputBox函数输入两个电阻的值，求它们并联和串联的电阻值，使用MsgBox消息框输出结果，要求结果保留小数点后三位。并联和串联的电阻值计算公式如下：R P=( R1*R2)/ ( R1+R2)(并联电阻), R S =R1+R2（串联电阻）
程序代码：
Private Sub Form_Load()
Dim r1 As Single, r2 As Single, Rp As Single, Rs As Single
r1 = InputBox("请输入第一个电阻值：")
r2 = InputBox("请输入第二个电阻值：")
Rp = (r1 * r2) / (r1 + r2)
Rs = r1 + r2
MsgBox "Rp=" + Format(Str(Rp), "0.000") + "，Rs=" + Format(Str(Rs), "0.000")
End Sub
作业四（必做）
编程题：
设计"健康秤"程序，界面设计如下图所示。具体要求如下：
（1）将两个文本框的文字对齐方式均设置为右对齐，最多接受 3 个字符，均不接受非数字键；
（2）单击"健康状况"按钮后，根据计算公式将相应提示信息通过标签显示在按钮旁边，如下图所示。
计算公式为：标准体重＝身高-105
体重高于标准体重的1.1 倍为偏胖，提示"偏胖，注意饮食"；
体重低于标准体重的90 ％为偏瘦，提示"偏瘦，增加营养"；
其他为正常，提示“正常，继续保持”。
程序代码：
Private Sub Command1_Click()
Dim sg As String, tz As String, bz As String
sg = Str(Text1.Text)
tz = Str(Text2.Text)
bz = sg - 105
If tz / bz >= 1.1 Then
Label5.Caption = "偏胖，注意饮食！"
ElseIf tz / bz <= 0.9 Then
Label5.Caption = "偏瘦，增加营养！"
Else
Label5.Caption = "正常，继续保持！"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 58 Then KeyAscii = 0
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 58 Then KeyAscii = 0
End Sub
作业五
1.写出程序执行结果：
运行后单击Command1后，输入12345678，写出窗体上的输出结果。
Private Sub Command1_Click()
Dim x As Long, y As String
x = InputBox("输入一个数")
Do While x <> 0
y = y & x Mod 10
y = x \ 10 Mod 10 & y
x = x \ 100
Print y
Loop
End Sub
结果：
78
5786
357864
13578642
2.填空题：
1)下面程序的功能是计算
F=1-1/(2×3)+1/(3×4)-1/(4×5)+…+1/(19×20)
Private Sub Form_Click()
dim f as Single ,i as Integer ,sign as Integer
①sign=-1
f=1
②for i=2 to 19
f=f+sign/(i*(i+1))
③sign=-sign
Next i
Print 〝f=〞;f
2)下面的程序是在一个字符串变量中找“at”，并用消息框给出查找结果的报告：没有找到或找到的个数。程序如下：
Private Sub Form_Click()
Dim str1 As String '在字符串str1中查找“at”
Dim length As Integer '字符串长度
Dim sum As Integer '查到的个数
Dim i As Integer
str1 = InputBox("请输入一个字符串")
length= ①Len(str1)
i = 1
sum = 0
do while i<= ②length-1
if ③Mid(str1,i,2) =〝at〞then
sum = sum + 1
End If
i = i + 1
Loop
If ④sum=0 then
MsgBox "没有找到！"
Else
MsgBox "找到了" & Str(sum) & "个"
End If
End Sub
3.编程题：
1)编程计算：1！+2！+3！+ (9)
程序代码：
Private Sub Form_Click()
Dim i%, T!, S!
T = 1
For i = 1 To 9
T = T * i
S = S + T
Next i
Print "S="; S
End Sub
2)求sin(x)= x - x^3/3! + x^5/5! - x^7/7! + ……… (精度为0.000001) 程序代码：
Private Sub Command1_click
Dim x AS Double
Dim sum AS Double
Dim t AS double
Dim i AS integer
Sum= 0
X = inputBox(“请输入X的值“)
t = X
i = 1
DO
sum = sum + t
t = -t * X * X/(2*I)/(2*I+1)
I=I+1
Loop While Abs(t)>0.000001
Print sum
End Sub
作业六（必做）
编程序，按下图形式打印输出九九乘法表,要求在窗体上输出既可.
程序代码：
Private Sub Command1_Click()
Dim i%, j%, a$
For i = 1 To 9
For j = 1 To i
a = CStr(j) & "×" & CStr(i) & "=" & CStr(i * j)
a = a & Space$(8 - Len(a))
Print a;
Next j
Next i
End Sub
作业七（必做）
编程题：
编一程序，用 InputBox 函数输入 12 个整数，赋值给 3 × 4 的二维数组，求出其中最大元素及它的行、列坐标，并将数组按行（矩阵形式）输出到窗体，最大元素及行、列下标输出在数组的下方。
程序代码：
Private Sub Form_Click()
Dim a(1 To 3, 1 To 4) As Integer, i%, j%, max%, imax%, jmax%
For i = 1 To 3
For j = 1 To 4
a(i, j) = Val(InputBox("Input a data"))
Next j
Next i
For i = 1 To 3
For j = 1 To 4
Print a(i, j);
Next j
Next i
max = a(1, 1)
imax = 1
jmax = 1
For i = 1 To 3
For j = 1 To 4
If max < a(i, j) Then
max = a(i, j)
imax = i
jmax = j
End If
Next j
Next i
Print "The max number:"
Print max; imax; jmax
End Sub
作业八
1.填空题：
1）下列程序将给定的十六进制整数字符串转换为十进制数。
Private Sub Form_Click()
Dim st As String, dem As Long
st = "3E8"
① dem=Convert(st)
Print st; "=>"; dem
End Sub
Private Function convert(s As String) As Long
Dim n%, i%, subc As String * 1, p&
n = Len(s)
p = 0
For i = 1 To n
Subc= ② Mid(s,i,1)
Select Case subc
Case "0" To "9"
p = p * 16 + Val(subc)
Case "A" To "F"
p=p*16 +_ ③_10+Asc(subC)-Asc("A")
End Select
Next i
④__Convert=p _
End Function
2)下面的total()过程用于计算s=7+77+777+…+(n 个7组成的数)。
Private Sub total()
Const n = 20
Dim s As Single, i As Integer
For i = 1 To n
S=s+ ① number(i)
Next i
Form1.Print "s="; s
End Sub
Public Function number ( ② n as integer ) As Single
Dim i As Integer
number = 0
For i = 1 To n
③ number=10*number + 7
Next i
End Function
2.编程题：
1）编写递归函数计算两个正整数的最大公约数，递归公式为
,0(,)(,),0n m Mod n gcd m n gcd n m Mod n m Mod n = ?=? ≠ ?
程序代码：
Function gcd(m%, n%)
If m Mod n = 0 Then gcd = n Else gcd = gcd(n, m Mod n)
End Function
Private Sub Form_Click()
Print gcd(36, 81)
End Sub
2)设计一个删除子串的函数过程Delstr(s1,s2)，其功能是将字符串s1中出现的s2子字符串删去。程序运行效果如下图所示。
程序代码：
Private Sub Command1_Click()
Dim T1 As String
Dim T2 As String
T1 = Text1.Text
T2 = Text2.Text
MsgBox DelStr(T1, T2)
End Sub
Private Function DelStr(S1 As String, S2 As String) '这个就是delstr函数
Dim Sa As String
Dim Sb As String
Dim i As Long
Sa = S1
Sb = S2
Do
DoEvents
i = InStr(Sa, Sb)
If i <> 0 Then
Sa = Left(Sa, i - 1) & Right(Sa, Len(Sa) - (Len(Sb) + i - 1))
Else
Exit Do
End If
Loop
DelStr = Sa
End Function
Private Sub Form_Click()
Dim a As String, b As String
a = "dsklg 67mweeankjg mwekat"
b = "mwe"
Print "a字符串是：" & a
Print "b字符串是：" & b
a = Replace(a, b, "")
Print "得到的a字符串是：" & a
End Sub
作业九（必做）
编程题：
设计一个家电提货单管理程序。程序运行界面如下图所示。具体要求：
（1）根据选项中选择的家电及数量，单击"确定"后，将选择的清单及总价在列表框中列出。
（2）每选择一种家电，光标自动定位在相应的文本框中，取消选择时，相应的文本框自动清空。
（3）"清除"按钮用于清空列表框中的项目。
（4）所有文本框只接受数字
程序代码：
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Long, n%
Dim title As String, price As Integer
sum = 0
For i = 0 To 4
Select Case i
Case 0
title = "电视机"
price = 3580
Case 1
title = "微波炉"
price = 660
Case 2
title = "电冰箱"
price = 1850
Case 3
title = "DVD"
price = 2880
Case 4
title = "分体空调"
price = 5500
End Select
If Check1(i).Value = 1 And Text1(i).Text <> "" Then
List1.AddItem title & Text1(i).Text & "台"
sum = sum + Val(Text1(i)) * price
n = n + Val(Text1(i))
End If
Next i
If sum <> 0 Then
List1.AddItem "共: " & n & "台" & "合计金额:" & sum & "元"
End If
End Sub
Private Sub Command2_Click()
List1.Clear
Text1(Index) = ""
Check1(Index).Value = 0
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If Chr(KeyAscii) > "9" Or Chr(KeyAscii) < "0" Then
KeyAscii = 0
End If
End Sub
作业十
1.判断题
(1)驱动器列表框、目录列表框是下拉列表框。√
(2)驱动器列表框、列表框目录、文件列表框之间可以自动实现关联。×
(3)Visual Basic中按文件的访问方式不同，将文件分为文本文件、随机文件和ASCII文件。√
(4)随机文件、二进制文件的写操作都使用Get语句完成。×
(5)使用Output方式打开一个已存在的文件将会创建一个新的顺序文件。√
2．选择题
(1)下面的叙述不正确的是C。
(A)顺序文件的数据是以字符(ASCII码)的形式存储的
(B)顺序文件的结构简单
(C)能同时对顺序文件进行读写操作
(D)对顺序文件的操作只能按一定顺序执行
(2)文件号最大可取的值为B。
(A)255 (B)511 (C)256 (D)512
(3)Kill语句在Visual Basic中的功能是D。
(A)杀病毒(B)清屏幕(C)清内存(D)删除文件
(4)执行语句Open”C：＼Filel．dat”For lnput As #1之后，系统C。
(A)在C盘根目录下建立名为Filel.dat的顺序文件
(B)将C盘根目录下的名为Filel.dat的文件内容读人内存
(C)将数据存放在C盘根目录下的名为Filel.dat的文件中
(D)将某个磁盘文件的内容写入C盘目录下的名为Filel.dat的文件中
(5)改变驱动器列表框的Driver属性将激活A事件。
(A) Change (B) KeyDown (C) Click (D) MouseDown
编程题
设计应用程序，统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。(运行结果如下图所示)
程序代码：
Private Sub cmdCount_Click()
Dim strIn As String, Count As Integer
'打开文件进行统计
Open txtFile For Input As #1
Count = 0 '计数器清零
Do While Not EOF(1)
strIn = Input(1, #1) '一次读出一个字符
If LCase(strIn) >= "a" And LCase(strIn) <= "z" Then Count = Count + 1 '识别字母并统计
Loop
Close #1
Print Count
End Sub
Private Sub cmdOpen_Click()
txtFile.Text = ""
CmmDlog.DialogTitle = "打开文件"
CmmDlog.Filter = "文本文件(*.txt)|*.txt"
CmmDlog.Action = 1
txtFile = CmmDlog.FileName
End Sub
作业十一
1.判断题
(1)在设计时可以改变通用对话框的大小。×
(2)在“打开”对话框内过滤文件类型的属性是古Filter属性。√
(3)在使用“字体”对话框之前必须设置Flag属性。√
(4)在一个窗体的程序代码中不可以访问另一个窗体上控件的属性。×
2．选择题
（1）要使窗体在运行时不可改变大小且没有最大化和最小化按钮，要对窗体的D属性进行设置。
(A)MaxButton (B)Width
(C)MinButton (D)BorderStyle
(2)以下叙述中错误的是B。
(A)一个工程可以包括多个窗体文件
(B)在一个窗体文件中用Private定义的通用过程能被其他窗体调用
(C)在设计Visua lBasic程序时，窗体、标准模块及类模块等需要分别保存为不同类型的磁盘文件
(D)全局变量可以在标准模块中定义，也可以在窗体模块的通用声明段中定义
(3)在下列关于通用对话框的叙述中，错误的是C
(A)CommonDialogl．ShowFont显示字体对话框
(B)在打开或另存为对话框中，用户选择的文件名可以经FileTitle属性返回
(C)在打开或另存为对话框中，用户选择的文件名及其路径可以经FileTitle属
性返回
(D)通过对话框可以用来制作和显示帮助对话框
(4)要退出Form2窗体，应使用D语句。
(A)Form2.Unload (B)Hide Form2
(C)Unload.Form2 (D)Unload Form2
编程题：
设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。
程序代码：
Private Sub Command1_Click()
CommonDialog1.Action = 1 ′调用打开对话框
Call Shell(CommonDialog1.FileName) ′执行所选择的文件
End Sub
Private Sub Command2_Click() End
End Sub
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、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
VB实验报告8
台州学院 《VB程序设计》实验报告实验八：图形的绘制 班级：14制药3班 学号： 姓名： 实验日期：2015.6.5
一、实验目的和要求 1．掌握Visual Basic 容器坐标系的设计方法； 2．熟练掌握Pset、Line和Circle方法的格式及其使用； 3．掌握与图形有关的常用属性，方法。 二、实验主要仪器和设备 计算机一台，Windows XP / Win7操作系统，Visual Basic环境。 三、实验内容 实验8.1 下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司销售额的圆饼图（如图8-1所示）。要求：在文本框中只能输入数字字符；在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。 图8-1 程序运行时的界面 四、实验原始纪录 实验8.1 程序的界面设计。
程序代码。 Const pi = 3.1415926 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer a = Text1.Text b = Text2.Text c = Text3.Text d = a + b + c Picture1.FillStyle = 0 Picture1.FillColor = vbRed Picture1.Circle (2000, 2000), 1000, vbBlack, -2 * pi, -(a / d) * pi * 2 Picture1.FillColor = vbGreen Picture1.Circle (2000, 2000), 1000, vbBlack, -(a / d) * pi * 2, -((a + b) / d) * pi * 2 Picture1.FillColor = vbBlue Picture1.Circle (2000, 2000), 1000, vbBlack, -((a + b) / d) * pi * 2, -pi * 2 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub 五、实验结果及分析 实验8.1运行结果。
vb实验教程答案
第一章 答案： 一、单项选择题 1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C 二、判断题 1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T 第二章 一、单项选择题 1. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D 21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B 31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. False 第三章 一、单项选择题 1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B 二、判断题 1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F . 第四章 一、单项选择题 1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A 21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D 二、判断题 1.F 2.T 3.F 4.F 5.T 6.F 7.T 三、操作题 1.参考代码： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j
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期末考试题目及详细答案
九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic?序开发的特点是面向对象的事件驱动。（J 2、Print_Text 是一个不合法的变量名。（为 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（翌 4、设置字体大小应使用Font属性（为 5、Sub过程可以实现嵌套调用（寸 6、IIF函数中的三个参数都不能省略。（寸 7、块结构条件语句以End If结束，而单行结构条件语句没有End旧（明 8、当终值小于初值时，步长为负数。（5 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（寸 10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用（/） 二、单项选择题 1. Print Format （123, ” ###说执行之后的结果为 A）# 123B） 123C） 123# D） # # # # 【答案】B 2. 下面可以表示注释语句开头的为 A）R e B R C Rem。dim 【答案】C 3. 下列选项中窗体载入事件为 A) Load 事件B) Click事件C) DblClick事件D) Unload 事件
【答案】A 4. Timer控件可以使用下列哪种事件 A) Click事件B) Timer 事件C) Dblclick 事件D) Change事件 【答案】B 5. 在InputBox函数中哪一个参数是必须的 A) Prompt B) Buttons C) Title D) Context 【答案】A 6. 以下叙述中错误的是： A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程可以嵌套调用Sub过程 D) 事件过程可以像通用过程一样由用户定义过程名 【答案】C 乙要填加一个标准模块，可使用“ 单中的添加模块”命令。 A)文件B)视图C)工程D)工具 【答案】C 8 .在块结构条件语句If-Then / Endif中 (A) 必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误
VB实验报告(含答案)
实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____
实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图所示。 图实验1-1 运行界面 三．实验结果：对象属性设置 对象属性属性值说明 caption我的第一个vb程序窗体Form1 caption请输入姓名标签Label1 text““文本框Text1 caption显示命令按钮Command1 caption清除命令按钮Command2 四．实验思考： 1.标签label控件设置的属性代码有哪些 =“请输入姓名” =24 =True 2.两个按钮所使用的是什么事件代码分别是什么 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为摄氏温度。 2.用三种除法运算（/ 、\、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。 图2-1 图2-2 三．实验结果：对象属性设置 1.温度转换 对象属性属性值说明 Form1Caption Inputbox与msgbox窗体
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实验一 实验报告
实验报告一 课程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 考试试卷 班级：学号：姓名： 123456789101112131415 一、选择题（每题两分，共十五题） 1.下列叙述中正确的是 (c) A. 只有窗体才是VB中的对象 B.只有控件才是VB中的对象 C. 窗体和控件都是VB中的对象 D.窗体和控件不是VB中的对象 2. 下列可以激活属性窗口的操作是(D) A. 用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“工具箱”命令 C. 按 Ctrl+F4 键 D.按F4键 3. 下列不能打开工具箱窗口的操作是(B) A. 执行“视图”菜单中的“工具箱”命令 B.按 Alt+F8键 C. 单击工具栏上的“工具箱”按钮 D.按 Alt+V键，然后按 Alt+X键 4.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先 应执行的操作是 (A) A. 单击窗体上没有控件的地方 B.单击任一个控件 C. 不执行任何操作 D.双击窗体的标题栏 5. 为了把窗体上的某个控件变为活动的，应执行的操作是(C) A. 单击窗体的边框 B.单击该控件的内部 C. 双击该控件 D.双击窗体 6. 确定一个控件在窗体上的位置的属性是(D) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 7. 确定一个窗体或控件的大小的属性是(B) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 8. 为了同时改变一个活动控件的高度和宽度，正确的操作是( B) A. 拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块 C. 只能拖拉位于控件左下角的小方块 D.不能同时改变控件的高度和宽度
《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．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)
VB实验报告一VB环境和可视化编程基础
大学学生实验报告 开课学院及实验室：地理科学学院2014年4月1日
表A_1 对象属性设置 控件名属性 Form1 Caption=”实验A_1” Label1 Caption=”欢迎学习VisualBasic”;Font属性:字号为二号,字体为隶书 Label2 Caption=”请输入你的”Font属性:字体为楷体,有下划线 Text1 Text1=”” Command1 Caption=”” Label3 Caption=””,BorderStyle=1 ④窗体界面设计如图1： 图1 实验A_1窗体界面设计 ⑤代码设计如图2： 图2实验A_1代码设计 （3）实验结果
①运行结果如图3： 图3实验A_1运行结果 ②保存文件如图4： 图4实验A_1文件保存 A_2 （1）实验容：模仿教材例1.1，将事件过程自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。各控件及属性窗口的设置参见表格A.2，背景图形文件可以选择自己喜欢的，按钮上的图标通过Windows 搜索功能查找。以Sy1-2为项目名保存。 （2）实验步骤： ①创建一个“标准EXE”工程； ②在窗体上添加标签Label1、命令按钮Command1和Command2及Timer1； ③设置对象属性；
表A_2 对象属性设置 控件名属性 Form1 Caption=”实验A_2”;Picture:为你喜欢的图片 Label1 Caption=”我开始学习程序设计”;Fontsize=36 Command1 Caption=””;Style=1;Piciture=”clock02.ico”;ToolTipText=” 自动” Command2 Caption=””;Style=1;Piciture=”key04.ico”;ToolTipText=” 手动” Timer1 Internal=0 ④窗体界面设计如图5： 图5 实验A_2窗体界面设计 ⑤代码设计如图6：
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
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 '复制
vbvb期末考试实验答案作业
请参考10_2.exe程序的运行结果，新建一个工程，完成"调色板"程序的设计，该程序由红绿兰三原色进行调色，如果预览满意，单击"应用"按钮，将调好的颜色作为文本框中文字的颜色。将完成后的工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_2目录下。 具体要求如下： 1. 应用程序界面设计参考图示。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。[注意：滚动条最大值为255] 4. 要求在任意一个颜色成分输入文本框中输入一个0-255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 5. 单击"应用"按钮后将调好的颜色作为文本框中文字的颜色。 思考题：拖动滚动条时有没有触发滚动条的Change事件？ 提示: 1. 应用程序界面设计参考图示。 程序界面右下角的预览框架里的长方形是形状控件Shape1（工具箱中的），将其FillStyle属性设置为0。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 三个滚动条的Min设为0，Max设为255；三个文本框的Text属性设为空字串。
3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。 颜色是利用Rgb(r,g,b）函数来表示，其中r,g,b是红、绿、兰颜色的饱和度，分别通过滚动条来控制。 Private Sub HScroll1_Change(Index As Integer) Text1(Index).Text = HScroll1(Index).Value Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub 4. 要求在任意一个颜色成分输入文本框中输入一个0—255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 设计文本框的Change事件： Private Sub Text1_Change(Index As Integer) HScroll1(Index).Value = Val(Text1(Index).Text) End Sub 5. 单击“应用”按钮后将调好的颜色作为文本框中文字的颜色。 Text2.ForeColor = Shape1.FillColor 下载10_1.exe 请参考10_1.exe程序的运行结果，新建一个工程，完成"过程练习"程序的设计，并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。 具体要求如下： 1. 各题必须按要求用通用过程或函数过程进行编程。 2. "第一题"：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 3. "第二题"：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 4. "第三题"：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。 5. "第四题"：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。 思考题：通用过程与函数过程的区别？ 提示:
VB实验报告(含答案)
VB实验报告(含答案)
实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____
实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般 功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用 程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、 事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 1．掌握Visual Basic数据类型的基本概念。 2．掌握用Visual Basic的各种运算符及表达式。 3．学习使用Visual Basic内部函数和数据输入、输出方法。 4．掌握命令按钮、文本框和标签。 5．设计顺序程序。 二．实验内容： 1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏 温度，用msgbox输出转换后的摄氏温度。转换 公式是：C= 5 / 9(F - 32)。F为华氏温度，C 为摄氏温度。 2.用三种除法运算（/ 、\、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
VB程序设计学习与实验指导答案
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.wendangku.net/doc/151446119.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期末考试题和答案
大一的vb期末考试题和答案 1．在代码中引用一个控件时，应使用控件的（）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（）的值为“假”。 A．x+a <=b-y B．x>0 AND y<0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（）类型数据。 A．整型 B．单精度浮点数 C．货币 型 D．长整型 6．下列变量名中正确的是（）。
A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（）是有效的。 A.sum=sum-sum B.x+2=x+2 C.x+y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（）。 A．Print B．Textbox C．Optionbutto n D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（）属性来实现。 https://www.wendangku.net/doc/151446119.html, B.ListIndex C．ListCount D．Text 10．下列代码的运行结果为（）。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5
- 大一《VB面向对象程序设计》作业及实验报告书 答案
- VB实验报告
- VB程序设计实验报告
- (完整版)VB程序设计实验报告
- VB实验一 实验报告-2016
- 《VB语言程序设计》实验报告
- VB程序设计实验报告
- VB程序设计实验报告
- VB实验指导
- 大一下课程VB程序设计实验要求及报告6
- 实验一简单VB程序设计-sylu
- (完整版)《VB程序设计》实验报告
- VB程序设计教程(第3版)课后实验答案最新版2
- VB程序设计指导实验指导与习题解答上机答案
- VB程序设计实验
- VB程序设计实验01解析完整版
- VB实验答案1
- VB程序设计实验报告
- VB程序设计实验报告
- vb 程序设计教程(机械工业出版社)习题答案 实验6-2)