计算机二级vb练习题及答案(精选4套)

计算机二级VB练习题及答案（精选4套）

随着计算机技术的不断发展，掌握一门编程语言已经成为现代人的基本技能之一。Visual Basic（简称VB）作为一种简单易学的编程语言，广泛应用于教学、企业和个人项目中。为了帮助大家更好地学习和掌握VB编程，本文精选了4套计算机二级VB练习题及答案，供大家参考和学习。

一、练习题一

题目：编写一个VB程序，实现以下功能：

1. 输入一个整数n（1≤n≤1000），程序输出从1到n的所有整数。

2. 输入一个整数m（1≤m≤1000），程序输出从1到m的所有奇数。

答案：

```vb

Module Module1

Sub Main()

Dim n As Integer

Dim m As Integer

Console.Write("请输入整数n（1≤n≤1000）：")

n = Convert.ToInt32(Console.ReadLine())

Console.Write("请输入整数m（1≤m≤1000）：")

m = Convert.ToInt32(Console.ReadLine())

' 输出从1到n的所有整数

Console.WriteLine("从1到n的所有整数：")

For i As Integer = 1 To n

Console.Write(i & " ")

Next

' 输出从1到m的所有奇数

Console.WriteLine("从1到m的所有奇数：")

For i As Integer = 1 To m

If i Mod 2 <> 0 Then

Console.Write(i & " ")

End If

Next

Console.ReadLine()

End Sub

End Module

```

二、练习题二

题目：编写一个VB程序，实现以下功能：

1. 输入一个字符串，程序输出该字符串的长度。

2. 输入一个整数n（1≤n≤100），程序输出一个n行n列的乘法表。

答案：

```vb

Module Module1

Sub Main()

Dim str As String

Dim n As Integer

Console.Write("请输入一个字符串：")

str = Console.ReadLine()

' 输出字符串长度

Console.WriteLine("字符串长度为：" & str.Length)

' 输出乘法表

Console.WriteLine("乘法表：")

For i As Integer = 1 To n

For j As Integer = 1 To n

Console.Write(i * j & " ")

Next

Console.WriteLine()

Next

Console.ReadLine()

End Sub

End Module

```

三、练习题三

题目：编写一个VB程序，实现以下功能：

1. 输入一个整数n（1≤n≤1000），程序输出从1到n的所有素数。

2. 输入一个整数m（1≤m≤1000），程序输出一个n行m列的二维数组，且数组元素为从1到n*m的所有整数。

答案：

```vb

Module Module1

Sub Main()

Dim n As Integer

Dim m As Integer

Dim isPrime As Boolean

Console.Write("请输入整数n（1≤n≤1000）：")

n = Convert.ToInt32(Console.ReadLine())

' 输出从1到n的所有素数

Console.WriteLine("从1到n的所有素数：")

For i As Integer = 2 To n

isPrime = True

For j As Integer = 2 To Math.Sqrt(i)

If i Mod j = 0 Then

isPrime = False

Exit For

End If

Next

If isPrime Then

Console.Write(i & " ")

End If

Next

Console.Write("请输入整数m（1≤m≤1000）：")

m = Convert.ToInt32(Console.ReadLine())

' 输出二维数组

Console.WriteLine("二维数组：")

Dim array() As Integer = New Integer(n * m - 1) {}

Dim k As Integer = 0

For i As Integer = 0 To n - 1

For j As Integer = 0 To m - 1

array(k) = i * m + j + 1

Console.Write(array(k) & " ")

k += 1

Next

Console.WriteLine()

Next

Console.ReadLine()

End Sub

End Module

```

四、练习题四

题目：编写一个VB程序，实现以下功能：

1. 输入一个整数n（1≤n≤1000），程序输出从1到n的所有完全平方数。

2. 输入一个整数m（1≤m≤1000），程序输出一个n行m列的矩阵，且矩阵元素为从1到n*m的所有整数，要求每行元素从左到右递增，每列元素从