vb.net用文本框输入数组的所有元素，数值之间用逗号分隔，统计数组中正数的个数，并显示最大值的元素下标
a=split(text1.text, ",") '将文本框的字符串按照逗号进行分割，分割后的每个数字赋值给数组a
for i=0 to ubound(a) '循环遍历数组a的每一个元素
if b<val(a(i) then b=a(i) '如果b小于当前元素，那么b=当前元素，这样在循环时，b始终=最大值
next
msgbox "最大值=" & b '弹出最大值
#include
void main()
{
int a[10] = {0};
int n = 0;
int sum = 0;
printf("请输入10个整数
");
for (int i=0;i<10;i++)
{
scanf("%d",&a[i]);
if (a[i]>0)
{
n++;
sum+=a[i];
}
}
printf("正数个数为%d个，正数和为%d
",n,sum);
}
Dim str As String = "", temp, n As Integer
Dim str1 As String = "12,45,2,9,41,31,66,83,2,1,-9,-91,-21"
Dim a() As String = Split(str1, ",")
For i = 1 To UBound(a) Step 1
a(i) = Val(a(i))
Next
temp = 0
n = 0
For i = 1 To UBound(a)
If a(i) > temp Then
temp = a(i)
End If
If a(i) > 0 Then
n = n + 1
End If
Next
str = str & "正数的个数为 " & n
str = str & "最大元素的下标为 "
For i = 1 To UBound(a)
If a(i) = temp Then
str = str & i & " "
End If
Next
TextBox6.Text = str
指导意见：
你好，根据你描述的情况考虑你说的这个问题可能是中医说的血瘀了，可吃些益母草膏和女金丸来调理，一般这中药的方法调节内分泌也是很不错的。
VB.net中如何在代码中设置文本框字体的大小
Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged Dim a As FontStyle a = Me.TextBox1.Font.Size Dim b As Single = a * 10 Me.TextBox1.Width = Me.TextBox1.Width * 10 Me.TextBox1.Font = New Sy...
vb.net入门——DomainUpDown 控件的使用
ReadOnly 属性用于设置用户是否只能使用向上或向下按钮更改文本 默认值为False 如果为False 则用户可以在文本框中进行输入 如果为True 则文本输入框变为灰色 用户只能通过Up Down按钮来选择列表 且当用户使用键盘键入的时候 控件自动完成匹配 如假设列表中存在下面三个字符串的项 aa b 控件ReadOnly 属性为...
VB.NET中怎么实现每单击一次按钮,文本框就多出现一个1-13的随机数字...
Dim n As Integer, b As Integer, a(13) As Integer Private Sub Command1_Click()If b < 5 Then b = b + 1 x = Int(n * Rnd()) + 1 Text1.Text = Text1.Text & a(x) & " "a(x) = a(n)n = n - 1 Else Call Form_Load End If End Sub Private Sub Form_Load...
vb.net 2010 如何把文本框中的数字提取出来
源代码如下：（代码写在按钮点击事件里）Label1.Text = "" Label2.Text = "" Dim a As String = TextBox1.Text Dim b As String = TextBox2.Text For x = 1 To a.Length Dim txt As String = Mid(a, x, 1) If txt Like "#" Then Label1.Text = Label1...
...2100年之间的闰年?输出到文本框,并统计输出闰年的个数?主要是统计个...
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim leapyears() As Integer = GetLeapYears(2000, 2100)Dim str As String Try Dim count As Integer = UBound(leapyears) + 1 str = "闰年个数:" + count.ToString For i = 0 To UBound(leapyears)...
vb.net 替换word文本框中的字符 点击替换按钮时内容中的a替换为b,c...
直接用Replace语句把：Dim oldstr,newstr as string oldstr="abcdeftgd"newstr=replace(oldstr,"a","b")newstr=replace(newstr,"c","d")望采纳。
VB.net 如果读取txt数据(或十进制dat数据)
vb.net虽也有input语句，但一次只能读取到一个变量中，可以用TextFieldParser类代替，但似乎没以前的方便。不过比以前的更灵活。写入文件Write还是可以用，在Microsoft.VisualBasic.FileIO中。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clic...
VB.NET程序设计,高手进,送高分!
Dim finsum as integer = 0 '---默认TextBox1文本框接收你的∧值,此除你可以加入方法判断输入的 '---TextBox1.Text是否为数字 If TextBox1.Text.Trim = string.Empty Then msgbox("请输入一个数字!")Exit Sub End If Dim b as Boolean = false '---用于循环中判断负数还是正数 '---循...
vb.net如何使用TCP\/IP协议向服务器发送字符串,要用到什么控件和函数...
1. 启动Visual Studio .Net。 2. 选择菜单【文件】|【新建】|【项目】后,弹出【新建项目】对话框。 3. 将【项目类型】设置为【Visual Basic项目】。 4. 将【模板】设置为【Windows应用程序】。 5. 在【名称】文本框中输入【服务器端程序】。 6. 在【位置】的文本框中输入【E:\\VS.NET项目】,然后单击【...
VB.NET的API调用
1. 启动Visual Studio .Net。 2. 选择菜单【文件】|【新建】|【项目】后,弹出【新建项目】对话框。 3. 将【项目类型】设置为【Visual Basic项目】。 4. 将【模板】设置为【Windows应用程序】。 5. 在【名称】文本框中输入【Visual Basic .Net查看文件中的图标】。 6. 在【位置】的文本框中输入【E:\\VS...
鞠仁藿香： Private Sub Command1_Click() Dim a() As String a = Split(Text1.Text, ＂,＂) For i = 0 To UBound(a) Print a(i) Next End Sub 意思是:将文本框里面的内容以＂,＂(逗号)处隔开!!输出到窗体上
加查县18362397416： VB输入数组元素个数,创建该数组,用输入框输入数组各元素的值,在窗体上显示数组所有元素的值、 - ？
鞠仁藿香： 展开全部 Private Sub Command1_Click() Dim a() As Integer n = Text1.Text ReDim a(n) For i = 1 To n a(i) = InputBox(＂请输入a(＂ & i & ＂)＂) Print a(i); If i Mod 5 = 0 Then Print Next i End Sub
加查县18362397416： VB.net通过text框的输入赋值给数组 - ？
鞠仁藿香： 你这个Text()()是一个二维数组?将数字直接定义成text box类型,并将己所添加的textbox实例复制给数组的相关项,这样就能通过数组的形式访问了...
加查县18362397416： vb.net数组 - ？
鞠仁藿香： 1234567891011121314151617181920212223242526 Dimstr AsString= ＂＂, temp, n AsInteger Dimstr1 AsString= ＂12,45,2,9,41,31,66,83,2,1,-9,-91,-21＂ Dima() AsString= Split(str1, ＂,＂) Fori = 1 ToUBound(a) Step1 a(i) = Val(a(i)) Next ...
加查县18362397416： 若要将数组中的数据一并放入文本框,可利用 函数方便地实现 - 上学吧...？
鞠仁藿香： 首先要确定,文本框里输入的一串字符,数据之间要用固定的、相同的分隔符隔开,否则一切免谈.比方说用逗号分开(要注意逗号也分全角和半角的,不能混用):Dim s() As String s = Split(Text1.Text, ＂,＂)
加查县18362397416： 在VB中如何将文本框中的内容输入数组中,是一个字母一个字母的输,不是一次性输 - ？
鞠仁藿香： dim str=＂AAfasdfasfsadfasdf＂ dim chararr(len(str)) dim i for i=1 to len(str) chararr(i)=mid(str,i,1) next str就是文本框的内容
加查县18362397416： VB中文本框中内容写入数组中 - ？
鞠仁藿香： Private Sub Form_Click() ReDim a(Len(Text1.Text)) As Long Dim b%, c% b = 0 For i = 1 To Len(Text1.Text) b = b + 1 If i = Len(Text1.Text) Then a(c + 1) = Mid(Text1.Text, i - b + 1, b) Print a(c + 1) End If If Mid(Text1.Text, i, 1) = ＂,＂ Then c = c + 1 ...
加查县18362397416： 请问使用vb.net,如何将textbox中输入的内容赋值给数组?? - ？
鞠仁藿香： ' 文本框里面输入的数据用逗号隔开:dim a() as string a=Split(TextBox1.Text, ＂,＂)
加查县18362397416： vb.net 把TXT文件中的文本以数组的形式读入文本框 - ？
鞠仁藿香： 看你的意思是以行分隔,只须3行代码就可以了 Dim str_All As String = My.Computer.FileSystem.ReadAllText(＂g:\vb.net\student.txt＂) Dim str_Sp() As String = str_All.Split(vbCrLf) '以行分隔 TextBox1.Text = str_All
