Question

提问几个关于VB的问题~在线等答案!万分感谢~

1、要以“××××年××月××日”形式显示当前日期的Format函数格式为__________________
2、计算离2009年6月30日还有多少个星期的函数是_______________
3、 下面程序的功能是：________________
Dim n%，m%
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii ＝ 13 Then
If IsNumeric(Text1.Text) Then
Select Case Text1.Text Mod 2
Case 0
n ＝ n ＋ Text1.Text
Case 1
m ＝ m ＋ Text1.Text
End Select
End If
Text1.Text ＝ 〃 〃
Text1.SetFocus
End If
End Sub
5、 输入任意长度的字符串，要求将字符顺序倒置，例如“ABCDEFG”变换为“GFEDCBA”。
Private Sub Command1_Click()
Dim a$， n%， i%， c$
a ＝ InputBox(〃输入字符串〃)
n ＝ Len(a)
For i ＝ 1 To Int(n / 2)
c ＝ Mid(a， i， 1)
_________________________
_________________________
Next i
Print aEnd Sub

Answer 1

1、Format(date,"YYYY年MM月DD日")
2、DateDiff("ww", Date, "2009-6-30")
3、统计输入的奇偶数个数，其中n保存偶数个数，m保存奇数个数
5、 Mid(a, i, 1) = Mid(a, n + 1 - i, 1)
Mid(a, n + 1 - i, 1) = c

Answer 2

1、Print Format(Now, "yyyy年mm月dd日")
2、int（cdate("2008-6-30")-now)
3、用m和n分别统计在text1输入的数字偶数和奇数的个数，以回车键为数字fe分割标志。
5、a=left（a，i-1）& mid(a,n+1-i,1) & mid(a,i+1,n-2*i) & c & right(a,i-1)