下面是一个判断季节的过程,当在文本框text1中输入一个月份数时,在文本框text2中显示相应季节。请填空完成。 Private Sub Command1_Click() M=val(text1.text) __________________ case 3 to 5 text2.text=”春季” case 6 to 8 _____________=”夏季” case 9 to 11 text2.text=”秋季” case __________ text2.text=”冬季” ________________ text2.text=”月份输入出错” end _________ end sub 2、 下面是一个计算阶乘的函数和组合计算过程,计算组合时要调用阶乘函数,请补充完整。(10分) Function fact(n%) as long ‘阶乘函数 Dim i as integer Fact= ____________ for i=1 to n ____________ next i end function Private Sub Command1_Click() ‘组合计算 X=val(text1.text) Y=val(text2.text) Jx=____________ Jy=_____________ Jz=_____________ Zh=jx/(jy*jz) Label1.caption=zh End sub
题1 Private Sub Command1_Click() M = Val(text1.Text) Select Case M Case 3 To 5: text2.Text = "春季" Case 6 To 8: text2.Text = "夏季" Case 9 To 11: text2.Text = "秋季" Case 1, 2, 12: text2.Text = "冬季" Case Else: text2.Text = "月份输入出错" End Select
End Sub' 2、 下面是一个计算阶乘的函数和组合计算过程,计算组合时要调用阶乘函数,请补充完整