以下程序的功能是从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,显示结果。请填空。 Private Sub Form_Click() Dim x,y As Single Dim z As Integer x=InputBox("Ent

admin2013-02-04  35

问题 以下程序的功能是从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,显示结果。请填空。
Private Sub Form_Click()
Dim x,y As Single
Dim z As Integer
x=InputBox("Enter a score")
Do while【  】
y=y+x
z=z+1
x=InputBox("Enter a score")
Loop
If z=0 Then
z=1
End If
y=y/z
MsgoBox y
End Sub

选项

答案1

解析 在Day(date)中date是必要的参数,可以是任何能够表示日期的Variant、数值表达式、字符串表达式或它们的组合,如果date包含Null,则返回Null。
weekday(date)返回一个Variant(Integer),包含一个整数,代表某个日期是星期几。
其语法为
Weekday(date,[firstdayofweek])
firstdayofweek指定一星期中第一天的常数。如果未予指定,则以vbSunday为默认值,即星期日为1,则星期六为7。
转载请注明原文地址:https://jikaoti.com/ti/gpw0FFFM
0

最新回复(0)