这段vb代码哪里有错误
我刚回答了一位网友的问题，和你的问题倒是有几分相似，你可以借鉴一下我的代码：
Private Type tPoint x As Single y As SingleEnd TypePrivate Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = 360End SubPrivate Sub fun_Paint() Const PI As Double = 3.141592653 Dim intR As Integer Dim intO As tPoint Dim intK As Integer Dim pp(4) As tPoint Dim i As Integer Me.Cls Me.AutoRedraw = True intR = Int(Val(Text1.Text)) intO.x = Int(Val(Text2.Text)) intO.y = Int(Val(Text3.Text)) intK = Me.HScroll1.Value Me.DrawWidth = 10 Me.PSet (intO.x, intO.y), vbRed For i = 0 To 4 pp(i).x = intO.x + intR * Sin(((intK + 72 * i) / 360) * (2 * PI)) pp(i).y = intO.y + intR * Cos(((intK + 72 * i) / 360) * (2 * PI)) Me.DrawWidth = 6 Me.PSet (pp(i).x, pp(i).y), vbBlue Next i Me.DrawWidth = 3 For i = 0 To 4 Me.Line (pp(i).x, pp(i).y)-(pp((i + 2) Mod 5).x, pp((i + 2) Mod 5).y), vbBlack NextEnd Sub Private Sub Form_Click() fun_PaintEnd Sub Private Sub HScroll1_Change() fun_PaintEnd Sub Private Sub HScroll1_Scroll() fun_PaintEnd Sub
2.你这是在什么时间中的？
3.你可不可以发全部的代码上来啊
Option Explicit
就表示，不允许变量隐式声明，因此你在使用任何变量前需要进行声明。
你需要把
Dim ret As Long
改为：
Dim Ret As Long, WMI As Object, Obj As Object
或者可以去掉 Option Explicit。但我建议不要去掉，如果使用 Option Explicit 可以避免在键入已有变量时出错，在变量的有效范围不是很清楚的代码中使用该语句可以避免混乱。
这段VB程序有什么问题?请帮忙看下
1、<Script language="VbScript" for "b" event="OnClick"> for 后面少了个 等号: for = "b"2、Dim ShenGao = "form1.a.value"Dim 变量后不可以直接跟值，可以分行或加冒号隔开，如 Dim a a = 值 或 Dim a:a = 值 此外 ShenGao获取的变量是文本框a的属性，而非字符，所以将"form1....
VB的代码有什么错误,应该怎么改。
最简单的是语法错误，程序根本不能运行。应该检查拼写语法的问题，如拼写错误，变量未定义等，最好将VB设置为要求强制先声明变量才能使用，否则会因为变量名拼写错误，出现一些莫名其妙的问题。其次是运行错误，在运行过程中提示错误。应该检查相关数据是否正确，是否有被零整除等错误，对象不存在，窗体未建立...
vb6.0这段代码哪里错了
错误代码 (10047)Address family not supported by protocol family.使用的地址与被请求的协议不兼容。所有的套接字在创建时都与一个地址族（如IP协议对应的AF_INET）和一个通用的协议类型（如SOCK_STREAM）联系起来。如果在socket()调用中明确地要求一个不正确的协议，或在调用sendto()等函数时使用了...
麻烦高手纠正一下我这段vb代码哪里写错了,编译时一直提示 缺少字符串常 ...
你用了好多中文全角符号，所以大量出错，代码修改如下：Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Dim i As Integer Private Sub Command1_Click()Me.WindowState = 1 Timer1.Enabled = True End...
VB简单的代码出现实时错误'13',请教原因。
'两句错误'tile = "操作确认"'应该是'title = "操作确认"'a = MsgBox(msg$, title$)'应该是'a = MsgBox(msg$, , title$)Private Sub Form_Click()Dim msg As String, title As StringDim a As Integermsg = "请确认操作正确否"title = "操作确认"a = MsgBox(msg$, , title$)If ...
VB代码出现错误,提示为:运行时错误‘9’,下标越界,如下图。请大神指教...
这个和你的数组有关，比如你取得的数组是空的，但你要取数组的第一个的数据时，就会出错，下标越界了，因为总数是0，你要取1位置的数据，当然就超出下标了。建议先判断有多少数组，再进行调用。
这段vb代码语句哪里错了?
p=2 prime = True '不是prime = false
VB中一般会出现哪些错误 应该怎么处理 急急急!! 会考马上要到了 就在1...
语法错误是指语句的拼写、各式上的错误。当出现明显的语法错误时，vb会在写完这行代码的时候直接报错，并提示修正。有时个别语法错误因为部分屏蔽设置不会报错，但是在编译时一般都会报错。例如：for next语句：a=0 for i=0 to 100 step 1 a=a+i next i 如果写错了里面的个别字，如果第一行的...
一段VB代码,一直提示“VB中连接无法用于执行此操作,在此上下文中它可能...
出错误的应该是这行 rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic 当conn处于关闭状态时，执行上述语句就会报“VB中连接无法用于执行此操作，在此上下文中它可能已经被关闭”从你的代码来看，你这个conn尚未与你的数据库建立连接，这样你直接就想从中读取记录集时就肯定会出错了。
帮忙看下这段VB代码,错哪里了,谢谢
Function funSignSngTo4Byt(SingleData As Single, ByRef tBytes() As Byte) As Boolean '高位在前，低位在后 Dim i, d As Integer Dim PorN As Byte Dim ExpVal, temp As Long Dim FraVal, t1 As Long Dim SingleFra, tempval As Single Dim gbytBinData(3) As Byte If SingleData =...
彩选乳宁： picture控件的picture属性设置错,那个属性是一个图片,而不是一个字符串,需要改为: Private Sub Command1_Click() Picture1.Picture = LoadPicture(Text1.Text) End Sub
开平市13761258161： 我这段VB代码哪里错了.请高手指教 - ？
彩选乳宁： 可能是数据库服务器连接方式引起,你尝试改变一下连接字符串:con.ConnectionString = (＂Provider=SQLOLEDB;User ID=＂ & Text2.Text & ＂;PWD=＂ & Text3.Text & ＂;Initial Catalog=＂ & Text4.Text & ＂;Data Source=＂ & Text1.Text)改为...
开平市13761258161： 请教大神,这段vb代码错哪了,提示下标越界. - ？
彩选乳宁： Private Sub Command1_Click() Text1 = ＂＂ Randomize For i = 1 To 10 Do a(i) = Int(900 * Rnd) + 100 Loop While a(i) Mod 10 = 0 Text1 = Text1 & a(i) & ＂ ＂ Next i End Sub
开平市13761258161： 这段vb代码的错误出在哪里? - ？
彩选乳宁： 修改第一段代码,也就是Command1_Click()过程if和end if 要对应还有,先判断输入是否有效,然后再设定背景色也就是Form1.BackColor = RGB(a, b, c)得放后面Private Sub Command1_Click()Dim a, b, c As Doublea = Val(Text1.Text)b = Val(...
开平市13761258161： 请问这段VB代码有什么出错的地方? - ？
彩选乳宁： 登陆的吧貌似没有错误,但是需要添加form2和form3两个窗体,另外 Else,,不是Eles,并且要换行写,如下:Private Sub Command1_Click()If Text1.Text = ＂ABC＂ And Text2.Text = ＂123456＂ ThenForm2.ShowElseForm3.ShowEnd IfEnd Sub或者不换行Private Sub Command1_Click()If Text1.Text = ＂ABC＂ And Text2.Text = ＂123456＂ ThenForm2.ShowElse: Form3.ShowEnd IfEnd Sub
开平市13761258161： 急!求问这段vb程序哪里错了?? - ？
彩选乳宁： Dim i%, j%, mark(1 To 10) As Integer, s As Integer, fs%, mmin%, mmax% For j = 1 To 10 mark(j) = Int(Rnd * 10 + 1) 'mmin = mmax 错在这,每次循环mmin都被赋值为mmax If j = 1 Then mmax = mark(j) mmin = mmax End If If mmin > mark(j) Then mmin = mark(j) End If If mmax < mark(j) Then mmax = mark(j) End If Print mark(j) Next j
开平市13761258161： 请问,这段VB代码哪里有错? - ？
彩选乳宁： 第一行,文件打开方式是Output,可是后面,出现Input语句想要读文件,这是不可以的!
开平市13761258161： 以下这段VB程序哪里有错误?？
彩选乳宁： Private Sub Command1_Click() Dim a#, b# Dim i As Integer Dim c As Integer For i = 1 To Len(Text1) a = Val(Mid(Text1, i, 1)) b = Val(Mid(Text1, (Len(Text1) + 1) - i, 1)) If a <> b Then Print ＂不是回文数＂ Exit Sub '' End IfNext i Print Text1 & ＂ 是回文数＂ End Sub
开平市13761258161： vb高手们看看这段代码错在哪? - ？
彩选乳宁： 我看了下你的程序,语句上除了一个地方有问题外其他都没有问题 最后的End If是多出来的,要删除 我测试程序运行的结果,跟我看你的代码所理解的东西一样,没有任何毛病 不知道你所谓的毫无反应是什么意思,问题应该出在你测试的项目列表上. 我测试的项目为＂63 01 02 03 56 12 75＂,＂63 26 04 05 06 12 75＂,都可以被删除 你的代码只能在项目中＂任意＂＂连续＂＂3个数＂与数组中任意连续3个数相同时才删除.注意这个连续不包括第6,7,1之间的连续 比如说02 03 49 39 23 25 01,其中第7,1,2有一个连续,但是你的程序无法判断并删除.除了这个不行,其他的都没问题.
开平市13761258161： 我是个VB初学者.请大家帮我看下这个代码哪里错了? - ？
彩选乳宁： 把name.text1改成name.text把password.text2改成password.text而且,不需要定义X的,直接用msgbox ＂＂也可以弹出对话框
