Question

10道vb考试题求解 有几题已经有答案

1. 在名称为 Form1的窗体上随机产生10个100~200(包括100,200)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果.运行后如图所示.
Dim a(9) As Integer
Dim max As Integer
Dim min As Integer
Dim sum As Integer
Private Sub Form_Load()
Randomize
For i = 0 To 9
a(i) = Int(Rnd * 101 + 100)
Print a(i)
Next i
max = a(0)
min = a(0)
sum = 0
For i = 0 To 9
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
sum = sum + a(i)
Next i
Print "最小值是："; min
Print "最大值是："; max
Print "平均值是:"; sum / 10
End Sub

2. 在名称为Form1的窗体上,设计一个运行界面如下图的应用程序。当选择“改变颜色按钮”时候弹出颜色对话框，为标签标题选择一个颜色；选择打开文件对话框，就打开一个文本文件进行编辑。

3. 用可视化数据库管理器visdata 建立一个Access数据库 st5.mdb ，包含表为 student 并以学号为索引名建立索引.

4. 使用数据控件与绑定控件浏览第一题建立的st5.mdb数据库.要求如下:
设计Form1窗体,通过文本框、标签等绑定控件,显示st5.mdb中student表内的记录,显示参考图如下.

5.在名称为 Form1的窗体上做一个简单加法计算器程序,运行后如图所示.
Private Sub Text3_GotFocus()
If Combo1.Text = "选择" Then
MsgBox "选择运算类型"
Else
If Combo1.Text = "+" Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End If
If Combo1.Text = "-" Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End If
If Combo1.Text = "*" Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End If
If Combo1.Text = "/" Then
If Val(Text2.Text) = 0 Then
MsgBox "分母为0"
Else
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End If
End If
End Sub
6.在名称为Form1的窗体上,通过单选按钮和复选框设置文本框字体。效果图如图所示.
7.用可视化数据库管理器visdata 建立一个Access数据库 st5.mdb ，包含表为 user并以loginname为索引名建立索引.
8.使用数据控件与绑定控件访问第一题建立的st5.mdb数据库.要求如下:
设计Form1窗体,通过文本框、标签等绑定控件,实现用户名密码的登陆框;设计Form2窗体,通过标签显示提示登陆成功页面,显示参考图如下.
Adodc1.RecordSource = "select * from user where username='" & Text1.Text & "'and key='" & Text2.Text & "'"
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "登陆失败!"
Else
Form2.Show
Unload Me
End If
9.在名称为 Form1的窗体上建立一个文本框text1,在text1中输入一字符串,对字号进行放大和缩小1-3倍,缩小比例由随机函数产生,运行后如图所示.
10.在名称为Form1的窗体上,输入半径,计算圆周长和圆面积,运行后效果图如图所示.
11.使用数据控件与绑定控件访问第一题建立的st5.mdb数据库.要求如下:
设计Form1窗体,通过文本框、标签等绑定控件,实现文本框关联显示数据库并能对数据进行修改,修改成功,点击修改确定按钮弹出”修改成功！”对话框,显示参考图如下.
Adodc1.RecordSource = "select * from user where username='" & Text1.Text & "'"

Adodc1.Recordset("key") = Text2.Text
Adodc1.Recordset.Update
MsgBox "修改成功!"

Answer 1

1. 在名称为 Form1的窗体上随机产生10个100~200(包括100,200)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果.运行后如图所示.
Dim a(9) As Integer
Dim max As Integer
Dim min As Integer
Dim sum As Integer
Private Sub Form_Load()
Randomize
For i = 0 To 9
a(i) = Int(Rnd * 101 + 100)
Print a(i)
Next i
max = a(0)
min = a(0)
sum = 0
For i = 0 To 9
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
sum = sum + a(i)
Next i
Print "最小值是："; min
Print "最大值是："; max
Print "平均值是:"; sum / 10
End Sub
——————————————————————————————————————————————————————————
2. 在名称为Form1的窗体上,设计一个运行界面如下图的应用程序。当选择“改变颜色按钮”时候弹出颜色对话框，为标签标题选择一个颜色；选择打开文件对话框，就打开一个文本文件进行编辑。
CommonDialog控件在工程菜单-----部件 选中Microsoft Common Dialog Control 6.0 应用----确认

