程序设计VB考试复习题(2)

ListBox1.Items.Add(\End Sub

4. 如下程序，运行的结果是_____x=6_____________ Public Function f(ByVal m%, ByVal n%) Do While m <> n

Do While m > n : m = m - n : Loop Do While n > m : n = n - m : Loop Loop F = m End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Integer x = f(24, 18) MsgBox(\ End Sub

五、程序设计题

1、设计一个登录窗体，并实现登录功能。要求如下：

（1）、写出数据库的数据表及各表包括的主要字段名称、数据类型、是否为空、主键等。

（2）、写一个函数（Function），判断用户输入的用户名和密码是否正确（即数据库中是否存在用户输入的用户名和密码信息），正确返回TRUE，否则返回FALSE。 （3）、在登录按钮中调用该函数，输入正确登录成功并弹出消息框；否则登录失败，给出失败消息框，当连续登录三次失败时，弹出消息框并关闭窗体退出。写出主要代码。

2.请把下面的程序按照要求补充完整。程序要求计算水费，计算水费时有4种情况：生活用水，每吨1元；农业用水，每吨1.5元；工业用水，每吨2元；娱乐业用水，每吨6元。请编制程序，由用户

选择水费类型，程序根据用水吨数和

水费类型计算应缴水费，如图1所示。

图1 计算水费

设计步骤如下：

1) 建立应用程序用户界面和添加控件。在窗体上添加1个下拉列表框控件对象。设置如图2左所示。

图2 计算水费

2) 编写事件代码。 ' 窗体的Load事件

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load

ComboBox1.Items.Add(\生活用水(每吨1元)\ ComboBox1.Items.Add(\农业用水(每吨1.5元)\ ComboBox1.Items.Add(\工业用水(每吨2元)\ ComboBox1.Items.Add(\娱乐业用水(每吨6元)\End Sub

' 命令按钮“计算”的Click事件

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim a, b As Decimal

a = CDec(TextBox1.Text) ‘请补充计算水费的程序段

If ComboBox1.SelectedIndex = 0 Then '判断下拉列表框选择的序号 b = a * 1

ElseIf ComboBox1.SelectedIndex = 1 Then b = a * 1.5

ElseIf ComboBox1.SelectedIndex = 2 Then b = a * 2

ElseIf ComboBox1.SelectedIndex = 3 Then b = a * 6 End If

TextBox2.Text = b End Sub

3) 运行程序，选择水费类型并输入用水量后单击“计算”按钮，结果如图2右所示。

3. 请把下面的程序按照要求补充完整。程序功能：设计一个如图3所示的简易计算器，两个文本框中输入操作数（例如：12和3，在组合框中选定操作符号（+，-，*，/例如：*）后，单击“计算”按钮，结果显示在标签控件中中；若在单击“计算”按钮前，单击了保存复选按钮，则结果同时显示在列表框控件中。 设计步骤如下：

建立应用程序用户界面和添加控件。在窗体上添加1个下拉列表框控件对象。设置如图3左所示。

图3 简易计算器

2) 编写事件代码。

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Left = 450: Me.Top = 250 Label1.Text = \

‘请补充在组合框ComboBox1控件中添加操作符号（+，-，*，/），并清空列表框ListBox1控件

ComboBox1.Items.Add(\ ComboBox1.Items.Add(\ ComboBox1.Items.Add(\ComboBox1.Items.Add(\

ListBox1.Items.clear(\ End Sub

Private Sub Button1_Click(ByVal sender As System.Object, system.EventArgs) Handles Button1.Click Dim ioperate1 As Integer Dim ioperate2 As Integer Dim iresult As Integer Dim operater As Char Try

ioperate1 = CInt(operate1.Text) operater = ComboBox1.Text ioperate2 = operate2.Value

‘请补充利用简易计算器进行计算程序段 Select operater Case \

iresult = ioperate1 + ioperate2 Case \

iresult = ioperate1 - ioperate2 Case \

ByVal e As iresult = ioperate1 * ioperate2 Case \

iresult = ioperate1 / ioperate2 Case Else

MessageBox.Show(\请选择运算符\ Exit Sub End Select

Label1.Text = CStr(iresult)

If CheckBox1.Checked = True Then ListBox1.Items.Add(CStr(iresult)) Catch ex As OverflowException

Label1.Text = \计算数据溢出\除数为零 Catch ex As InvalidCastException

Label1.Text = \无效数据\输入字符数据 Catch ex As Exception Label1.Text = ex.Message End Try End Sub

3) 运行程序，结果如图3右所示。

4、设计一个登录窗体，当输入的用户名和密码均为admin时，登录成功并弹出消息框；否则登录失败，给出失败消息框，当连续登录三次失败时，弹出消息框并关闭窗体退出。写出主要代码。

Public Class Form1

Dim LoginCount As Integer = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = \ Then

MsgBox(\请输入用户名！\, MsgBoxStyle.Information, \提示\) Return End If

If TextBox2.Text = \ Then

MsgBox(\请输入密码！\, MsgBoxStyle.Information, \提示\)

Return End If

If LoginCount = 3 Then

MsgBox(\登录失败已经达到三次，当日不能登录！\, MsgBoxStyle.Information, \警告\) TextBox1.Text = \ TextBox2.Text = \ End If

If TextBox1.Text = \ And TextBox2.Text = \ Then

MsgBox(\登录成功！\, MsgBoxStyle.Information, \提示\) TextBox1.Text = \ TextBox2.Text = \

Else

If LoginCount = 3 Then

MsgBox(\登录失败已经达到三次，当日不能登录！\, MsgBoxStyle.Information, \警告\)

…… 此处隐藏：2144字，全部文档内容请下载后查看。喜欢就下载吧 ……