请教一下VB问题

xtdate是什么类型？

如果是字符串

xtdate=trim(combo1.text) & "/" & trim(combo2.text) & "/" & trim(combo3.text)

如果是日期类型

xtdate = CDate(Trim(Combo1.Text) & "/" & Trim(Combo2.Text) & "/" & Trim(Combo3.Text))

要想改变显示格式可以用Format来设置一下

比如xtdate = Format(xtdate, "mm-dd-yyyy")

你应该先连接好字符串了 再去转换

Private Sub Form_Load() Form1.AutoRedraw = True a = InputBox("输入数字") For i = 1 To a If i Mod 7 = 0 Or i Mod 13 = 0 Then Print i; Spc(1); j = j + 1 End If Next Print "总数："

xtdate = # val(combo1.text) / val(combo2.text) / val(combo3.text) #
应该改为：
xtdate=CDate(Val(Combo1.Text) & "/" & Val(Combo2.Text) & "/" & Val(Combo3.Text))

CDate()函数是用来将日期型字符串转换为日期型数据的。

当combo中的text的val不是整数时或越出年,月,日范围时当然会出错了
并且你需要使用字符串连接符"+"或"&".