怎么VB用◆=5分来表示我输入的成绩，例如我输入50分，就有10个◆显示

dim a,b,c

a= text1.text '你输入的分数

b= a/5

c=String(i, "◆")
text1.text = c

大概是这样了，没测试，你修改下。

i = Val(InputBox("请输入成绩："))
i = i \ 5
Text1.Text = String(i, "◆")

str=string(50/5,"◆")