如何为此程序使用“Mod”命令

Question

这是我需要的程序，我正在尝试编码，但我只是不知道如何显示第一个数字和第二个数字。

Public Class Program

Private Sub btnDigit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDigit.Click
    Dim I As Decimal
    Dim digits As Decimal

    I = Val(Me.txtinput.Text)

    digits = 

    Me.lblanswerfirstdigit.Text =
    Me.lblanswerlastdigit.Text = 
End Sub

我尽我所能，但我还不擅长。

Answer 1

做这样的事情

lblanswerfirstdigit.Text = txtinput.Text.Chars(0) 'get the 1st char
lblanswerlastdigit.Text = txtinput.Text.Chars(1)  'get the 2nd char

尝试...建议使用Catch块（或更简单的If检查），以防止出现1位数字错误

Answer 2

我认为您不需要使用MOD，因为该功能用于执行模数除法。

如果你想获得第一个，最后一个甚至是中间的。您可以使用vb.net的LEFT, RIGHT, and MID功能

    LEFT(StringHere, LenghtHere)
    RIGHT(StringHere, LenghtHere)
    MID(StringHere, StarHere,LenghtHere)

类似的东西：

    Me.lblanswerfirstdigit.Text = LEFT(Me.txtinput.Text, 1) 'get the first
    Me.lblanswerlastdigit.Text = RIGHT(Me.txtinput.Text, 1) 'get the last