如何在messagebox.show中添加messagebox.show来显示答案？ [英] How can I add messagebox.show to show the answer in a messagebox.show?

问题描述

  Dim  s  As  字符串 
  Dim  a，b，c  As  长 
a =  CLng （Val（TxtBoxInput.Text））
s = TxtBoxInput.Text 
 TxtBoxInput.Clear（）
 对于 i =  1    Len（s） Step   1  
b =  CLng （Mid（s，i， 1 ））
c = Len（s） -  i 
b =  CLng （Val（b）*（ 2  ^ c））
 TxtBoxInput.Text =  CStr （Val（TxtBoxInput.Text）+ b）
 
 
 下一页我

解决方案

你真的想要一个信息框来显示你的回答尽管它显示在一个文本框中



写这个

messgebox.show（+ TxtBoxInput.Text +，你的答案）

Dim s As String
        Dim a, b, c As Long
        a = CLng(Val(TxtBoxInput.Text))
        s = TxtBoxInput.Text
        TxtBoxInput.Clear()
        For i = 1 To Len(s) Step 1
            b = CLng(Mid(s, i, 1))
            c = Len(s) - i
            b = CLng(Val(b) * (2 ^ c))
            TxtBoxInput.Text = CStr(Val(TxtBoxInput.Text) + b)


        Next i

解决方案

do u really want a messege box to show ur answer inspite it is shown in a text box

write this
messgebox.show("+TxtBoxInput.Text+","Your Answer ")

这篇关于如何在messagebox.show中添加messagebox.show来显示答案？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！