ac+val和平精英

舒香知775VB list中有10个数据 范围都是0到10的 去掉最大值和最小值求平均 -
元贝哀17170216001 ______ dim i as integer,max as integer,min as integer,s as integer for i =0 to list1.listcount-1 s=s+val(list1.list(i)) if max if min>val(list1.list(i)) then min=val(list1.list(i)) next print ＂平均值为＂ & (s-max-min)/(list1.listcount-2)

舒香知775vb文件的长度 -
元贝哀17170216001 ______ 你的数据记录间隔之间被用0填充了,使最后一个记录之前的每个记录占据了128个字节空间,估计是格式数据文件的保留空间=Open ＂111.dat＂ For Random...

舒香知775告诉我VB里面的乘除法怎么输入命令? -
元贝哀17170216001 ______ 一楼的朋友的乘法可能溢出 请使用我的 乘法: Private Sub Command1_Click() Dim x As Long x = CLng(Text1.Text) * Text2.Text Text3.Text = x End Sub 除法: Private Sub Command1_Click() a = Text1.Text b = Text2.Text Text3.Text = Format(a / b, ＂0.0＂) End Sub 你可以按照你的意思修改~~

舒香知775VB文本框计算工资总额 -
元贝哀17170216001 ______ 往窗体上加text控件(总工资的文本框的Enabled=False) 然后设为相加得到工资不就行了,这也太基础了吧.看书吧

舒香知775vb题目????
元贝哀17170216001 ______ 代码如下:已经过验证 Private Function Max(ByVal x As Single, ByVal y As Single, ByVal z As Single) As Single Dim t As Single t = IIf(x > y, x, y) Max = IIf(z > t, z, t) End Function Private Sub Command1_Click() Dim a As Single, b As Single, c As...

舒香知775[200分]VB验证数据 -
元贝哀17170216001 ______ 修改结果:Private Sub Command2_Click()Dim j As Single, i As IntegerFor i = 0 To 80Text1(i).BackColor = vbWhiteNext i'检查内容1、整数,2、在1~9之内,3、纯数字For i = 0 To 80j = Val...

舒香知775vb实用小程序源代码 -
元贝哀17170216001 ______ Private Sub mianji() Dim a As Single, b As Single, c As Single a = Val(InputBox(＂请输入三角形的边a:＂, ＂输入＂)) b = Val(InputBox(＂请输入三角形的边b:＂, ...

舒香知775vb作业..急需 -
元贝哀17170216001 ______ Private Sub Command1_Click()Dim iDim sc(9) As IntegerDim max As IntegerDim min As IntegerDim avgDim sumDim m, nFor i = 0 To 9 sc(i) = Val(InputBox(＂请输入第＂ & (i + 1) & ...

舒香知775asp 表关联数据库的显示 -
元贝哀17170216001 ______ Create Function ConvertVertToHorz(@Col1Val int)RETURNS VARCHAR(8000)AS BEGIN DECLARE @RetVal varchar(8000) SET @RetVal = '' -- 通过递归 SELECT 连...