VB中的For语句
private Sub Form_Click() ’当单击时触发此过程Dim i,j as Integer ’声明默认类量i体型）和长整型变量jprint ’在窗体上空白的一行For i=1 To 9 ’设置循环 i 每次循环从1到9 默认步长1（每次循环加1） ’完整： for i = 1 to 9 step 1For j=1 To i ’设置循环 j 每次循环从1到i的值 默认步长1（每次循环加1）完整： for i = 1 to i step 1print left((str(j*j) & space(5),4);’此语句错误应为：’ Print Left(Str(j * j) & Space(5), 4)’ print 在窗体中打印’ left（str,n） 取str左边的n个字符’ str（n） 将n这个数值型转换为字符串型’ space（n） 返回n个空格’ 翻译出来就是：’ 在窗体中打印出 （j×j 的结果 加上5个空格）的左边4个字符Next j ’执行到这里继续循环jprint ’打印一行空白行next i ’执行到这里继续循环iEnd Sub ’结束过程
Excel VB中怎样写单元格改变语句
可以实现你说的功能1.Workbook_Open读取Range(a1).Value到变量a1Value 2.任何cell出发的SheetChange事件中加入处理判断Range(a1).Value是否变化，变化就执行过程a1valuechangePublic a1ValuePrivate Sub Workbook_Open() a1Value = Range(a1).ValueEnd SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If a1Value <> Range(a1).Value Then a1valuechange a1Value = Range(a1).Value '=====以下是其他需要处理的语句End SubSub a1valuechange() MsgBox A1 value is changed!End Sub
VB怎么写矩阵 需要一个1000*1000的矩阵 每一个格都是随机数 最后要保存到一个TEXT里面
一、InputBox函数1、作用显示一个输入框，并提示用户在文本框中输入文本、数字或选中某个单元格区域，当按下确定按钮后返回包含文本框内容的字符串2、语法InputBox(Prompt[,Title][,Default][,Xpos][,Ypos][,Helpfile,Context])参数说明：(1)Prompt，必需的参数，作为输入框中提示信息出现的字符串，其最大长度约为1024个字符，由所使用字符的宽度决定。
如果Prompt包含多个行，则可在各行之间用回车符(Chr(13))、换行符(Chr(10))或回车换行符的组合(Chr(13)&Chr(10))来分隔。
(2)Title，可选的参数，作为输入框标题栏中的字符串。
若省略该参数，则在标题栏中显示应用程序名称。
(3)Default，可选的参数，作为输入框中默认的字符串，在没有其它输入时作为缺省值。
若省略该参数，则文本框为空。
(4)Xpos，可选的参数，为数值，成对出现，指定输入框的左边与屏幕左边的水平距离。
若省略该参数，则输入框在水平方向居中。
(5)Ypos，可选的参数，为数值，成对出现，指定输入框的上边与屏幕上边的距离。
若省略该参数，则输入框在屏幕垂直方向距下边约三分之一的位置。
(6)Helpfile，可选的参数，为字符串，表示帮助文件，用该文件为输入框提供上下文相关的帮助。
若有Helpfile，则必须有Context。
(7)Context，可选的参数，为数值，帮助文件中某帮助主题的上下文编号。
若有Context，则必须有Helpfile。
3、相关说明(1)如果同时提供了Helpfile与Context参数，可以按F1键来查看与Context相应的帮助
如何通过VB合并Excel单元格以及设置Excel行高
首先在VB中引用microsoft excel object library 假设c盘根目录下有个1.xls的文件 …………问题补充：你的要求很简单，一行指令恐怕不行，最少要三行代码如下：Private Sub Form_Load()Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetDim i As IntegerSet xlApp = CreateObject(Excel.Application)Set xlBook = xlApp.Workbooks.Open(C:\\\\1.xls)Set xlSheet = xlBook.Worksheets(1) '引用第1张工作表For i = 3 To 100 Step 3 '想到哪行就把100改成几xlSheet.Range(Cells(i, 1), Cells(i, 2)).Merge '合并a1:b2单元格NextxlSheet.Rows(10).RowHeight = 100 '把第10行高度设为100xlBook.SavexlApp.Application.QuitSet xlApp = Nothing '表忘释放引用End Sub运行一下，看看满足要求否。
