5.有如下VB程序: Private Sub Command1_Click( ) Dim x As Double,y As Double x=Val(Text1.Text) If x>10Then y=“HELLO“ Else y=“BYEBYE“ Endif Text2.Text=y End Sub 這個程序運(yùn)行的時候出現(xiàn)“類型不匹配”的錯誤,應(yīng)把橫線處改為( ?。?/h2>
17.有7個人坐在一起,問第七個人多少歲?他說是第6個人年齡2倍小4歲.問第6個人歲數(shù),他說是第5個人年齡也是2倍小4歲.問第5個人,還說是第4個人年齡2倍小4歲.問第4個人,又說是第3個人年齡2倍小4歲,以此類推.最后問第一個人,他說是5歲.請問第7個人多大?以下是小王同學(xué)編寫的解決該問題的VB,請把程序補(bǔ)充完整. Private Sub Command1_Click ( ?。?br />Dim i,year As Integer Dim a(1To 8)As Integer a(1)=5 For i=①
To 7②
List1.AddItem“第“+Str(i)+“個人的年齡為“+Str(a(i)) Next i End Sub.
18.小偉假期同爸爸一起去書店,他選中了七本書,書的總價為175元.小偉爸爸的錢包里有5元8張,10元10張,20元6張,還有一元硬幣20個,現(xiàn)在小偉怎么樣才能搭配出175元錢買到這七本書,其中,每種貨幣必須至少要一張(個),請問有幾種方法? Private Sub Command1_click ( ) Dim x,y,z,m As Integer Dim c As Integer c=0 For x=1To 20 For y=1To 8 For z=1To 10 For m=1To 6 If①
Then②
List1.AddItem“第“+Str(c)+“方法:“+Str(x)+Str(y)+Str(z)+Str(m) End If Next m Next z Next y Next x End Sub.