《https://www.doczj.com/doc/df15628361.html,程序设计》实验参考答案
实验1-3
Dim n% = 0
Private Sub Form1_Click(……) Handles Me.Click
n = n + 1
TextBox1.Text = n
End Sub
实验1-4
Private Sub Form1_Load(……) Handles MyBase.Load
Me.Text = "装入窗体"
Me.BackgroundImage = Image.FromFile("tongji.bmp") '当前目录为Bin的Debug
Me.Cursor = New Cursor("key04.ico")
Me.Icon = New Icon("MISC34.ICO")
End Sub
Private Sub Form1_Click(……) Handles MyBase.Click
Me.Text = "单击窗体"
' Me.Size = New Size(264 + 10, 256 + 30) '图片大小为×
Me.BackgroundImage = Image.FromFile("tongji-2.bmp")
End Sub
Private Sub Form1_DoubleClick(……) Handles MyBase.DoubleClick
Me.Text = "双击窗体"
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.BackgroundImage = Nothing
Me.Cursor = Cursors.Default
End Sub
Private Sub Form1_Resize(……) Handles Me.Resize
Me.Size = New Size(264 + 10, 256 + 30)
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
End Sub
实验1-5
Private Sub Button1_Click(……) Handles Button1.Click
TextBox1.Font = New Font("隶书", 20)
End Sub
Private Sub Button2_Click(……) Handles Button2.Click
TextBox2.Text = TextBox1.SelectedText
TextBox2.Font = TextBox1.Font
End Sub
实验1-6
Dim w%, h%
Private Sub Form1_Load(……) Handles Me.Load
w = PictureBox1.Width
h = PictureBox1.Height
End Sub
Private Sub Button2_Click(……) Handl es Button2.Click
PictureBox1.Width = w
PictureBox1.Height = h
End Sub
Private Sub Button1_Click(……) Handles Button1.Click, Button1.Click PictureBox1.Width = PictureBox1.Width / 2
PictureBox1.Height = PictureBox1.Height / 2
End Sub
实验2-1
Private Sub Button1_Click(……) Handles Button1.Click
TextBox1.Text = Int(Rnd() * 10 + 0)
TextBox2.Text = Int(Rnd() * 90 + 10)
TextBox3.Text = Int(Rnd() * (999 - 100 + 1) + 100)
End Sub
Private Sub Button2_Click(……) Handles Button2.Click
Dim avg!
avg = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3
Label2.Text = "三个数的平均值为：" & Format(avg, "0.00") End Sub
Private Sub Button3_Click(……) Handles Button3.Click
End
End Sub
实验2-4
Private Sub Button1_Click(……) Handles Button1.Click
Dim n%
n = Val(InputBox("输入个数"))
Label2.Text = Button1.Text & "函数的结果"
TextBox2.Text = StrDup(n, TextBox1.Text)
End Sub
Private Sub Button2_Click(……) Handles Button2.Click
Label2.Text = Button2.Text & "函数的结果"
TextBox2.Text = UCase(TextBox1.Text)
End Sub
Private Sub Button3_Click(……) Handles Button3.Click
Label2.Text = Button3.Text & "函数的结果"
TextBox2.Text = LCase(TextBox1.Text)
End Sub
Private Sub Button4_Click(……) Handles Button4.Click
Dim n, m As Integer
n = Val(InputBox("输入n"))
m = Val(InputBox("输入m"))
TextBox2.Text = Mid(TextBox1.Text, n, m)
Label2.Text = Button4.Text & "函数的结果"
End Sub
Private Sub Button5_Click(……) Handles Button5.Click Label2.Text = Button5.Text & "函数的结果"
TextBox2.Text = Len(TextBox1.Text)
End Sub
Private Sub Button6_Click(……) Handles Button6.Click Dim s1$
s1 = Val(InputBox("输入s1"))
TextBox2.Text = InStr(TextBox1.Text, s1)
Label2.Text = Button6.Text & "函数的结果"
End Sub
Private Sub Button7_Click(……) Han dles Button7.Click Dim s1$, news$
s1 = InputBox("输入s1")
news = InputBox("输入news")
TextBox2.Text = Replace(TextBox1.Text, s1, news)
Label2.Text = Button7.Text & "函数的结果"
End Sub
Private Sub Button8_Click(……) Ha ndles Button8.Click Label2.Text = Button8.Text & "函数的结果"
TextBox2.Text = Trim(TextBox1.Text)
End Sub
实验2-5
Private Sub Button1_Click(……) Handles Button1.Click
Label2.Text = Button1.Text & "函数的结果"
TextBox2.Text = Val(TextBox1.Text)
End Sub
Private Sub Button2_Click(……) Handles Button2.Click Label2.Text = Button2.Text & "函数的结果"
TextBox2.Text = Str(TextBox1.Text)
End Sub
Private Sub Button3_Click(……) Handles Button3.Click Label2.Text = Button3.Text & "函数的结果"
TextBox2.Text = Chr(TextBox1.Text)
End Sub
Private Sub Button4_Click(……) Handles Button4.Click TextBox2.Text = Asc(TextBox1.Text)
Label2.Text = Button4.Text & "函数的结果"
End Sub
实验3-2
Private Sub Button1_Click(……) Handles Button1.Click Dim x!, y!
If Not IsNumeric(TextBox1.Text) Then
MsgBox("error")
TextBox1.Text = ""
TextBox1.Focus()
Else
x = TextBox1.Text
If x < 10 Then
y = 30
ElseIf x < 50 Then
y = x * 2.5
Else
y = x * 2
End If
If y > 150 Then y = 150
End If
TextBox2.Text = y
End Sub
实验3-7
Private Sub Button1_Click(……) Handles Button1.Click
Dim a#, b#, c#, dt!, s1$, s2$
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
dt = b ^ 2 - 4 * a * c
If dt > 0 Then ' 实根dt = Math.Sqrt(dt)
Label3.Text = Format((-b + dt) / 2 / a, "0.00")
Label5.Text = Format((-b - dt) / 2 / a, "0.00")
ElseIf dt = 0 Then ' 重根
dt = Math.Sqrt(dt)
Label3.Text = Format(-b / 2 / a, "0.00")
Label5.Text = Format(-b / 2 / a, "0.00")
Else
dt = Math.Sqrt(-dt) ' 复根
s1 = Format(-b / 2 / a, "0.00")
s2 = Format(dt / 2 / a, "0.00")
Label3.Text = s1 & "+" & s2 & "i"
Label5.Text = s1 & "-" & s2 & "i"
End If
End Sub
实验3-8
'If 语句
Dim n%, s$
n = InputBox("输入一个数字~7")
If n = 1 Then
s = "星期一"
ElseIf n = 2 Then
s = "星期二"
ElseIf n = 3 Then
s = "星期三"
ElseIf n = 4 Then
s = "星期四"
ElseIf n = 5 Then
s = "星期五"
ElseIf n = 6 Then
s = "星期六"
Else
s = "星期日"
End If
MsgBox(s)
'Select语句:
Select Case n
Case 1
s = "星期一"
Case 2
s = "星期二"
Case 3
s = "星期三"
Case 4
s = "星期四"
Case 5
s = "星期五"
Case 6
s = "星期六"
Case 7
s = "星期日"
End Select
' Choose(函数)
s = Choose(n, "星期一", "星期二", "星期三", "星期四", "星期五", "星期六", "星期日") 实验4-2
Private Sub Button1_Click(……) Handles Button1.Click
Dim i%, c$
Label1.Text = ""
For i = 1 To 9
c = StrDup(18 - 2 * i, Chr(i + 64))
label1.text &= Space(i) & c & vbCrLf
Next i
End Sub
实验4-5
Private Sub Button1_Click(……) Handles Button1.Click ‘三重循环
Dim i%, j%, k%, t%
Label1.text = ""
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
t = i * 100 + j * 10 + k
If t = i ^ 3 + j ^ 3 + k ^ 3 Then
Label1.text &= t & vbCrLf
End If
Next k
Next j
Next i
End Sub
或者：
Private Sub Button2_Click(……) Handles Button2.Click ‘单重循环
Dim i%, j%, k%, t%
Label2.Text = ""
For t = 100 To 999
i = t \ 100
j = (t Mod 100) \ 10
k = t Mod 10
If t = i ^ 3 + j ^ 3 + k ^ 3 Then
Label2.Text &= t & vbCrLf
End If
Next t
End Sub
实验4-7
Private Sub Form1_Load(……) Handles Me.Load
HScrollBar1.Maximum = 1
HScrollBar1.Maximum = 9
HScrollBar2.Minimum = 5
HScrollBar1.Maximum = 10
End Sub
Private Sub HScrollBar1_Scroll1(……) Handles HScrollBar1.Scroll
Label1.Text = "a=" & HScrollBar1.Value
End Sub
Private Sub HScrollBar2_Scroll(……) Handles HScrollBar2.Scroll
Dim a, n, i As Integer, sum&, t&
Label2.Text = "n=" & HScrollBar2.Value
a = HScrollBar1.Value
n = HScrollBar2.Value
Label3.Text = "sum=" & vbCrLf
sum = 0 : t = 0
For i = 1 To n
t = t * 10 + a
Label3.Text &= Space(15 - Len(Trim(t))) & t & vbCrLf
sum = sum + t
Next
Label3.Text &= "------------------------" & vbCrLf
Label3.Text &= Space(15 - Len(Trim(t))) & sum
End Sub
实验4-10
Dim t%
Private Sub TextBox1_KeyPress(……) Handles TextBox1.KeyPress
If Asc(e.KeyChar) = 13 Then
ProgressBar1.Minimum = 0
t = Val(TextBox1.Text) * 60
ProgressBar1.Maximum = t
ProgressBar1.Value = t
Timer1.Interval = 1000
Timer1.Enabled = True
End If
End Sub
Private Sub Timer1_Tick(……) Handles Timer1.Tick
t = t - 1
TextBox1.Text = t \ 60 & ":" & Format(t Mod 60, "00")
ProgressBar1.Value = t
If t = 0 Then Timer1.Enabled = False
End Sub
实验4-13
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Dim x%, y%, z%, a, b, c
Label1.Text = " x y z" & vbCrLf
For x = 1 To 6
For y = 1 To 6
For z = 5 To 6
If x < y And y < z Then
a = Choose(x, "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")
b = Choose(y, "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")
c = Choose(z, "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")
Label1.Text &= " " & a & " " & b & " " & c & vbCrLf
End If
Next
Next
Next
End Sub
实验5-1
Privat e Sub Form1_Click(……) Handles Me.Click
Dim s(9) As Integer, i, Min, Max, Aver
s(0) = 30 + Int(Rnd() * 70)
Min = s(0)
Max = s(0)
Aver = s(0)
Label1.Text = s(0)
For i = 1 To 9
s(i) = 30 + Int(Rnd() * 70)
Label1.Text &= Space(4) & s(i)
Aver += s(i)
If s(i) < Min Then Min = s(i)
If s(i) > Max Then Max = s(i)
Next i
Aver = Aver / 10
Label1.Text &= vbCrLf
Label1.Text &= "Min=" & Min & " Max=" & Max & " Average=" & Aver & vbCrLf
End Sub
实验5-3
Dim mark(19) As Integer
Private Sub Button1_Click(……) Handles Button1.Click ' 产生
Dim i%
For i = 0 To 19
mark(i) = Int(Rnd() * 100)
Label1.Text &= mark(i) & Space(6 - Len(Str(mark(i))))
If (i+1) Mod 5 = 0 Then Label1.Text &= vbCrLf
Next i
End Sub
Private Sub Button2_Click(……) Handles Button2.Click ' 统计Dim s%(9), i%, k%
For i = 0 To 19
k = mark(i) \ 10
Select Case k
Case 0 To 5 ' 不及格人数
s(5) = s(5) + 1
Case 9 To 10 ' 优秀人数
s(9) = s(9) + 1
Case 6 To 8 ' 其他三个分数段的人数
s(k) = s(k) + 1
End Select
Next i
For i = 5 To 9
Label2.Text &= "s(" & i & ")的人数有" & s(i) & "个" & vbCrLf Next
End Sub
实验5-4
Dim a%(9), i%, j%, imax%, m
Private Sub Button1_Click(……) Handles Button1.Click ‘产生Randomize()
For i = 0 To 9
a(i) = Int(Rnd() * 90) + 10
Label1.Text &= " " & a(i)
Next
End Sub
Private Sub Button2_Click(……) Handles Button2.Click ‘排序For i = 0 To 8
imax = i
For j = i + 1 To 9
If a(j) > a(imax) Then
imax = j
End If
Next
m = a(i)
a(i) = a(imax)
a(imax) = m
Next
For i = 0 To 9
Label2.Text &= " " & a(i)
Next
End Sub
实验5-6
Dim n%, a%(100, 100), i%, j%
Private Sub TextBox1_KeyPress(……) Handles TextBox1.KeyPress If Asc(e.KeyChar) = 13 Then
n = Val(TextBox1.Text)
For i = 0 To n - 1
For j = 0 To i
If i = 0 Or j=0 Or i=j Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Label1.Text &= a(i, j) & Space(4 - Len(Trim(a(i, j))))
Next
Label1.Text &= vbCrLf
Next
End If
End Sub
实验5-8
Private Sub Form1_Load(……) Handles Me.Load
ListBox1.Sorted = True
ListBox2.Sorted = True
ListBox1.Items.Clear()
ListBox1.Items.Add("大学计算机基础")
ListBox1.Items.Add("C/C++程序设计")
ListBox1.Items.Add("VB程序设计")
ListBox1.Items.Add("Web程序设计")
ListBox1.Items.Add("多媒体技术与应用")
ListBox1.Items.Add("数据库技术与应用")
ListBox1.Items.Add("网络技术与应用")
ListBox1.Items.Add("硬件技术基础")
ListBox1.Items.Add("软件技术技术基础")
End Sub
Private Sub ListBox1_Click(……) Handles ListBox1.Click
If ListBox2.Items.Count >= 5 Then
MsgBox("超过门课程，不能再选")
Exit Sub
Else
ListBox2.Items.Add(ListBox1.Text)
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
End If
End Sub
实验5-9
Private Sub ComboBox1_KeyPress(……) Handles ComboBox1.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 13
If Asc(e.KeyChar) = 13 Then
ComboBox1.Items.Add(ComboBox1.Text)
ComboBox1.Text = ""
End If
Case Else
e.Handled = True
End Select
End Sub
Private Sub Button1_Click(……) Handles Button1.Click
Dim min, imin, max, imax, t, i As Integer
max = ComboBox1.Items(0)
min = ComboBox1.Items(0)
imin = 0
imax = 0
For i = 1 To ComboBox1.Items.Count - 1
If Val(ComboBox1.Items(i)) > max Then
max = ComboBox1.Items(i)
imax = i
End If
If Val(ComboBox1.Items(i)) < min Then
min = ComboBox1.Items(i)
imin = i
End If
Next
t = ComboBox1.Items(ComboBox1.Items.Count - 1)
ComboBox1.Items(ComboBox1.Items.Count - 1) = ComboBox1.Items(imax)
ComboBox1.Items(imax) = t
End Sub
实验6-2
Private Sub Button1_Click(……) Handles Button1.Click
Dim m%, n%
m = TextBox1.Text
n = TextBox2.Text
TextBox3.Text = f(m) / f(n) / f(m - n)
End Sub
Function f(ByVal a%)
Dim i%, s#
s = 1
For i = 1 To a
s = s * i
Next
f = s
End Function
Private Sub Button2_Click(……) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
实验6-3
Private Sub Button1_Click(……) Handles Button1.Click
Dim a(9) As Integer, i%, n%
Randomize()
Label1.Text = ""
For i = 0 To 9
a(i) = -Int(Rnd() * 101 + 300)
Label1.Text &= a(i) & " "
Next
Call min(a, n)
Label1.Text &= vbCrLf & "最小值=" & n
End Sub
Sub min(ByRef a() As Integer, ByRef amin%)
Dim i%
amin = a(0)
For i = 1 To UBound(a)
If a(i) < amin Then
amin = a(i)
End If
Next
End Sub
实验6-4
Private Sub Label4_Click(……) Handles Label4.Click
Label5.Text = Format(Math.Sin(Val(TextBox1.Text)), "0.00000") End Sub
Private Sub Label2_Click(……) Handles Label2.Click
Label3.Text = mysin(Val(TextBox1.Text))
End Sub
Function mysin!(ByVal x!)
Dim t#, i%, s#
t = x
i = 1
s = t
Do
t = -1 * t * x * x / ((i + 1) * (i + 2))
i = i + 2
s = s + t
Loop While Math.Abs(t) > 10 ^ -5
mysin = Format(s, "0.00000")
End Function
实验6-5
Private Sub TextBox1_KeyPress(……) Handles TextBox1.KeyPress
If Asc(e.KeyChar) = 13 Then
If IsH(TextBox1.Text) Then
Label3.Text &= TextBox1.Text & "★" & vbCrLf
Else
Label3.Text &= TextBox1.Text & vbCrLf
End If
TextBox1.Text = ""
End If
End Sub
Function IsH(ByRef n%) As Boolean
Dim i%, Le%, s$
IsH = True
s = Trim(Str(n))
Le = Len(s)
For i = 1 To Le \ 2
If Mid(s, i, 1) <> Mid(s, Le - i + 1, 1) Then IsH = False
Next i
End Function
实验6-6
Private Sub Button1_Click(……) Handles Button1.Click
Dim even%, odd1%
For even = 6 To 100 Step 2
For odd1 = 3 To even \ 2 Step 2
If prime(odd1) = True And prime(even - odd1) = True Then
ListBox1.Items.Add(even & "=" & odd1 & "+" & even - odd1) End If
Next
Next
Label1.Text = "6到之间有" & ListBox1.Items.Count & "对素数和"
End Sub
Function prime(ByVal m%) As Boolean
Dim i%
prime = True
For i = 2 To m \ 2
If m Mod i = 0 Then
prime = False
End If
Next
End Function
实验6-7
Private Sub Form1_Click(……) Handles Me.Click
Dim i%, ss$
Label1.Text = "1000以内的完数为：" & vbCrLf
For i = 1 To 1000
If fw(i, ss) Then
Label1.Text &= i & "=" & Mid(ss, 1, Len(ss) - 1) & vbCrLf End If
Next
End Sub
Function fw(ByVal n%, ByRef s$) As Boolean
Dim i%, sum%
s = ""
sum = 0
For i = 1 To n \ 2
If n Mod i = 0 Then
sum = sum + i
s &= i & "+"
End If
Next
If sum = n Then fw = True Else fw = False
End Function
实验6-8
Sub delestr(ByRef s1$, ByVal s2$)
Dim i%
i = InStr(s1, s2)Do While i <> 0
s1 = Mid(s1, 1, i - 1) & Mid(s1, i + Len(s2))
i = InStr(s1, s2)
Loop End Sub
Private Sub Button1_Click(……) Handles Button1.Click
Dim s1, s2 As String
s1 = TextBox1.Text s2 = TextBox2.Text delestr(s1, s2)
TextBox3.Text = s1
二、选择题 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程序设计》实验报告实验八：图形的绘制 班级：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运行结果。
第一章 答案： 一、单项选择题 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
九江学院期末考试复习题（政法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语句，运行时将出现错误
实验报告 课程名称_程序设计基础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窗体
实验教材实验一 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 考试试卷 班级：学号：姓名： 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实验作业参考答案 作业一窗体设计 (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期末考试试卷及答案 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)
大学学生实验报告 开课学院及实验室：地理科学学院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：
实验六 专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件； 2、学习在窗体中创建常用控件 2、学习在属性窗口和在程序代码中设置属性 3、学习调用控件的方法 4、学习编写各控件和鼠标与键盘的事件过程 二、实验内容 1、单选按钮、复选框、框架 1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。框架Fr1包含单选按钮Op1和Op2。 2）设计窗体，要求 ①标题为“设置字体”； ②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示； ③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2； ④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。 ⑤编写相应控件的事件过程，使得程序运行时，单击“楷体_GB2312”，标签控件的字体为楷体_GB2312，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。 Private Sub Option1_Click() Label1.FontName = Option1.Caption End Sub Private Sub Option2_Click()
请参考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实验报告(含答案)
实验报告 课程名称_程序设计基础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所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.doczj.com/doc/df15628361.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#
第一题 1.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和， 结果显示在label3中。 https://www.doczj.com/doc/df15628361.html,bel3的背景色每隔1.5秒蓝红交替。
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()
大一的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.doczj.com/doc/df15628361.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
福建农林大学计算机与信息学院(计算机公共基础二级课程) 实验报告 课程名称：Visual Basic 程序设计 姓名：邹丽平 学院: 食品科学学院 专业：食品科学与工程 年级：2010级 学号：102258016001 指导老师：黄红兵 职称：讲师 2012 年5 月20 日
实验项目列表
福建农林大学计算机与信息学院实验报告 学院：食品科学学院专业：食品科学与工程年级： 2010级 姓名：邹丽平学号： 102258016001 实验室号__宝玲楼304___计算机号 01 实验时间： 2012.3.5 指导教师签字：黄红兵成绩： 报告退发（订正、重做） 实验一 VB环境和简单应用程序设计 一、实验目的和要求 1.了解Visual Basic系统对计算机软件、硬件的要求。 2.掌握启动与退出Visual Basic的方法。 3.熟悉visual basic的集成开发环境（IDE）。 4.掌握建立、编辑、运行和保存一个简单visual basic应用程序的全过程。 5.了解基本控件（窗体、标签、文本框、命令按钮）的简单应用。 二、实验内容 1.启动Visual Basic 6.0，熟悉其集成开发环境。 2.按图1-1在标题为“第一个应用程序”的窗体Form1上画两个标题分别为“欢迎您使用Visual Basic”和“请输入您的姓名”的标签（ Label1和Label2），Label1的字体为隶书，并且其能根据文本大小自动调整尺寸，Label2的字型为倾斜；然后再设计一个初始文本为空的文本框Text1. 图1-1 运行界面 3.按图1-2在标题为“命令按钮设置”的窗体Form1上画三个标题分别为“禁止用C3”、“允许用C3”和“C3”的命令按钮（C1、C2和C3）。运行时，如果单击“禁止用C3”按钮，则C3按钮无效（如图10-2所示）；如果单击“允许用C3”按钮，则C3按钮有效。 图1-2 运行界面 4.按图1-3在标题为“文本复制”的窗体Form1上画两个文本框（Text1和
下载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个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。 思考题：通用过程与函数过程的区别？ 提示: 1. 各题必须按要求用通用过程或函数过程进行编程。 2. “第一题”：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 阶乘自定义函数F(n)的编写参考上课讲义 计算二项式系数Cmn可以通过调用F(n)函数完成：cmn=F(m)/(F(n)*F(m-n)) 3. “第二题”：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 自定义函数Sum(n)的编写： Function Sum(n As Integer) As Long ……'编写s=1+2+...+n的程序段 Sum=s '将计算结果赋值给函数名 End Function 计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和就转化为计算Sum(1)+Sum(2)+Sum(3)+……+Sum(100)的编程。 参考计算1!+2!+……+10！的程序 4. “第三题”：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。
实验报告二 实验目的 （1）掌握分支结构（if、if else、select case）语句 （2）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句 （3）掌握循环嵌套结构 （4）掌握素数算法 （5）能综合运用循环控制结构解决较复杂的问题 实验内容 一、选择结构程序设计 【实验3-1】编写一个“系统登录”程序，对用户输入的账号和密码进行检验。（10分）要求： ①账号不超过6位数，密码为4位字符，本题的密码假设为“majq”。 ②账号中不能有非数字字符，可以通过IsNumeric函数对文本框中的输入内容进行测试。 ③密码输入时，屏幕上不能显示输入字符，以“*”代替。 ④当输入不正确时，显示提示信息。若单击“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。 ⑤密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。 图3-2 密码检验运行界面图3-3 输入密码错误显示信息掌握简单if语句的使用 实验结果： 【请将你的代码粘贴到下面】
【请将你的典型结果的截图粘贴到下面】 【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分） ①当收入为200 元以内（含200元）时，免征； ②当收入为200 ~ 400 元（含400元）时，将超过200 元的部分纳税3% ； ③当收入为400 ~ 5000元（不含5000元）时，将超过400 元的部分纳税4% ； ④当收入为5000 元或5000元以上时，将超过400元的部分纳税5% 。 程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示，要求 纳税程序界面 掌握多分支if语句的使用，可自行用select语句改写。 实验结果： 【请将你的代码粘贴到下面】 【请将你的典型结果的截图粘贴到下面】 【实验3-3】猜数游戏 程序自动产生一个[1，100]内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。（用select case语句实现）