mdsk.net
当前位置:首页 >> PrivAtE SuB Form_CliCk() DIM x,y As SinglE DIM ... >>

PrivAtE SuB Form_CliCk() DIM x,y As SinglE DIM ...

Private Sub Form_Click() DIM x,y As Single DIM z As Integer X=InputBox ("ENTER a score") Do whlie x>=0 y=y+x z=z+1 x=InputBox("Enter a score") Loop If z=0Then z=1 End If y=y/z MsgBox y End Sub

这是一段比较弱的代码: 继续套用该段代码: X=val(InputBox ("ENTER a score")) Do whlie x>=0'当x>=0时继续循环,如果x不>=0则跳出循环 y=y+x z=z+1 x=val(InputBox("Enter a score")) Loop 应该用下面的: Do whlie 1 X=val(InputBox ("ENTER...

Private Sub Command1_Click() Dim x As Single, z As Single, y As Single x = Val(Text1. ??? nei rong bu quan a

楼主,你的程序代码应该是没问题,不知道你的错误在哪行上? 如果你运行有错误的话,请先检查一下窗体上是否有名称为"Text1"的这样一个TextBox控件 还有就是在窗体上单击才会运行这段代码.

C 显然Abc()这个函数从未见过,估计是写错了(应为Abs()) 附:Abs()是取绝对值函数

Dim nt As Single Private Sub aa(ByVal n As Single) Dim i As Integer nt = 1 For i = 1 To n nt = nt * i Next i End Sub Private...

声明变量x为Single类型声明变量y为Single类型 Single 数据类型 Single(单精度浮点型)变量存储为 IEEE 32 位(4 个字节)浮点数值的形式,它的范围在负数的时候是从 -3.402823E38 到 -1.401298E-45,而在正数的时候是从 1.401298E-45 到 3.4028...

答案选C,代码

不知道你想问什么,但这句 For i = 1 To n: a (i) + 1: Next 中间的一句a (i) + 1有问题。

'定义的时候可以根据你的需要设置不同的数据类型,不必跟下面的一致 '可参考:http://msdn.microsoft.com/zh-cn/library/47zceaw7(v=vs.80).aspx Const Pi As Single = 3.14 Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVa...

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com