因为你的if没有endif,在next i前加一个endif即可。
VB对语法的检查是按堆栈方式进行的。如果将你的程序按正确缩进,应该是这样:
dim a%,……
min=100
for i=1 to 20
a=rnd90+10
print a
if a<min then
min=a:j=i
next i
从这里就可以看出来为什么next i 没有for了。
Sub 随机缩进()
Dim myParagraph As Paragraph
Randomize
For Each myParagraph In ThisDocumentParagraphs
myParagraphCharacterUnitFirstLineIndent = Int(Rnd() 10) '在每个段首随机缩进0~9个字符
Next
End Sub
>
这个要用到的是层叠样式表,也就是CSS,和VB无关,比如: <div style="text-indent:24px">欢迎参加第二期问问达人计划活动,回答问题有奖励。活动详情</div> 以上就可以使所显示的文字首行缩进24个像素
RichTextBox1SelHangingIndent = Val(TextFText) 首行缩进
RichTextBox1SelIndent = Val(TextLText) 左
RichTextBox1SelRightIndent = Val(TextRText) 右
用该控件比较方便 用textbox得自己写函数过程
问题1:——把三个窗口的startupposition属性都设为2。或在form_load中把三个窗口的left设为相等的值,top也设为相等的值。
问题2:——在“格式”里有“对齐”,但只能在设计阶段,并且行距两个以上的控件时才能使用。
以上就是关于vb中的for 和 next 问题全部的内容,包括:vb中的for 和 next 问题、word宏如何编写随机缩进的VB代码、vb 代码自动缩进工具等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)