麻烦帮看下哪里错了

380869102

想实现判断出现高兴或开心或愉悦就在textbox2显示对应出现的个数，代码可以运行，但实现不了功能
Public Sub CommandButton3_Click()
Dim a$, b%
Dim risk_4(3) As String
risk_4(0) = "高兴"
risk_4(1) = "开心"
risk_4(2) = "愉悦"
a = TextBox1.Value
b = UBound(Split(TextBox1.Value, risk_4(3)))
If b <> 0 Then
TextBox2.Value = "level 4" & "*" & b
Else
TextBox2.Value = "level 4" & "*" & "0"
End If
End Sub

笨鸟飞不高

。。。。。。

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。

380869102

蓝桥玄霜 发表于 2020-11-30 11:58
没有附件不能测试代码。
建议上传Excel表格附件来说明问题。

小白刚接触，请大佬指点

everbest2015

risk_4(3)  这个都没有值  拆分什么

everbest2015

感觉写的有点风马牛

380869102

everbest2015 发表于 2020-11-30 13:53
感觉写的有点风马牛

哈，刚接触，就....大胆写。额，我理解这个就是赋值啦。
risk_4(0) = "高兴"
risk_4(1) = "开心"
risk_4(2) = "愉悦"

MOY838840554

380869102 发表于 2020-11-30 14:02
哈，刚接触，就....大胆写。额，我理解这个就是赋值啦。
risk_4(0) = "高兴"
risk_4(1) = "开心"

risk_4(0) = "高兴"
risk_4(1) = "开心"
risk_4(2) = "愉悦"
risk_4(3) =???

380869102

MOY838840554 发表于 2020-11-30 14:05
risk_4(0) = "高兴"
risk_4(1) = "开心"
risk_4(2) = "愉悦"

这个数组设定的只有三个risk_4(3) ，0作为第一个。俺是这么理解的

renkangjizhen

勇气可嘉，方法不可取！