Question

vb实时错误13

label5.caption="D:\zhang\VB\一站到底\试题\简单\"
Dim c As LongDim a As Longa = Label5.Captionc = Int(Rnd * 50) + 1Label5.Caption = a + c + ".txt"

我想让label5.caption在原有基础上再加上一个50以内的随机数和一个“.txt”

跪求大神帮忙啊！！！！！！！！！！！！！！！！





Answer 1

类型不匹配 就是说你申明的变量是一种数据类型，但是你赋的值却是另一种数据类型。这里应更正为：
Dim c As string
Dim a As string
a = Label5.Caption
c =str（Int(Rnd * 50) + 1）
Label5.Caption = a + c + ".txt"

追问

按照你说的改完了之后，a和c之间有一个类似于空格的东东，影响了文件读取，能否再修正

追答

Dim c As String
Dim a As String
a = Label5.Caption
c = Int(Rnd * 50) + 1
Label5.Caption = a + c + ".txt"

Answer 2

Dim a As Long
改为
Dim a As String

Answer 3

改为 a = Val(Label5.Caption)