在VB中,要設(shè)置文本框中字符的顏色,應(yīng)設(shè)置的文本框?qū)傩允牵ā 。?/div>
【考點(diǎn)】對(duì)象的屬性、方法和事件.
【答案】C
【解答】
【點(diǎn)評(píng)】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/4/20 14:35:0組卷:7引用:2難度:0.9
相似題
-
1.【加試題】小白同學(xué)為了方便和同學(xué)們的聯(lián)系,在QQ注冊(cè)網(wǎng)(http://zc.qq.com)注冊(cè)了一個(gè)QQ賬號(hào):2796290808.由于長時(shí)間未使用該QQ,小白忘記了登錄密碼,但他清楚地記得:
(1)密碼由8個(gè)字符組成;
(2)密碼最前面2位是“xb”;
(3)密碼后6位是純數(shù)字:①前面兩位數(shù)字是68;②最后兩位數(shù)字相同;③能被19和39整除.
編寫VB程序,實(shí)現(xiàn)程序功能:單擊“查找”按鈕Command1后,在文本框Text1中顯示小白的QQ密碼.程序設(shè)計(jì)界面如圖所示:
程序代碼如下,請(qǐng)?jiān)跈M線處填入合適的代碼.
Function f(s As Long)As Boolean'自定義函數(shù),用于判斷密碼后6位是否滿足條件
Dim a As Integer,b As Integer
a=s Mod 10
b=(s Mod 100)\10
If
f=True
Else
f=False
End If
End Function
Private Sub Command1_Click( )
Dim i As Integer,n As Long
i=0
Do While i<10000
If f(n)Then
Text1.Text=“xb”+LTrim(Str(n))'LTrim函數(shù)的功能:刪除字符串的起始空格
End If
i=i+1
Loop
End Sub.發(fā)布:2024/6/27 10:35:59組卷:14引用:1難度:0.1 -
2.小李想用vb制作一個(gè)分鐘倒計(jì)時(shí)器,界面如圖所示.先在文本框text1中輸入分鐘數(shù),然后在文本框text2中輸入秒鐘數(shù),再點(diǎn)擊“開始倒計(jì)時(shí)”按鈕開始倒計(jì)時(shí).Vb程序如下:
Private Sub Command1_Click ( ?。?br />Timer1.Enabled=
End Sub
Private Sub Timer1_Timer ( ?。?br />sec=Val(Text2.Text)
min=Val(Text1.Text)
If sec>0Then
sec=sec-1
Else
sec=59
If min>0Then
min=min-1
Else
Text1=0
Text2=0
MsgBox“倒計(jì)時(shí)時(shí)間到“
End If
End If
Text1=min
Text2=sec
End Sub
(1)程序中①處應(yīng)該填
(2)計(jì)時(shí)器timer1的inteval屬性應(yīng)該設(shè)置為發(fā)布:2024/6/27 10:35:59組卷:5引用:1難度:0.3 -
3.【加試題】統(tǒng)計(jì)字母出現(xiàn)的頻數(shù).隨機(jī)輸入一段全部由小寫字母組成的字符串(默認(rèn)輸入的內(nèi)容都符合要求),長度不大于1000,分別統(tǒng)計(jì)a~z出現(xiàn)的次數(shù),未出現(xiàn)的字母次數(shù)默認(rèn)為0,對(duì)出現(xiàn)次數(shù)不為0的字母按出現(xiàn)次數(shù)降序排列.下面程序模擬該功能,程序界面如圖所示.在文本框Text1中輸入字符串,單擊“統(tǒng)計(jì)”按鈕Command1,在列表框List1顯示最終結(jié)果.
實(shí)現(xiàn)上述功能的VB程序代碼如下,請(qǐng)?jiān)跈M線處填上合適的代碼.
Private Sub Command1_Click( ?。?br />Dim s As String
Dim ch as String'定義存儲(chǔ)字符串中的字符ch
Dim total(1To 26)As Integer'定義存儲(chǔ)a~z字母的出現(xiàn)頻數(shù)數(shù)組
Dim word(1To 26)As Integer'定義存儲(chǔ)a~z字母的序號(hào)數(shù)組
List1.Clear
s=Text1.Text
n=Len(s)
For i=1To n
ch=①
total(Asc(ch)-96)=total(Asc(ch)-96)+1
Next i
For i=1To 26
word(i)=i
Next i
For i=1To 25
k=i
For j=i+1To 26
If total(k)<total(j) Then k=j
Next j
If i<>k Then
t=total(i):total(i)=total(k):total(k)=t
t=word(i):word(i)=word(k):word(k)=t
End if
Next i
For i=1To 26
If②Then
List1.AddItem Chr(word(i)+96)&“”&total(i)
End If
Next i
End Sub
程序中①橫線處應(yīng)填入
程序中②橫線處應(yīng)填入發(fā)布:2024/6/27 10:35:59組卷:11引用:1難度:0.1
把好題分享給你的好友吧~~
深圳市菁優(yōu)智慧教育股份有限公司
?2010-2024 jyeoo.com 版權(quán)所有