nextbox追逐1
@父安4447：用VB编写 “ 从键盘输入N个数据,放入数组中,然后求其平均值”怎么写啊 -
鲜江13053053423…… dim count as String dim sum as String dim a[10] for i=1 to 10 a[i]=intputbox ＂输入a[i] 的值＂ next i sum =0 for i=1 to 10 sum =sum +a[i] next i count=sum/10 你放到一个事件中执行应该可以!!
@父安4447：在窗口上添加一个命令按钮,然后编写如下事件过程 Private Sub command1 Click -
鲜江13053053423…… 你这个问题什么意思 MesgBox这个什么函数 我怎么没见过 是MsgBox函数吧 还有 你书写的时候 怎么可以写成1to4 这样系统会报错的 应该有空格呀 你最后输出地结果应该是15 For i=1 to 4 x=4 For j= 1To 3 x=3 For k=1 to 2 x=x+6 Next k Next j Next i MsgBox x '这里输出结果应该是15 End Sub 其实你这个写的 循环i 和循环j没有起到作用
@父安4447：利用EXCEL VBA如何将一列数据中不重复的数据读取到数组中 -
鲜江13053053423…… 假设BAX,BOX,DHL,FED,YUAN,BAX,BOX,BOX,FED,FED数据放到表格sheet1中的A1到A9中.运行如下代码后,将不重复的BAX,BOX,DHL,FED,YUAN放到数组str_arr中,不重复的个数放到count中.代码已经调试ok了.Sub del_repeat() Dim i...
@父安4447：怎么把两个EXCL表格合并成一个 -
鲜江13053053423…… 我们需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel.用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去.进去之后就看到了宏计算界面.然后我们把下面这些宏计算的代码...
@父安4447：请教ASP高手一段读数据的代码!!!! -
鲜江13053053423…… <%set rs=Server.CreateObject(＂ADODB.Recordset＂)sql=＂select * from area ＂rs.open sql,conn,1,1for i= 1 to rs.recordcountNid=Trim(Request.QueryString(＂id＂)); '接收地址的ID%><a<% if Nid=rs(＂id＂)then Response.Write(＂class='box'...
@父安4447：如何将n*m的矩阵改成一个m*n的矩阵 -
鲜江13053053423…… 动态数组不能这样定义的 Private Sub Form_click() Dim i As Integer, j As Integer, m%, n% Dim a() Dim b() m = InputBox(＂请输入m的值＂) n = InputBox(＂请输入n的值＂) ReDim a(m, n) For i = 1 To n For j = 1 To m a(i, j) = InputBox(＂请输入数组a元素的值＂) Next j Next i For i = 1 To n For j = 1 To m b(i, j) = a(i, j) Next j Next i End Sub 后面的循环也不对
@父安4447：vb.net清空一组控件的值 -
鲜江13053053423…… For i As Integer = 0 To GroupBox1.Controls.Count - 1 If GroupBox1.Controls(i).GetType = GetType(TextBox) Then GroupBox1.Controls(i).Text = ＂＂ End If Next
@父安4447：list box要怎样用丫?
鲜江13053053423…… Function Hex2Bin$(HexValue$) Const BinTbl = ＂0000000100100011010001010110011110001001101010111100110111101111＂ Dim X, Work$ Work$ = ＂＂ For X = 1 To Len(HexValue$) Work$ = Work$ + Mid$(BinTbl, Val(＂&h＂ + Mid$(...
@父安4447：NEXT 的香烟是哪里生产的,中文名字的意思是什么 -
鲜江13053053423…… NEXT这牌子在亚洲不是那麽有名,不过在东欧那边却很盛行 是菲利普莫里斯公司的. 菲利普莫里斯旗下的高价烟「万宝路」及「维珍」 NEXT主攻低价香烟市场,分别有「Next K Box」、「Next LTS Box」和「Next LTS Men K Box」3款 有香港版、台湾版.马来西亚版等等
@父安4447：VB编程picturesbox!
鲜江13053053423…… Option ExplicitPrivate Sub Command1_Click()Dim i As LongDim j As LongDim K As LongDim Shu As LongDim shuixianhua As Long For i = 1 To 9 For j = 0 To 9 For K = 0 To 9 Shu = i * 100 + j * 10 + K * 1 '生成三位数 shuixianhua = i * i * i + j * j * ...
鲜江13053053423…… dim count as String dim sum as String dim a[10] for i=1 to 10 a[i]=intputbox ＂输入a[i] 的值＂ next i sum =0 for i=1 to 10 sum =sum +a[i] next i count=sum/10 你放到一个事件中执行应该可以!!
@父安4447：在窗口上添加一个命令按钮,然后编写如下事件过程 Private Sub command1 Click -
鲜江13053053423…… 你这个问题什么意思 MesgBox这个什么函数 我怎么没见过 是MsgBox函数吧 还有 你书写的时候 怎么可以写成1to4 这样系统会报错的 应该有空格呀 你最后输出地结果应该是15 For i=1 to 4 x=4 For j= 1To 3 x=3 For k=1 to 2 x=x+6 Next k Next j Next i MsgBox x '这里输出结果应该是15 End Sub 其实你这个写的 循环i 和循环j没有起到作用
@父安4447：利用EXCEL VBA如何将一列数据中不重复的数据读取到数组中 -
鲜江13053053423…… 假设BAX,BOX,DHL,FED,YUAN,BAX,BOX,BOX,FED,FED数据放到表格sheet1中的A1到A9中.运行如下代码后,将不重复的BAX,BOX,DHL,FED,YUAN放到数组str_arr中,不重复的个数放到count中.代码已经调试ok了.Sub del_repeat() Dim i...
@父安4447：怎么把两个EXCL表格合并成一个 -
鲜江13053053423…… 我们需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel.用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去.进去之后就看到了宏计算界面.然后我们把下面这些宏计算的代码...
@父安4447：请教ASP高手一段读数据的代码!!!! -
鲜江13053053423…… <%set rs=Server.CreateObject(＂ADODB.Recordset＂)sql=＂select * from area ＂rs.open sql,conn,1,1for i= 1 to rs.recordcountNid=Trim(Request.QueryString(＂id＂)); '接收地址的ID%><a<% if Nid=rs(＂id＂)then Response.Write(＂class='box'...
@父安4447：如何将n*m的矩阵改成一个m*n的矩阵 -
鲜江13053053423…… 动态数组不能这样定义的 Private Sub Form_click() Dim i As Integer, j As Integer, m%, n% Dim a() Dim b() m = InputBox(＂请输入m的值＂) n = InputBox(＂请输入n的值＂) ReDim a(m, n) For i = 1 To n For j = 1 To m a(i, j) = InputBox(＂请输入数组a元素的值＂) Next j Next i For i = 1 To n For j = 1 To m b(i, j) = a(i, j) Next j Next i End Sub 后面的循环也不对
@父安4447：vb.net清空一组控件的值 -
鲜江13053053423…… For i As Integer = 0 To GroupBox1.Controls.Count - 1 If GroupBox1.Controls(i).GetType = GetType(TextBox) Then GroupBox1.Controls(i).Text = ＂＂ End If Next
@父安4447：list box要怎样用丫?
鲜江13053053423…… Function Hex2Bin$(HexValue$) Const BinTbl = ＂0000000100100011010001010110011110001001101010111100110111101111＂ Dim X, Work$ Work$ = ＂＂ For X = 1 To Len(HexValue$) Work$ = Work$ + Mid$(BinTbl, Val(＂&h＂ + Mid$(...
@父安4447：NEXT 的香烟是哪里生产的,中文名字的意思是什么 -
鲜江13053053423…… NEXT这牌子在亚洲不是那麽有名,不过在东欧那边却很盛行 是菲利普莫里斯公司的. 菲利普莫里斯旗下的高价烟「万宝路」及「维珍」 NEXT主攻低价香烟市场,分别有「Next K Box」、「Next LTS Box」和「Next LTS Men K Box」3款 有香港版、台湾版.马来西亚版等等
@父安4447：VB编程picturesbox!
鲜江13053053423…… Option ExplicitPrivate Sub Command1_Click()Dim i As LongDim j As LongDim K As LongDim Shu As LongDim shuixianhua As Long For i = 1 To 9 For j = 0 To 9 For K = 0 To 9 Shu = i * 100 + j * 10 + K * 1 '生成三位数 shuixianhua = i * i * i + j * j * ...
