求一简单语句

Question

我不会vb,求一简单语句
输出i个0,i=8-len(int).如果i=6,那么输出000000
这样子

Answer 1

dim i as integer
dim strT as stringfor i=1 to 6
    strT=strT & "0"
next imsgbox strT    

Answer 2

Public Function fun_GetString(ByVal intCount As Integer, strChar As String) As String
    Dim i As Integer
    Dim strT As String
    
    For i = 1 To intCount
        strT = strT & strChar
    Next i
    
    fun_GetString = strTEnd FunctionPrivate Sub Command1_Click()
    MsgBox fun_GetString(6, "0")
End Sub

Answer 3

Public Function fun_GetString(ByVal intCount As Integer, ByVal strChar As String) As String
    Dim i As Integer
    Dim strT As String
    
    For i = 1 To intCount
        strT = strT & strChar
    Next i
    
    fun_GetString = strTEnd FunctionPrivate Sub Command1_Click()
    MsgBox fun_GetString(6, "0")
End Sub

Answer 4

有现成的：String(8-len(strNumber), "0")