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, \警告\)
TextBox1.Text = \ TextBox2.Text = \ Return End If
LoginCount = LoginCount + 1
MsgBox(\登录失败！请重新登录！\, MsgBoxStyle.Information, \提示\) TextBox1.Text = \ TextBox2.Text = \ End If End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class