18.編寫VB程序,實現如下功能:在文本框Text1中輸入某一年份,單擊“天干地支與生肖”按鈕Command1,在列表框List1中輸出該年份開始的12個年份及對應的“天干地支”與“生肖”,運行界面如圖所示,程序代碼如下. (1)代碼“Private Sub Command1_Click ( )”中的Click是
(單選,填字母:A、對象名 B、屬性名 C、事件名) (2)為實現上述功能,請在橫線處填入合適代碼. Private Sub Command1_Click ( ) Dim a As Integer,b As Integer Dim i As Integer,n As Integer Dim c1As String,s1As String Dim c2As String,s2As String Dim c3As String,s3As String List1.Clear s1=“甲乙丙丁戊己庚辛壬癸“ s2=“子丑寅卯辰巳午未申酉戌亥“ s3=“鼠牛虎兔龍蛇馬羊猴雞狗豬“ n=Val(Text1.Text) For i=n To
19.編寫“加法練習題生成器”程序,實現如下功能:在文本框Text1中輸入題數n,單擊“生成”按鈕Command1,在列表框List1中顯示n個兩數之和小于100的加法練習題。程序運行界面如圖1所示。 (1)在設計程序界面時,應使用圖2所示“控制工具箱”中的 (填寫相應編碼)添加“生成”按鈕。 (2)實現上述功能的VB程序如下,請在橫線處填寫合適的代碼。 Private Sub Command1_Click ( ) Dim n As Integer,i As Integer,a As Integer,b As Integer Randomize n=Val(Text1.Text) i=①
Do While i<=n a=Int(Rnd*100) b=Int(Rnd*100) If ②
Then List1.AddItem“(“+Str(i)+“)“+Str(a)+“+“+Str(b)+“=“ i=i+1 End If Loop End Sub 運行該程序,在文本框中輸入5,單擊“生成”按鈕后,對語句“a=Int(Rnd*100)”執行次數的描述,最合理的是