Private Sub 颜色_Click()
【CommonDialog1.Action = 3
Text1.BackColor = CommonDialog1.Color】
End Sub

Private Sub 文件_Click()
【CommonDialog1.Action = 1
Text1.Text = ""
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
Text1.Text = Text1.Text + inputdata + vbCrLf
Loop
Close #1】
End Sub

————————————————————————————————————————————————————
3. 用可视化数据库管理器visdata 建立一个Access数据库 st5.mdb ，包含表为 student 并以学号为索引名建立索引.

————————————————————————————————————————————————
4. 使用数据控件与绑定控件浏览第一题建立的st5.mdb数据库.要求如下:
设计Form1窗体,通过文本框、标签等绑定控件,显示st5.mdb中student表内的记录,显示参考图如下.
工程->部件->Microsoft ADO Data Control 6.0

【Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Documents and Settings\Administrator\桌面\新建文件夹\data.mdb"
Adodc1.RecordSource = "select * from huang"
Adodc1.Refresh】
————————————————————————————————————————————————————————
5.在名称为 Form1的窗体上做一个简单加法计算器程序,运行后如图所示.
先添加comboBox控件 在它的属性list 添加 + - / *
Private Sub Text3_GotFocus()
If Combo1.Text = "选择" Then
MsgBox "选择运算类型"
Else
If Combo1.Text = "+" Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End If
If Combo1.Text = "-" Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End If
If Combo1.Text = "*" Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End If
If Combo1.Text = "/" Then
If Val(Text2.Text) = 0 Then
MsgBox "分母为0"
Else
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End If
End If
End Sub
——————————————————————————————————————————————————————
6.在名称为Form1的窗体上,通过单选按钮和复选框设置文本框字体。效果图如图所示.
先添加四个按钮分别是 字体 大小 删除线 下划线 斜体
Text1.FontName = "黑体"
Text1.FontSize = 40
Text1.Font.Strikethrough = Not Text1.Font.Strikethrough
Text1.Font.Underline = Not Text1.Font.Underline
Text1.Font.Italic = Not Text1.Font.Italic
————————————————————————————————
7.用可视化数据库管理器visdata 建立一个Access数据库 st5.mdb ，包含表为 user并以loginname为索引名建立索引.
——————————————————————————————————————
8.使用数据控件与绑定控件访问第一题建立的st5.mdb数据库.要求如下:
设计Form1窗体,通过文本框、标签等绑定控件,实现用户名密码的登陆框;设计Form2窗体,通过标签显示提示登陆成功页面,显示参考图如下.
记录源 命令类型改成8

Adodc1.RecordSource = "select * from user where username='" & Text1.Text & "'and key='" & Text2.Text & "'"
adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "登陆失败!"
Else
Form2.Show
Unload Me
End If
——————————————————————————————————————————————
9.在名称为 Form1的窗体上建立一个文本框text1,在text1中输入一字符串,对字号进行放大和缩小1-3倍,缩小比例由随机函数产生,运行后如图所示.

Dim i As Integer
Private Sub Command1_Click()
【Randomize
i = Int(Rnd * 4 + 1)
Text1.FontSize = Text1.FontSize * i】
End Sub

Private Sub Command2_Click()
【Randomize
i = Int(Rnd * 4 + 1)
Text1.FontSize = Text1.FontSize / i】
End Sub

——————————————————————————————————————————————————————
10.在名称为Form1的窗体上,输入半径,计算圆周长和圆面积,运行后效果图如图所示.
如果是label控件的话 Label2.Caption = 变量
Private Sub Command1_Click()
【Dim a As Integer
Dim s, c As Single
a = Text1.Text
s = 3.14 * a * a
c = 2 * 3.14 * a
MsgBox "圆面积=" & s & "周长=" & c】
End Sub
——————————————————————————————————————————————
11.使用数据控件与绑定控件访问第一题建立的st5.mdb数据库.要求如下:
设计Form1窗体,通过文本框、标签等绑定控件,实现文本框关联显示数据库并能对数据进行修改,修改成功,点击修改确定按钮弹出”修改成功！”对话框,显示参考图如下.
Adodc1.RecordSource = "select * from user where username='" & Text1.Text & "'"
Adodc1.Recordset("key") = Text2.Text
Adodc1.Recordset.Update
MsgBox "修改成功!"