使用一個(gè)單重的循環(huán)掃描這個(gè)字符串中的所有字符,對(duì)每一個(gè)字符的出現(xiàn)次數(shù)進(jìn)行統(tǒng)計(jì),最后輸出每個(gè)字符的出現(xiàn)次數(shù)。
創(chuàng)新互聯(lián)專注于企業(yè)成都全網(wǎng)營(yíng)銷、網(wǎng)站重做改版、長(zhǎng)壽網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、html5、商城開發(fā)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁(yè)設(shè)計(jì)等建站業(yè)務(wù),價(jià)格優(yōu)惠性價(jià)比高,為長(zhǎng)壽等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
Private Sub Command1_Click()
s = InputBox("請(qǐng)輸入一個(gè)英文字符串:")
Dim a(128) As Integer
For i = 1 To Len(s)
t = Asc(Mid(s, i, 1))
a(t) = a(t) + 1
Next i
For i = 1 To 127
If a(i) 0 Then Print Chr(i); ":"; a(i)
Next i
End Sub
應(yīng)該定義為double或者single,string類好像不能進(jìn)行運(yùn)算。我簡(jiǎn)單說一下控制臺(tái)的方法,你要一次性輸入和差積商,首先聲明兩個(gè)變量用來儲(chǔ)存兩個(gè)數(shù),然后用算法一次性輸出結(jié)果就ok。
Sub Main()
Dim FN As Single
Dim SN As Single
Dim ResultNum As Single
Console.WriteLine("請(qǐng)輸入第一個(gè)數(shù)") : FN = Console.ReadLine
Console.WriteLine("請(qǐng)輸入第二個(gè)數(shù)") : SN = Console.ReadLine
ResultNum = FN + SN
Console.WriteLine("它們的和: " ResultNum)
ResultNum = FN - SN
Console.WriteLine("它們的差: " ResultNum)
ResultNum = FN * SN
Console.WriteLine("它們的積: " ResultNum)
ResultNum = FN / SN
Console.WriteLine("它們的商: " ResultNum)
Console.ReadLine()
End Sub
簡(jiǎn)單的輸入有:
inputbox
textbox
簡(jiǎn)單的輸出有:
textbox
label
debug.print
1.你說的這個(gè)有點(diǎn)問題,是要只輸出一次,也可做,
2.但問題是如果你數(shù)組還有就看不到了!這個(gè)做法有點(diǎn)問題
1.解決方法:
循環(huán)前面加入一個(gè)變量 dim Temp as Double=0
For i = 0 To 9
If score(i) avg and score(i)temp Then
TextBox3.Text = TextBox3.Text score(i) " "
if score(i)=avg then
temp=score(i)
end if
End If
Next
兩種方法:
圖片框上蓋個(gè)Label 向其輸入內(nèi)容。
載入圖片,通過內(nèi)存直接?DrawImage繪制個(gè)新圖,然后在圖上蓋文字。最后賦值給圖片框。
VB6的print 實(shí)質(zhì)是向圖片框打印文字,不管有無圖都能在上面Print. 考慮速度和實(shí)現(xiàn)難度問題,如果純粹顯示,最好直接蓋個(gè)Label最簡(jiǎn)單。第二種方法 需要考慮文字大小、顏色、坐標(biāo)定位等等。如果一行文字顯示不下,不會(huì)自動(dòng)換行,得自己切。
網(wǎng)站題目:VB.NET輸入輸出方法 vb輸入數(shù)據(jù)的方法
分享路徑:http://aaarwkj.com/article4/hhhpoe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站內(nèi)鏈、網(wǎng)站導(dǎo)航、網(wǎng)站營(yíng)銷、移動(dòng)網(wǎng)站建設(shè)、軟件開發(fā)、App設(shè)計(jì)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)