1.你說的這個有點問題,是要只輸出一次,也可做,
為阜平等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù),及阜平網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都網(wǎng)站設(shè)計、成都做網(wǎng)站、阜平網(wǎng)站設(shè)計,以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求,就會得到認(rèn)可,從而選擇與我們長期合作。這樣,我們也可以走得更遠(yuǎn)!
2.但問題是如果你數(shù)組還有就看不到了!這個做法有點問題
1.解決方法:
循環(huán)前面加入一個變量 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
使用一個單重的循環(huán)掃描這個字符串中的所有字符,對每一個字符的出現(xiàn)次數(shù)進(jìn)行統(tǒng)計,最后輸出每個字符的出現(xiàn)次數(shù)。
Private Sub Command1_Click()
s = InputBox("請輸入一個英文字符串:")
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
兩種方法:
圖片框上蓋個Label 向其輸入內(nèi)容。
載入圖片,通過內(nèi)存直接?DrawImage繪制個新圖,然后在圖上蓋文字。最后賦值給圖片框。
VB6的print 實質(zhì)是向圖片框打印文字,不管有無圖都能在上面Print. 考慮速度和實現(xiàn)難度問題,如果純粹顯示,最好直接蓋個Label最簡單。第二種方法 需要考慮文字大小、顏色、坐標(biāo)定位等等。如果一行文字顯示不下,不會自動換行,得自己切。