问一道VB编程题代码

来源：百度知道 编辑：UC知道 时间：2024/06/17 21:40:29
题目如下
打开D盘根目录VB实验文件夹下的"工程1"工程文件，编写程序提取输入日期数值的年份、月份和天数，并将其显示在窗体上。具体要求如下：
1、单击窗体，出现输入对话框；
2、使用Inputbox函数输入日期数值；
3、将提取结果输出在窗体上。
4、程序参考界面如图所示；
5、程序代码须书写呈锯齿型；
6、将窗体文件和工程文件分别以F3.frm和P3.vbp保存在D盘的VB实验文件夹中
我运行过,有两句语法错误 str1=inputbox("请输入日期","输入格式:2008/2/29",vbok,) do while right(a1,1)<>'/'

private sub form1_click()
dim str1,a1,S1,S2,S3 as string
dim i as integer
str1=inputbox("请输入日期","输入格式:2008/2/29",vbok,)

i=1
a1=left(str1,i)
do while right(a1,1)<>'/'
i=i+1
a1=left(str1,i)
loop
a1=left(a1,i-1)
S1=a1

str1=right(str1,len(str1)-i)

i=1
a1=left(str1,i)
do while right(a1,1)<>'/'
i=i+1
a1=left(str1,i)
loop
a1=left(a1,i-1)
S2=a1

str1=right(str1,len(str1)-i)

S3=str1

form1.print S1+"年"+vbtab+S2+"月"+vbtab+S3+"日"

end sub

等我下班我再来写

锯齿自己调吧，百度不好弄

Option Base 1
Private Sub Form_Click()
Dim str, a1, S(3) As String
Dim i, j As Integer
j = 1
str = Trim(InputBox("请输入日期", "输入格式:2008/2/29", vbOK))
For i = 1 To Len(str)
If Mid(str, i, 1) = "/" Then
j =