[VB基础VB字符串操作方法]1.方法：SubStr() 中文化取子字串，相对Mid()Strlen() 中文化字串长度，相对Len()StrLeft() 中文化取左字串，相对Left()StrRight() 中文化取右字串，相对Right()isChinese() 检...+阅读
那是因为楼主你粗心所至。
你加了Picture1后，虽然你的for n循环内部用了Picture1.printa(m, n)； ，可是下面却只写了一个print，这个也应该是Picture1.print吧？
Option Base 1
Private Sub Command1_Click()
Dim a(5, 5) As Integer, i As Integer, j As Integer, m As Integer, n As Integer
For i = 1 To 5
For j = 1 To 5
If j a(i, j) = 13 * i + 7 * j
Else
a(i, j) = Int((a(i, j - 2) + a(i, j - 1)) / 2)
End If
Next j
Next i
For m = 1 To 5
For n = 1 To 5
Picture1.Print a(m, n);
Next n
Picture1.Print
Next m
End Sub
本文地址：https://www.39baobao.com/show/39_297929.html
以上内容来自互联网，请自行判断内容的正确性。若本站收录的信息无意侵犯了贵司版权，请联系我们，我们会及时处理和回复，谢谢.
以下为关联文档：
vb入门游戏实例'添加一个名为label1的标签控件，并将其index设为0；再添加一个名为command1的按钮控件 Dim a(1 To 9) As Boolean Dim win As Boolean, begin As Boolean, haveload As Boolean...
新手怎样入门vb有志气，我上初中那会儿还不知道啥是电脑呢，只知道那是高科技，只会玩小霸王，哈哈…… 我说说我学VB那会儿的学习经验吧，希望对你有点帮助。 对于电脑语言爱好者，刚开始学习时，我个人...
基础编程VB语言1、VB在编程语言中属于十分好学的，BASIC语言在设计之初就是为初学者准备的 2、26个字母和打字肯定得会啊~~如果会英语的话，学起来会更简单，但是不会也无妨；需要一定的电脑基础，以...
vb随机点名1新建工程 一个Text1文本框 一个Command1按钮 一个Timer1定时器 源代码如下：（VB6.0测试正常） Option Explicit Dim bRun As Boolean Dim strName(1 To 5) As String Dim iNum As...
初学VB请教VB60连接SQL数据库具体步骤Dim conn As New ADODB.Connection Dim rs(10) As New ADODB.Recordset db = App.Path & ＂\db\data.mdb＂ conn.Open ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Pa...
09年VB上机题目懂VB的朋友请帮忙反正现在有空。。。就帮楼上注释下吧 Private Sub Command1_Click() Dim i As Integer, a(1 to 10) As Integer '声明一个整型变量i和一个整型数组a，范围是a(1)-a(10)Open Ap...
VB高手赐教：如何把电子表格中的数据导入VB中读取A2单元格的代码：（数据在变量R中，工程前需引用MICROSOFT EXCEL OBJECT LIBRARY） Private excelApp As excel.Application Private Sub Command2_Click() Set excelApp = New...
vb上如何做这三道题求解。谢谢真心不想学vb1.dim r as single dim l as single dim s as single r=val(text1.text) l=2*pi*r s=pi*r*r 2.dim gewei as Integer dim shiwei as Integer dim baiwei as Integer dim num...
怎样用VB自动使excel生成图表并用VB来显示这个图表Sub 图表制作（） ' ' Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets(＂Sheet1＂).Range(＂A1:H18＂), PlotBy _ :=xlColumns Activ...
