此篇博客介绍了使用Visual Basic for Applications (VBA) 编程实现的个性化的字符串生成过程，包括根据用户选择判断性别、身份及兴趣爱好，并将结果动态显示。通过实例展示了如何结合If语句和数组操作来定制输出。
Private Sub Command1_Click()
Dim s As String
s = "我是 "
'判断性别
If Option1.Value = True Then
s = s + “男”
Else
s = s + “女”
End If
'判断身份
If Option3.Value = True Then
s = s + “学生”
Else
s = s + “教师”
End If
s = s + “,爱好：”
'判断爱好
If Check1.Value = 1 Then '1选择，0未选择
s = s + “体育、”
End If
If Check2.Value = 1 Then '1选择，0未选择
s = s + “电影、”
End If
If Check3.Value = 1 Then '1选择，0未选择
s = s + “摄影。”
End If
If Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 Then
s = s + “无。”
Else
s = Left(s, Len(s) - 1) + “。” '右截函数，去掉最后一个，改成句号
End If
'设置结果
Text1.Text = s
End Sub
3208
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
