屬性的屬性值改“日期”. (2)為實(shí)現(xiàn)上述功能,請(qǐng)?jiān)跈M線處填入合適的代碼. Private Sub Command1_Click( )Dim s As String'變量s存儲(chǔ)輸入的日期 Dim s1 As String,s2 As String,s3 As String Dim y As Integer,y2 As Integer,m As Integer,d As Integer,n As Integer s1=“622503514624“ s2=“512503514624“ s3=“日一二三四五六“ s=
y=Val(Mid(s,1,4)) m=Val(Mid(s,6,2)) d=Val(Mid(s,9,2)) y2=y Mod 100 n=Int(y2/4)+y2+d If y Mod 4=0And y Mod 100<>0Or y Mod 400=0Then'判斷是否為閏年 n=n+Val(Mid(s2,m,1)) Else n=n+Val(Mid(s1,m,1)) End If n=n Mod 7+1 '(3) End Sub (3)加框處程序代碼有錯(cuò)誤,請(qǐng)改正. (4)如果輸入日期“2017-02-01”,則輸出結(jié)果是星期
19.編寫(xiě)VB程序,尋找第1位為2,第5位為5,數(shù)字長(zhǎng)度為5的完全平方數(shù),并統(tǒng)計(jì)個(gè)數(shù).要求:?jiǎn)螕簟皩ふ摇卑粹oCommand1,將符合要求的五位數(shù)顯示在列表框List1中,統(tǒng)計(jì)個(gè)數(shù)顯示在標(biāo)簽Label2中,界面如圖所示. 實(shí)現(xiàn)上述功能的VB程序代碼如下: Private Sub Command1_Click
Dim i As Integer,n As Integer Dim x As Integer n=0 For i=0To 999 x=① If Int(Sqr(x))=Sqr(x) Then List1.AddItem ② ③ End If Next i Label2.Caption=“共有:“+Str(n)+“個(gè)“ End Sub (1)在設(shè)計(jì)應(yīng)用程序界面時(shí),能在窗體上添加標(biāo)簽Label2的操作是(填編號(hào):①單擊工具箱中的標(biāo)簽控件 ②雙擊工具箱中的標(biāo)簽控件) (2)為實(shí)現(xiàn)上述功能,劃線①處應(yīng)填入的代碼為