VB程序题：已知6个学生的成绩，通过对数组赋初值的方法，利用String函数，以每5分为一个“◆”显示，并显示学生的成绩，如下图所示。龚沛曾

VB程序题：已知6个学生的成绩，通过对数组赋初值的方法，利用String函数，以每5分为一个“◆”显示，并显示学生的成绩，如下图所示。龚沛曾
 
解题，代码如下：
Private Sub Form_Click()
    Dim a
    a = Array(56, 78, 98, 88, 76, 78)
    Cls
    For i = 0 To 5
        Print String(a(i) \ 5, "◆"); a(i)
        Print
    Next i
End Sub

运行程序，点击窗体，显示图形。运行程序效果图如下：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/80.html