VB 如何打印未知个数的星号
随机产生6位学生的分数，（分数范围1~100），存放在数组a中，并以每20分显示一个“*”。在空白中填入适当的语句，完成此程序。Privatesubcommand1_cl...
随机产生6位学生的分数，（分数范围1~100），存放在数组a中，并以每20分显示一个“*”。在空白中填入适当的语句，完成此程序。
Private sub command1_click()
Dim a (1 to 6)
For I = 1 to 6
a(i)=（ 填 ）
print （ 填 ）
next I
End sub 展开
Private sub command1_click()
Dim a (1 to 6)
For I = 1 to 6
a(i)=（ 填 ）
print （ 填 ）
next I
End sub 展开
1个回答
展开全部
int(rnd*100)+1
string(a(i)/20,"*")
string(a(i)/20,"*")
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
