在VB里,"平均分"(pingjunfen), 这是数组的调用方法,当然会报错了
创新互联公司坚持“要么做到,要么别承诺”的工作理念,服务领域包括:成都网站设计、做网站、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的白银网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
这样改吧:
Dim xingming As String
Dim yuwen As Short
Dim shuxue As Short
Dim yingyu As Short
Dim zonghe As Short
Dim pingjunfen As Short
xingming = InputBox("输入姓名", "输入名字吧")
yuwen = InputBox("输入语文成绩", vbOKOnly)
shuxue = InputBox("输入数学成绩", vbOKOnly)
yingyu = InputBox("输入英语成绩", vbOKOnly)
zonghe = yuwen + shuxue + yingyu
pingjunfen = zonghe / 3
MsgBox("平均分:" pingjunfen, [vbOKOnly])
F(X)数据定义有问题。X此时为0。
解决方法:使用动态数组。
Dim F0, F1, F2, F3, F4, F() As Double 'F为动态数组
x = Val(TextBox2.Text)
REDIM F(x) '重新定义
很可能是你的Vb程序中有Option Base语句。
vb.net 的数组基数都是从0开始的,并且不支持 Option Base 语句。
你对For Each的使用没有明确
你这里的意思是指,,i属于a数组,所以,i会是2,也会是4,也会是6,也会是8,也会是10,也会是12.。。。如果 再用a(i)去 索引数组中的数据肯定会超出索引范围
你这个改,把
sum += a(i)
改成:
sum += i
就可以了
1、点击VS工具。
2、打开后,新建一个Windows窗体应用程序。
3、新建完毕后,如图所示。
4、拖动一个按钮。
5、定义数组最常见的方法,如图示。
6、运行后,点击按钮,弹出提示正常。
7、定义数组第二种方法,属于动态的方法。
8、运行后,点击按钮,数组成功输出。
i、j两个变量在for循环结束后数值都是6,
所以你的a(i,j)=a(6,6),但是你定义是Dim a%(5, 5),所以才会提醒“索引超出了数组界限”的。
没看明白你的TextBox1.text是来显示什么的?
如果用来显示a(5,5)的直接写TextBox1.Text = a(5, 5)就可以了呀
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款