VB byref 类型不符

发布网友发布时间：2024-10-03 02:25

共2个回答

热心网友时间：2024-10-18 15:08

'主要原因是你没有定义变量类型，不过你的程序也有不少错误，我都给你改过来了
Option Base 1
Dim Arr1(20) As String
Dim Arr2(20) As String
Dim a(20) As Integer

Sub ReadData1()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i = 1 To 20
Line Input #1, Arr1(i)
Next i
Close #1
End Sub

Sub ReadData2()
Open App.Path & "\" & "datain2.txt" For Input As #1
For i = 1 To 20
Line Input #1, Arr2(i)
Next i
Close #1
End Sub

Sub WriteData(Filename As String, Num() As Integer)
Open App.Path & "\" & Filename For Output As #1
For i = 1 To 20
Print #1, CStr(Num(i))
Next
Close #1
End Sub

Private Sub C1_Click()
Call ReadData1
Call ReadData2
End Sub
Private Sub C2_Click()
For i = 1 To 20
a(i) = Int(Arr1(i) / Arr2(i))
Next i
End Sub

Private Sub C3_Click()
Dim Filename As String
Dim Num() As Integer
Filename = "dataout.txt"
Num = a()
Call WriteData(Filename, Num)
End Sub

热心网友时间：2024-10-18 15:08

Private Function Isprime(N As Integer) As Boolean
Dim M As Integer
For M = 2 To Sqr(N)
If N Mod M = 0 Then Exit Function
Next M
Isprime = True
End Function

Private Sub Command1_Click()
Dim i As Integer
i = 18000
Do
i = i - 1
Isprime (i)
Loop Until Isprime(i) = True
Text1.Text = Str(i)
End Sub

Private Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub

Private Sub Command2_Click()
Call WriteData("out5.text", Val(Text1))
End Sub

vb中byref参数类型不符是什么意思

第一个类型：传递参数未定义类型，假如参数在调用前未定义类型，系统自动将他定义为variant类型，由于和过程或函数中的对就参数类型不相同，所以提示”byref参数类型不符”第二个类型：传递参数类型已定义，但由于定义方法不对，所以提示”byref参数类型不符”2、出错原因在上机的时候出错原因是因为第二...

vb中byref参数类型不符是什么意思

VB 里的byref类型不符 ?找不到错误点

dim i , j as integer 这一句只说明了j是integer，而i不是interger 所以导致类型不符，因为a,b,c也都要是interger，你在Command1_Click()函数里写的第一句定义，只有最后的s定义为了interger，前面的a,b,c,d不是应该分开写

vb问题:ByRef参数类型不符

orgin你定义为整型变量。你却把它作为字符串变量来使用。当然会类型不匹配了：orgin=orgin & 5 这里量明显的错误。& 是字符连接的运算。且 Test3.text=sx(Cstr(orgin))这里参数类型不对的朋友

vb中byref参数类型不符

1、首先，Call hhj(sa, j1) 语句中没有指明 j1 参数，导致自定义函数不能运算，显然是错误的。2、其次，Select Case 语句不能 Case "K" Or "Na" Or "Ag" Or "H" Or "NH4" 这么用。3、最后，你在窗体加载事件中定义的变量是不能在过程中传递的！必须在声明中定义才可以。下面的代码...

VB 中 Byref 参数类型不符

Dim x1, t, x2 As Double 不等于 Dim x1 As Double, t As Double, x2 As Double 记住了

vb出现"byref 参数类型不符"

OpenHt mdbpath CloseHt mdbpath 你也只有这两个外调的函数!应该是这里吧!可能你把这两个函数的传值方式都是byref(不写时,默认的值) 也就是按址传改成byval 应该就行了

此题中vb中byref错误参数类型不符合原因?

1 a(i) = Mid(n, i, 1)Next i s = Text1.Text n = Len(s)c = Val(InputBox("请输入m的值"))Text2.Text = movestr(a, n, c, True)End Sub 变量不定义都默认为变体型 n,c你都没定义自定义过程为 integer 所以类型不匹配出错movestr(a, n, c, True) 已经有返回值 ...

跪求解答vb问题:ByRef参数类型不符

你的变量Orgin声明为 Integer类型，而你去用它作为参数调用自定义函数 sx，你的自定义函数 sx（n as string) as string 其中参数n 为 string类型。要求，两者类型要一致！

vb byref参数类型不符错误

Next End Sub Public Function abc(ByVal s As Long) As Boolean '该函数为确认是否为素数 Dim a As Long Dim yes As Boolean yes = True For a = 2 To s / 2 If s Mod a = 0 Then yes = False: Exit For Next abc = yes End Function 1.s改成Long类型 2.你这个应该用传...

vbbyref参数类型不符 byref参数类型不符怎么解决 byref值类型参数不能为空 vb数据类型不匹配 byref在vb中什么意思 vb用户定义类型未定义 vba 数据类型 vb中小数类型 vba定义小数类型