请VB大神解答为什么图片不显示，问题在哪里？
那手动能运行VB吗。
不能说明VB有问题嘛。下个精简牌。
手动运行。再文件，打开，指定的源代码。
这个很简单的啊……
第1题：Private Sub Form_Click() Dim S As Long, V As Long Dim i As Long S = 0 Me.Cls Randomize For i = 1 To 20 V = 10 + 89 * Rnd() If (V Mod 3 = 0) Then Me.Print V S = S + V End If Next Me.Print "能被3整除的数之和为：" & SEnd Sub '第2题：Private Sub Form_Click() Dim Va As Long, Vb As Long Dim i As Long, T As Long Me.Cls Randomize Va = 0: Vb = 0 Me.Print "该组随机数为：" For i = 1 To 10 T = 20 + 980 * Rnd() Me.Print T & " "; If (T And 1) Then Va = Va + T Else Vb = Vb + T End If Next Me.Print Me.Print "奇数之和＝" & Va Me.Print "偶数之和＝" & VbEnd Sub
改为
For j = n2 To h - n2 - 1
建议你在代码的最开头加入一行
Option Explicit
然后养成每个变量都要声明后再使用的习惯，那么类似上述的由于手误造成的低级错误就可以完全杜绝（出现这种错误时VB会自动提醒的）。
求vb大神指教 麻烦详细一点
答案是B Val：将字符串转化为数，正数无符号，负数带符号 Val用法：Val(n) n是一字符串，必须是数型的不然会出错.Str()的作用是将数字型变量或常量改变成字符型变量或常量，举例如下：对于常量：str(35)=" 35 ",str(-5.5)="-5.5 ",以此类推。(注意字符串" 35"的前面有一个空格。对于...
求vb注释,不懂啊,大神求救
这个没啥好注释的；用于鼠标在窗体移动时根据鼠标位置改变几条线的起始点，结果是形成了一个中空的箭头 主要是移动后直线起始点位置的算法，这个数学也得好
关于VB的题目,根本看不懂啊,有大神吗??请指教。还有,答案是有颜色的那个...
解释是：call test(a,b+3,(c)):a是按传址方式进来的，所以它将改变原值。a=a+1=2,b+3是作为一个完整的变量传址进来的，但b不是，所以b不会改变原值。但b+3=2+3+1=6.c是传值进来的，所以c 原值不会改变。这样最后的结果就是：call后;a=2,b+3=2+3+1=6,(c)=3+1=4 main:...
vb关于自定义坐标的问题,求大神们来解答一下。
所谓自定义坐标，就是由自己来设定坐标的原点、坐标轴的方向、坐标轴的单位等。VB的默认坐标系统是以窗体的左上角为坐标原点、x轴向右、y轴向下、单位为缇。如果要使用数学中常用的四象限的坐标系统则是以窗体中心为原点，x轴向右、y轴向上，单位最好为像素。Form1.Scale (0, 500) - (500, 0)...
求VB大神帮忙解决,这段有没有问题,为什么我上面提示对象变量或WITH快变...
一、查看是否引用Microsoft excel 11.0 object labrary 和microsoft activex data objects 2.8 labrary 如果未引用以上库，通过工程菜单引用以上两个库 二、是否声明xlApp、xlSheet、xlBook、rsAdo、cnAdo等变量。如未声明，需先声明，例如：Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook...
VB求大神 如图,双重for循环为什么出错,怎么改
需要将判断是否为素数的布尔型赋值，放在第一层循环体内。原因是，如果不放在循环体内，当遇到非素数时，程序会将sushu的值赋值为false，这样的话，在循环体内以后无论是否为素数，sushu的值会一直是false，就不会执行后续的累加过程。所以，程序在i>=4时，sushu的值一直为false。因此累加的过程，实际上...
VB代码出现错误,提示为:运行时错误‘9’,下标越界,如下图。请大神指教...
这个和你的数组有关，比如你取得的数组是空的，但你要取数组的第一个的数据时，就会出错，下标越界了，因为总数是0，你要取1位置的数据，当然就超出下标了。建议先判断有多少数组，再进行调用。
(VB6.0)请教大神,为什么创建不了文件夹?
你这个nfso有没有实例化呢？从提供的代码来看是没有，而且类名也搞错了，正确的应该是：Dim nfso As New Scripting.FileSystemObject 要注意必须在工程中引用Scripting Runtime才行。或者可以在代码中这样来直接调用（无需事先引用）：Set nfso = CreateObject("Scripting.FileSystemObject")建议使用VB本身...
VB问题,求大神解释,详细一点!
K = 0 就不用说了吧 我们先看里面：For i=1 to 3 k = i +1 next i 一次一次的分析：第一次循环：i=1 ，则 K=1+1 =2 第二次循环：i=2 ，则 K=2+1 =3 第三次循环：i=3 ，则 K=3+1 =4 则循环后K=4 再看下面一段：for i=1 to 7 k=k+1 next i 翻译过来就是K...
vb总是下标越界,请大神指教
因为你的数组没有初始化，就像在C#和JAVA里一样，必须遵守一个协议，数组必须初始化，在其他语言里直接定义；int 数组名[数组大小]VB是这么做的：dim 数组名(底标 to 顶标) as 数据类型 你上面对cj()的定义就该改一下：dim cj(0 to 20) as single ...
厉尝补血： toolbar工具条右键属性里为每个按钮设置图像,就是在“图像”后面的框里填1或2等 再不会的话留下QQ我远程教你
翠屏区15341651339： vb toolbar控件与imagelist图片显示不了!! - ？
厉尝补血： 1、检查他们的visible属性是否为true,为false不可见、 2、重装VB
翠屏区15341651339： 用vb6.0写了触发图片的语句,但是文件一移动,图片就不显示了,这样的问题怎么解决?我原来的语句是 Image1.Picture = locadpicture(＂填入相应图地址.jpg＂)就是那个相应图的地址会随着文件夹的改变而改变 怎么办?？
厉尝补血：你不是废话?你把文件从C盘移到D盘,你的地址不会改变么?再去C盘还会有么?当然就没有了啦!程序只知道从哪儿找什么,你指定了地点,这个地点就不能随便动.
翠屏区15341651339： 为什么我的电脑练习VB时的*.bmp格式的图片不能显示 - ？
厉尝补血： 文件打开方式改一下,选择电脑上存在的图片浏览程序,如windows 图片传真查看器 XP自带的
翠屏区15341651339： 新手请教 Vb中我设置的切换背景图片在运行时,窗口背景显示不出图片,反而窗体全变蓝,急求答案,谢谢了 - ？
厉尝补血： VB6支持jpg,bmp,gif等图片格式 问题是你设计过程能否看到图片?你的图片是通过paintpicture等语句画上去的还是指定控件的picture属性?如果是采用“画”上去的,控件的AutuRedraw属性要设定为True
翠屏区15341651339： vb 绘图不显示,怎么回事?? - ？
厉尝补血： 可以显示啊,不能显示的图形是坐标超出范围了,你可以在PicDRAW上查看坐标! 把图片控件的AutoReDraw设为True可以显示 Form_Load()中的图形,以及以后来窗体刷新时图形不丢失.
翠屏区15341651339： 为什么我的电脑练习VB时的*.bmp格式的图片不能显示 - ？
厉尝补血： 文件打开方式改一下,选择电脑上存在的图片浏览程序,如w...
翠屏区15341651339： 在vb中要设置一幅图片为背景,但是图片不能全部显示,怎么才能解决这个问题??请各位高手帮帮!! - ？
厉尝补血： 可以先建一个图片框,设置成自动调整大小,把你要的图片加载进去,再用PaintPicture画上去,不过图片比例要一样,变形的话就不好看了,当然可以用paintpicture裁减下 Private Sub Form_Load() Form1.AutoRedraw = True Picture1.AutoSize = True Picture1.Picture = LoadPicture(图片路径) Form1.PaintPicture Picture1.Picture, 0, 0, Form1.ScaleWidth, Form1.ScaleHeight End Sub
翠屏区15341651339： vb中程序运行时图片如何自动显示 - ？
厉尝补血： 将图片装在picturebox控件里面,并且将form的autoredraw属性设为true 你问的问题不是很清楚,我理解你是在点击按钮后才加载图.
翠屏区15341651339： 急!!!vb 图像框为何不能加载图片 - ？
厉尝补血： Private Sub Form_Load() Image1.Picture = LoadPicture(CommonDialog1.FileName) 'FORM2中没有CommonDialog1控件 '要用全局变量传递路径 End Sub
