Dim a(14) As Integer
创新互联:2013年开创至今为各行业开拓出企业自己的“网站建设”服务,为上1000+公司企业提供了专业的做网站、网站建设、网页设计和网站推广服务, 按需开发由设计师亲自精心设计,设计的效果完全按照客户的要求,并适当的提出合理的建议,拥有的视觉效果,策划师分析客户的同行竞争对手,根据客户的实际情况给出合理的网站构架,制作客户同行业具有领先地位的。
For i = 1 To 14
a(i) = Int(Rnd() * 90) + 10
ListBox1.Items.Add(a(i))
Next
Dim b(14) As Integer
Dim sum As Integer = 0
For i = 1 To 14
b(i) = ListBox1.Items.Item(i - 1)
sum = sum + b(i)
Next
Dim avg As Double
avg = sum / 14
MsgBox(avg)
我写的可以,你可以把代码贴出来看看
Dim textColumn As New DataGridViewTextBoxColumn() '定义一个新的textbox格式的列
textColumn.Name = "Column1" '定义该列的Name
textColumn.HeaderText = "Column1" '定义该列的标题
DataGridView1.Columns.Add(textColumn)
For Each r As DataGridViewRow In DataGridView1.Rows '循环DataGridView的行
r.Cells(textColumn.Index).Value = r.Cells(0).Value + r.Cells(1).Value '将第一列和第二列单元格数据相加,并显示在新添加的单元格上
Next
用循环啊
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim count As Integer = Me.DataGridView1.Rows.Count
Dim sum As Double = 0
For i = 0 To count - 1
sum += Val(Me.DataGridView1.Item("Amount", i).Value)
Next
MsgBox("和是:" sum)
End Sub
String[] s={"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"};
System.out.print("请输入数字(1-12):");
BufferedReader br=new BufferedReader(new InputStreamReader(System.in));
String str=br.readLine();
int m=Integer.parseInt(str);
if (m=0||m=13)
{