UC知道vb基础题！！！貌似都会额。。。
来源：百度知道 编辑：UC知道 时间：2024/06/25 13:17:25
1 在列表框中随机产生5组三个相邻正整数n，n+1，n+2（100《=n《1000）
并计算所产生数的平均值
2 定义窗体的坐标系为（-10，300）-（300，-10） 在窗体上按公式
y=x^2/255 x=0-255
用pset方法绘制图 其线宽为1 绘制曲线的线宽为5 曲线的颜色为绿色
并计算所产生数的平均值
2 定义窗体的坐标系为（-10，300）-（300，-10） 在窗体上按公式
y=x^2/255 x=0-255
用pset方法绘制图 其线宽为1 绘制曲线的线宽为5 曲线的颜色为绿色
T1.
Private Sub Form_Load()
Randomize
Dim i As Integer, x As Integer, s As Integer
For i = 1 To 5
x = Int(Rnd * 900 + 100)
Combo1.AddItem Join(Array(x, x + 1, x + 2))
s = s + x + 1
Next
MsgBox "平均值为：" & s / 5
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝
T2.但是题目中“其线宽为1 绘制曲线的线宽为5”一句不甚理解，我按1画的。如果想改成5，加一句drawwidth=5.
Private Sub Form_Paint()
Dim x As Single
Scale (-10, 300)-(300, -10)
For x = 0 To 255 Step 0.1
PSet (x, x * x / 255), vbGreen
Next
End Sub