VB编程 输1-7之间的整数,输出对应的星期几

可以使用 Select Case 语句来实现，代码如下：

Dim i As Integer
i = InputBox("请输入1-7之间的整数")
Select Case i
Case 1
MsgBox "星期一"
Case 2
MsgBox "星期二"
Case 3
MsgBox "星期三"
Case 4
MsgBox "星期四"
Case 5
MsgBox "星期五"
Case 6
MsgBox "星期六"
Case 7
MsgBox "星期日"
Case Else
MsgBox "输入有误，请重新输入"
End Select

注意：这段代码只是演示了 Select Case 的用法，实际应用中需要加入足够的输入检验和异常处理。

相关问题

vb求1-n之间所有的完全数

好的，您可以使用以下VB代码来求解1-n之间所有的完全数：

Dim i As Integer, j As Integer, sum As Integer
For i = 1 To n
    sum = 0
    For j = 1 To i - 1
        If i Mod j = 0 Then
            sum = sum + j
        End If
    Next j
    If sum = i Then
        ' i是完全数
        Console.WriteLine(i)
    End If
Next i

在此代码中，我们首先使用两个嵌套的for循环来遍历1-n之间的所有数字。对于每个数字i，我们计算它的所有因子之和sum。如果sum等于i，则i是一个完全数。在这种情况下，我们将i输出到控制台。

vb批量读s7-200

S7-200作为西门子公司的一种PLC，广泛应用于工业自动化控制领域。Vb作为一种常用的编程语言，在控制系统的自动化软件开发中应用广泛。在VB控制S7-200中，需要进行批量读取的操作时，需要通过访问S7-200的数据存储器来实现。具体的操作步骤如下：

1.首先，在VB程序中添加S7-200的通讯协议支持包，并进行相关设置，如通讯协议类型、通讯口地址、通讯速率等。

2.然后，编写批量读取程序，程序需要实现连接到S7-200数据存储器，以及进行批量的数据读取操作。读取数据需要指定读取的数据类型、地址范围、读取的数据长度等参数，并将读取的数据存储到变量中。

3.通过VB程序的图形界面，展示读取到的批量数据。可以将数据以表格形式展示，或者通过图表等方式进行可视化显示。此外，还可以将读取的数据进行处理，如进行统计分析、制作报表等等。

总之，通过VB批量读取S7-200，可以实现对复杂工业控制系统的数据存储器进行高效、准确读取，为智能化的自动化控制提供有力支持。