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

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

VisualBasic程序设计是计算机科学与技术专业中的一门重要课程，它涵盖了程序设计的基础知识和实践技能。为了帮助学生更好地掌握这门课程，国开电大在课程中设置了形考任务。本文将为大家提供一份参考答案，希望能够对大家的学习有所帮助。

1. 编写一个程序，实现两个数的加减乘除运算。

解答：

Private Sub Command1_Click()

Dim a As Double, b As Double, c As Double

a = Text1.Text

b = Text2.Text

Select Case Combo1.Text

Case "+"

c = a + b

Case "-"

c = a - b

Case "*"

c = a * b

Case "/"

c = a / b

End Select

Text3.Text = c

End Sub

2. 编写一个程序，实现从一个文本框中读入一个整数n，然后输出1到n之间的所有奇数。

解答：

Private Sub Command1_Click()

Dim n As Integer, i As Integer

n = Val(Text1.Text)

For i = 1 To n Step 2

List1.AddItem i

Next i

End Sub

3. 编写一个程序，实现输入一个字符串，然后判断该字符串是否为回文字符串。

解答：

Private Sub Command1_Click()

Dim str As String, str1 As String

Dim i As Integer

str = Text1.Text

For i = Len(str) To 1 Step -1

str1 = str1 & Mid(str, i, 1)

Next i

If str = str1 Then

MsgBox "是回文字符串"

Else

MsgBox "不是回文字符串"

End If

End Sub

4. 编写一个程序，实现输入一个年份，然后判断该年份是否为闰年。

解答：

Private Sub Command1_Click()

Dim year As Integer

year = Val(Text1.Text)

If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then

MsgBox "是闰年"

Else

MsgBox "不是闰年"

End If

End Sub

5. 编写一个程序，实现输入一个正整数n，然后输出n的阶乘。

解答：

Private Sub Command1_Click()

Dim n As Integer, i As Integer

Dim result As Double

n = Val(Text1.Text)

result = 1

For i = 1 To n

result = result * i

Next i

Text2.Text = result

End Sub

以上是国开电大VisualBasic程序设计形考任务的参考答案，希望对大家的学习有所帮助。同时，也希望大家能够在学习过程中注重实践，不断提高自己的编程能力。

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

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

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