1、首先在電腦中找到并打開VB軟件,找到一句輸出的函數。
目前成都創(chuàng)新互聯(lián)公司已為上千的企業(yè)提供了網站建設、域名、虛擬主機、網站托管、服務器租用、企業(yè)網站設計、蠡縣網站維護等服務,公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
2、然后在其數組變量中,套上一個Str函數。
3、這里注意函數的關鍵字,是沒有區(qū)分大小寫的。
4、然后函數是可以多個嵌套使用。
5、最后點擊運行按鈕,這樣就可以成功運行測試,如下圖所示,轉換就完成了。
date是一個類型。。。似乎不能賦值吧
由Sting轉換成 Integer 可以這樣寫
dim a as string="adasdfsdfsferqwer"
dim b as integer
b= CUInt(a)
語法是正確的。。。但你要是把 幾個字符轉硬轉換為 數字整型 但這幾個字符串又不是數子 一定要出錯的
如果是下面就沒錯了
dim a as string="45446464646"
dim b as integer
b= CUInt(a)
最簡單的就是直接轉換,就是把字符串變量賦值給數值變量。\x0d\x0a數值變量=字符串\x0d\x0a\x0d\x0a如果必須轉換,就使用 Val 函數賦值,會把字符串轉換成雙精度數。\x0d\x0a比如:數值變量=Val(字符串)\x0d\x0a例:\x0d\x0an = Val("3.5") ' 變量n賦值為3.5\x0d\x0a\x0d\x0a或者使用取整函數,也可以轉換。\x0d\x0a比如:數值變量=Int(字符串) 或者 數值變量=CInt(字符串)\x0d\x0a例:\x0d\x0an = Int("3.5") ' 取整數,變量n賦值為3\x0d\x0a\x0d\x0an = CInt("3.5") ' 四舍五入取整數,變量n賦值為4
明白你的意思了,只要是字母都會轉換成數字,幫你寫好了("usernane"和 "pasward" 我這里寫成 "username" 和" password")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim username, password As String
Dim temp As Long
Dim r As String = ""
Dim v As String = TextBox1.Text
For Each c In v.ToString
If IsNumeric(c) Then
r = c
Else
r = ((Asc(c) - 65).ToString("00"))
End If
Next
username = r
temp = username * 3 - 500
password = CStr(temp)
TextBox2.Text = password
End Sub