急救！类型转换问题

Question

Option ExplicitConst DataNo = 16
Dim fBuf(0 To DataNo * 2 - 1) As Single
Dim wRtn As Integer, wTotalBoards As Integer
Dim Index As Integer
Dim wCardType As Integer
Dim bProcessing As Boolean
Dim wBase As Integer
Dim wSelect As Integer
Private Sub Command4_Click()
 Dim i As Integer
        wCardType = cbCardType.ListIndex
    wRtn = A821_ChScan_PollingFloat(wCardType, fBuf(0), DataNo)
   
    If wRtn <> A821_NoError Then
       bProcessing = False
        Exit Sub
    End If
    For i = 0 To 15        
    Text1(i).Text = Str$(fBuf(i)) //请问这里如何把single转成string   
    Next i  
     End Sub

Answer 1

Text1(i).Text = cStr(fBuf(i))

Answer 2

Text1(i).Text = CStr(fBuf(i)) //请问这里如何把single转成string

Answer 3

一样的不行呀，提示：vb6.exe-应用程序错误
 “0x0040e725”指令引用的“0xca00000”内存。该内存不能为“read”.
要终止程序，请单击“确定”
要调试程序，请单击“取消”我这里取的为数据是一个卡子上的数据，是不是程序有错！请指教！

Answer 4

使用cstr()函数可以解决问题。
若出现你所提示的问题，估计你的VB安装有问题或有文件被损。若重新安装仍不能解决的话，那只有重新安装系统了。我以前就碰到过类似问题。