VB提示错误的参数号或无效的属性赋值是怎么回事啊。。高手求助~

我用你的代码测试没有发现问题：

Option Explicit

Dim sex As String

Dim interest As String

Private Sub Command1_Click()

If Option1.Value = True Then

sex = "男生"

Else

sex = "女生"

End If

If Check1(0).Value = 1 Then

interest = Check1(0).Caption

End If

If Check1(1).Value = 1 Then

interest = Check1(1).Caption

End If

If Check1(2).Value = 1 Then

interest = Check1(2).Caption

End If

Text1.Text = "我是" + sex + "我的爱好是" + interest

End Sub

pset用法错误，没有指定颜色参数
PSet 方法
将对象上的点设置为指定颜色。
语法
object.PSet [Step] (x, y), [color]
PSet 方法的语法有如下对象限定符和部分：

部分 描述
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。
Step 可选的。关键字，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。
(x, y) 必需的。 Single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。
color 可选的。Long （长整型数），为该点指定的 RGB 颜色。如果它被省略，则使用当前的 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
PSet 方法示例
这个示例用 PSet 方法在窗体上画五彩碎纸。想运行这个示例，将代码放入窗体的General 部分。按 F5 并单击窗体。
XPos = Rnd * ScaleWidth ' 得到水平位置。
YPos = Rnd * ScaleHeight ' 得到垂直位置。
PSet (XPos, YPos), QBColor(Rnd * 15) ' 画五彩碎纸。

哪行报错？

你界面上有没有check1(0),check1(1),check1(2)这三个checkbox 控件数组？或者说这控件名字是不是对的