明白你的意思了,只要是字母都會轉(zhuǎn)換成數(shù)字,幫你寫好了("usernane"和 "pasward" 我這里寫成 "username" 和" password")
目前創(chuàng)新互聯(lián)已為千余家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬主機(jī)、網(wǎng)站托管維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、綏芬河網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
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
date是一個類型。。。似乎不能賦值吧
由Sting轉(zhuǎn)換成 Integer 可以這樣寫
dim a as string="adasdfsdfsferqwer"
dim b as integer
b= CUInt(a)
語法是正確的。。。但你要是把 幾個字符轉(zhuǎn)硬轉(zhuǎn)換為 數(shù)字整型 但這幾個字符串又不是數(shù)子 一定要出錯的
如果是下面就沒錯了
dim a as string="45446464646"
dim b as integer
b= CUInt(a)
1、int類型數(shù)組轉(zhuǎn)換為Integer類型的數(shù)組。
2、long類型數(shù)組轉(zhuǎn)換為Integer類型的數(shù)組。
3、char類型數(shù)組轉(zhuǎn)換為Integer類型的數(shù)組。
4、String類型數(shù)組轉(zhuǎn)換為Integer類型的數(shù)組。
5、double類型數(shù)組轉(zhuǎn)換為Integer類型的數(shù)組。
1、首先在電腦中找到并打開VB軟件,找到一句輸出的函數(shù)。
2、然后在其數(shù)組變量中,套上一個Str函數(shù)。
3、這里注意函數(shù)的關(guān)鍵字,是沒有區(qū)分大小寫的。
4、然后函數(shù)是可以多個嵌套使用。
5、最后點(diǎn)擊運(yùn)行按鈕,這樣就可以成功運(yùn)行測試,如下圖所示,轉(zhuǎn)換就完成了。