m0_37142402 2016-12-22 16:29 采纳率: 0%
浏览 1962

类型“String 的 1 维数组”的值无法转换为“Integer”VB

dim alphabet as string()={"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"}
dim substitute as string()={"P","L","F","N","O","C","Q","U","D","Z","V","G","I","X","M","W","J","B","K","E","A","H","S","Y","R","T"}
dim messagestring as string
messagestring=console.readline()
dim lengthmessagestring as integer
lengthmessagestring=messagestring.length

    call a(alphabet,substitute,messagestring,lengthmessagestring)
    console.writeline()
    console.readline()

End Sub

sub a(byref lengthmessagestring as integer,byref alphabet as string(),byref substitute as string(),byref messagestring as string)
dim i as integer=0
do while (i+1)<=lengthmessagestring
  for j=0 to 25
    if messagestring(i)=alphabet(j) then
    alphabet(j)=substitute(j)
    console.writeline(alphabet(j))
     end if
next
i+=1
loop
end sub
  • 写回答

1条回答 默认 最新

  • threenewbee 2016-12-23 15:39
    关注

    什么版本的vb,这个是vb2010新增的语法。

    评论

报告相同问题?

悬赏问题

  • ¥15 matlab数字图像处理频率域滤波
  • ¥15 在abaqus做了二维正交切削模型,给刀具添加了超声振动条件后输出切削力为什么比普通切削增大这么多
  • ¥15 ELGamal和paillier计算效率谁快?
  • ¥15 file converter 转换格式失败 报错 Error marking filters as finished,如何解决?
  • ¥15 ubuntu系统下挂载磁盘上执行./提示权限不够
  • ¥15 Arcgis相交分析无法绘制一个或多个图形
  • ¥15 关于#r语言#的问题:差异分析前数据准备,报错Error in data[, sampleName1] : subscript out of bounds请问怎么解决呀以下是全部代码:
  • ¥15 seatunnel-web使用SQL组件时候后台报错,无法找到表格
  • ¥15 fpga自动售货机数码管(相关搜索:数字时钟)
  • ¥15 用前端向数据库插入数据,通过debug发现数据能走到后端,但是放行之后就会提示错误