在vb程序设计中做！！！！ 输入某班级n个学生的成绩到数组X中，求成绩的标准差，求标准差公式如下:

VB输入某班级N个学生的成绩到数组X中,求成绩的标准差,求标准差公式如下~

Private Sub Command1_Click()
Dim i As Integer, cj() As Integer, n As Integer, zcj As Integer, pj As Single, s As Single, q As Single
n = InputBox("请输入学生人数：")
ReDim cj(n) As Integer
For i = 1 To n
cj(i) = InputBox("请输入第 " & i & " 个学生成绩：")
Next
zcj = 0
For i = 1 To n
zcj = zcj + cj(i)
Next
pj = zcj / n
s = 0
For i = 1 To n
s = s + (cj(i) - pj) ^ 2
Next
q = Sqr(s / (n - 1))

Print q
End Sub

文本是什么样子的啊

yixiaopao - 江湖新秀 四级很搞笑。估计没学过VB
你如果要在INPUTBOX里输入的东西变成*号 保护隐私你可以
在模块中添加这些代码
Option Explicit

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Private Const EM_SETPASSWORDCHAR = &HCC

'hwnd 标识与定时器相关的窗口
'nIDEvent 指定一个非零定时器事件标识符
'uElapse 指定定时器事件之间的时间间隔
'lpTimerFunc 表示定时器事件发生后接收详细的函数的过程实例地址
Public Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) _
As Long

Private Declare Function KillTimer Lib "user32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long) _
As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) _
As Long

Dim m_lngTimerId As Long

Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Dim lngHwnd As Long
lngHwnd = FindWindow(vbNullString, "输入")
lngHwnd = FindWindowEx(lngHwnd, 0, "Edit", vbNullString)

If lngHwnd Then
Call PostMessage(lngHwnd, EM_SETPASSWORDCHAR, &H2A, 0)
Call KillTimer(0, m_lngTimerId)
End If

End Sub

==========下面是窗体代码（注意模块中lngHwnd = FindWindow(vbNullString, "输入") 输入要和你要用到的inputbox标题一样
Private Sub Command1_Click()
m_lngTimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
n = InputBox("请输入姓名", "输入")
Print n
End Sub

=======================如果你想输出你所说的图形你可以用一下代码

Private Sub Command1_Click()
n = VAL(InputBox("输入整数"))
For i = 1 To n
Print String(i, "*")
Next i
End Sub
Private Sub Command2_Click()
n = VAL(InputBox("输入整数"))
For i = 1 To n Step 2
Print String(i, "*")
Next i
End Sub
你的串号我已经记下，采纳后我会帮你制作

dim stu(100) as integer;
dim total,aver,s as integer;
dim i as integr
total=0
n=inputbox("n=")
for i=1 to n
stu(i)=inputbox("no"+i)
total=total+stu(i)
next i
aver=total/n
s=0
for i=1 to n
s=s+sqrt(num(i)-aver)
next i
print "s=";s/n

Private Sub Command1_Click()
Dim a As Long, b As Long

a = Val(InputBox("输入一个数a:"))
b = Val(InputBox("输入一个数b:"))
For i = 1 To sMin(a, b)
If (a / i = a \ i) And (b / i = b \ i) Then c = i
Next
Print "最大公约数是:"; c

End Sub

Function sMin(a As Long, b As Long) As Long
If a < b Then
sMin = a
Else
sMin = b
End If

End Function
我可以帮助你，你先设置我最佳答案后，我百度Hii教你。

---

在vb程序设计中做！！！！ 输入某班级n个学生的成绩到数组X中，求成绩的标准差，求标准差公式如下:视频