《国开学习网电大VisualBasic程序设计形考任务一参考答案》

国开学习网电大VisualBasic程序设计形考任务一参考答案

VisualBasic是一种面向对象的编程语言，它可以用来开发Windows应用程序和网站。在国开学习网电大VisualBasic程序设计的形考任务一中，考生需要完成一个简单的计算器程序，本文将提供参考答案。

首先，我们需要设计程序的界面。在VisualBasic中，可以使用窗体设计器来创建窗体。在本次任务中，我们需要创建一个包含数字键和运算符键的窗体，还需要添加一个文本框用于显示计算结果。窗体的设计如下图所示：


接下来，我们需要编写程序的代码。在VisualBasic中，可以使用事件来响应用户的操作。在本次任务中，我们需要为数字键和运算符键添加事件处理程序，以便在用户按下键时执行相应的操作。

首先，我们需要定义一些变量来存储计算器的状态。具体来说，我们需要定义一个变量来存储当前的运算符，一个变量来存储上一次计算的结果，以及一个变量来存储用户输入的数字。代码如下：

```

Dim operator As String

Dim lastResult As Double

Dim currentNumber As Double

```

接下来，我们需要为数字键添加事件处理程序。在本次任务中，我们需要为0到9这10个数字键添加事件处理程序。具体来说，我们需要在用户按下数字键时将数字添加到当前输入的数字中，并更新文本框的显示。代码如下：

```

Private Sub Button0_Click(sender As Object, e As EventArgs) Handles Button0.Click

currentNumber = currentNumber * 10

TextBox1.Text = currentNumber

End Sub

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

currentNumber = currentNumber * 10 + 1

TextBox1.Text = currentNumber

End Sub

'... 依次类推，为Button2到Button9添加相应的事件处理程序

```

接下来，我们需要为运算符键添加事件处理程序。在本次任务中，我们需要为加、减、乘、除这四个运算符键添加事件处理程序。具体来说，我们需要在用户按下运算符键时执行上一次的计算，并将当前的运算符保存下来。代码如下：

```

Private Sub ButtonAdd_Click(sender As Object, e As EventArgs) Handles ButtonAdd.Click

If operator <> "" Then

lastResult = calculate(operator, lastResult, currentNumber)

TextBox1.Text = lastResult

Else

lastResult = currentNumber

End If

operator = "+"

currentNumber = 0

End Sub

Private Sub ButtonSubtract_Click(sender As Object, e As EventArgs) Handles ButtonSubtract.Click

If operator <> "" Then

lastResult = calculate(operator, lastResult, currentNumber)

TextBox1.Text = lastResult

Else

lastResult = currentNumber

End If

operator = "-"

currentNumber = 0

3亿多的题库，支持文字、图片，语音搜题，包含国家开放大学、广东开放大学、云南开放大学、北京开放大学、上海开放大学、江苏开放大学、超星、青书、奥鹏等等多个平台题库，考试作业必备神器。

正确 答案：微信搜索【渝粤搜题】公众号

广东开放大学 2023年春季招生简章