vb计算text中每一行的值,取最大最小,平均值另存在csv文档中
Private Sub Command1_Click() fp = FreeFile Open "jjd.csv" For Input As fp '自已指明jjd.scv所在的位置 Do While Not EOF(fp) Line Input #fp, stri a = Split(stri, ",") For i = LBound(a) To UBound(a) If maxd < Val(a(i)) Then maxd = Val(a(i)) Next i Loop Print "最大的数是" & maxd Close fpEnd Sub
你写CSV文件还用Excel?你直接将文本框的内容用“,"隔开就好了,比如用input打开文件,然后
print #1,Text1.Text & "," & Text2.Text & "," & Text3.Text就好了。生成的文件你用excel软件打开就可以看到了。
以上数据保存在txt文件中,以每行的形式存在!且格式固定,用空格分割
那么可以不用split函数,直接用instr 和mid
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
a1 = Mid(s, InStr(s, " ") + 1, InStrRev(s, " ") - InStr(s, " ") - 1)
a2 = Mid(s, InStrRev(s, " ") + 1)
If a1 < a2 Then
最小值 = a1: 最大值 = a2
Else
最小值 = a2: 最大值 = a1
End If
平均值 = (a1 + a2) / 2
Print 最小值, 最大值, 平均值
Loop
Close #1
至于保存到CSV 就简单了
Dim a(1 To 10)Private Sub Command1_Click() Randomize Picture1.Print "产生的随机数为:" For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) Picture1.Print a(i); Next i Picture1.PrintEnd SubPrivate Sub Command2_Click() Dim max, min, pv max = a(1) min = a(1) pv = 0.1 * a(1) For i = 2 To 10 If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) pv = pv + 0.1 * a(i) Next i Picture1.Print "最大数为:"; max Picture1.Print "最小数为:"; min Picture1.Print "平均数为:"; pv End Sub
VB计算textbox里的字数
Private Sub Command1_Click()Dim i, j, s1 As String, s2 As String, num As Byte Dim a() As String, tj As String a = Split(Text1.Text, vbNewLine)For i = 0 To UBound(a)s1 = Trim(a(i))num = 0 If s1 <> "" And InStr(s1, " ") = 0 Then For j = i + 1 ...
vb中 在text 中怎么输出多行数值比如:a=23,b=30,c=46,d=34 a=24,b=...
第一,将Text控件的Multiline属性设为TRUE。第二。使text1.text="a=23" & vbcrlf & " b=30" & vbcrlf ^^^ 式中VBCRLF 就是VB语言中的回车换行的意思
你能不能帮我解释哈下面这段VB计算器代码具体每句是什么意思吗?谢谢...
valu = Val(b) * (Val(Text1.Text)) '前数 乘 后数 Case "+"valu = Val(b) + (Val(Text1.Text))Case "-"valu = Val(b) - (Val(Text1.Text))End Select End If Text1.Text = Str$(valu) '显示计算结果 c = -1 'c 回复状态 a = "" '清空 a 以便下次运算...
在文本框text1,text2中输入两个正整数,单击"计算"命令按钮,求这两个...
在VB中在计算两个正整数的最大公约数,效率最高的是采用“辗转相除法”。以除数和余数反复做除法运算,当余数为 0 时,取当前算式除数为最大公约数。Dim a As Long, b As Long, r As Long a = InputBox("a=")b = InputBox("b=")Print a; "和"; b; " 的最大公因数是:";Do r...
FINDFINDB函数
FIND始终返回从within_text的起始位置计算的字符编号,如果start_num大于1,则会对跳过的字符计数。示例复制下表中的示例数据,然后将其粘贴进新的Excel工作表的A1单元格中。要使公式显示结果,请选中它们,按F2,然后按Enter。如果需要,可调整列宽以查看所有数据。数据 Miriam McGovern 公式 说明 ...
如何用VB把text1和text2的每一行作为字串符相加分别输出到text3
Private Sub Command1_Click()Dim a() As String, b() As String, i, j As Integer Text3 = ""a = Split(Text1, vbCrLf)b = Split(Text2, vbCrLf)For i = 0 To UBound(a)For j = 0 To UBound(b)If a(i) <> "" And b(j) <> "" Then Text3 = Text3 & a(i) & ...
excel中text()函数请教?
B 是一种内置格式呗 要么 加个 !这种正常应该 用Lookup函数 =lookup(A1,{0,3000,5000},{"C","B","A"})
用VB设计一个计算器程序,急
简单的加减乘除。界面:窗体包含三个文本框,Text1与Text2用于输入计算数字,Text3用于显示计算结果。四个按钮(加减乘除)。一个标签Label4,用于显示计算方法。代码:Private Sub Command1_Click()a = Text1.Text b = Text2.Text result = a + b Text3.Text = result Label4.Caption = "加法...
text函数的用法
TEXT。将数值转换为按指定数字格式表示的文本。语法 TEXT(value,format_text)Value 为数值、计算结果为数字值的公式,或对包含数字值的单元格的引用。Format_text 为“单元格格式”对话框中“数字”选项卡上“分类”框中的文本形式的数字格式。Text函数表示将数值转化为自己想要的文本格式。text函数的语法...
VB 把文本型公式可以计算
以下是源代码:Option ExplicitDim zifu(65 To 90) As Long '用来存储计算结果,都用大写字母的ASCII码,如果需要存储的话Dim weizhi As Long '用来记录当前公式在文本中的位置Dim s As String '用来存储文本,可以读取文件,本例为了调试方便,用的text1的内容Private Declare Function EbExecuteLine ...
侯贫通心: fr 3 45fr 656 345fr 34 674fr 45 63 以上数据保存在txt文件中,以每行的形式存在!且格式固定,用空格分割 那么可以不用split函数,直接用instr 和mid Open "c:\1.txt" For Input As #1 Do While Not EOF(1) Line Input #1, s a1 = Mid(s, InStr(s, " "...
宁波市13012423794: VB 使显示每行的最大值的位置(下面的程序可以把最大值找出) - ?
侯贫通心: 添加一个n作为标记 Dim n% 下面那个寻找最大数的循环改成这样:For i = 1 To 4 max = a(i, 1) For j = 2 To 3 If max max = a(i, j) n= j '以n标记出最大数所处的列 End if Next j Picture1.Print "第" & i & "行最大的是:"; max Picture1.Print "其所处位置是第" & n & "列" Next i
宁波市13012423794: 急!vb中怎么取一些text中的最小值 - ?
侯贫通心: dim i as integer dim min as integer max=text1(0) for i=1 to 26 if text1(i) min=text1(i) end if next i 一楼的是最大值吧
宁波市13012423794: vb如何选取textbox中的数据最大值和最小值 - ?
侯贫通心: 本例子使用vba实现 关键函数:Application.Max([a1:a4]) 可以取得当前excel文件中A列前4行中的最大值 Application.Max([b1:b4]) 可以取得当前excel文件中B列前4行中的最小值 代码 Private Sub CommandButton1_Click() Dim txtPath1 As String, ...
宁波市13012423794: VB怎样取出文本框每一行的值 - ?
侯贫通心: 每一行?将文本以VBCRLF为标记打散为数组即可.dim x as string x=text1.text dim y() as string y=split(x,vbcrlf) 此时y就是包含了每行内容的数组了.接下来就可以按行来读取内容了.
宁波市13012423794: 计算机VB程序,关于求最大最小值的.... - ?
侯贫通心: 调用random函数进行随机 把数值存在数组内 用一个循环控制第一个元素 内嵌入第二个循环控制第二个元素 进行异或排序 取出最大值和最小值分别付给text中 平均值用所有元素相加之和除以100即可
宁波市13012423794: 请问:VB二维数组中求每一行的最大值怎么求?那个...能不能给出具体的程序编写代码? - ?
侯贫通心: Private Sub Form_Click()Dim i As Integer, j As IntegerDim arr(4, 4) As Integer, arra(4) As IntegerRandomizeFor i = 0 To 4For j = 0 To 4 arr(i, j) = Int(Rnd * 100) Print arr(i, j);Next jPrintNext iFor i = 0 To 4arra(i) = arr(i, 0)For j = 0 To 4 If arra(i) < arr(i, j) ...
宁波市13012423794: vb 小数中的最大数 大数中的最小数?
侯贫通心: 图片是下面这张吧...坐起来费时间呀 你应该会VB吧 简单说下吧 dim a(5,5) 还要把相关的变量都Dim下...可能会用到另一个数组b 然后有那个循环i=0 to 5,j=0 to 5 rnd出每个数 然后再用If语句和循环嵌套比较一下选出最大值,最小值 比较过程与下...
宁波市13012423794: VB编写一个过程,计算二维数组行、列的最大值和最小值 行列位置 - ?
侯贫通心: Private Sub Form_Load()Dim arrayTest(1 To 10, 1 To 10) As IntegerDim rMax As Integer'------生成随机数------For i = 1 To 10For j = 1 To 10arrayTest(i, j) = CInt(Rnd(Now()) * 100)NextNext For i = 1 To 10For j = 1 To 10If arrayTest(i, j) > ...
宁波市13012423794: 设计程序VB随机产生20个10到100之间(包括10和100)的整数,按每行五个输出,同时找出其中的最大值并输出 - ?
侯贫通心: '设计程序VB随机产生20个10到100之间(包括10和100)的整数,按每行五个输出,同时找出其中的最大值并输出 Private Sub Command1_Click() On Error Resume Next Dim a(5) As Integer Randomize'Int((upperbound - lowerbound + 1) * Rnd + ...