Question

vb文本框1中的字符反序显示在文本框2中

再问下，这个哪里错了饿？为什么没反应？Private Sub Command1_Click()
Dim m As Long, t As Long, n As Integer
m = Val(InputBox("输入大于1的正整数m:", "输入数据"))
n = 1
t = 0
Do While ture
n = n + 1
t = 2 ^ n
If t >= m Then
Print "2的"; n; "次方>="; m

Exit Do
End If
Loop
End Sub
只是问是哪里错了？不是要解答这道题目，谢谢，，提示下错也只错在第四，6,7行。。谢谢

Answer 1

文本框1中的字符反序显示在文本框2中：
Text2.Text = StrReverse(Text1.Text)

Private Sub Command1_Click()
Dim m As Long, t As Long, n As Integer
m = Val(InputBox("输入大于1的正整数m:", "输入数据"))
n = 1
t = 0
Do While t < m
n = n + 1
t = 2 ^ n
Loop
Print "2的"; n; "次方>="; m
End Sub

追问

，，只是问是哪里错了？不是要解答这道题目，谢谢，，提示下错也只错在第3，6,7行。。谢谢

Answer 2

反序：text2.text=strreverse(text1.text)

下面那段程序，实在不知道你是啥意思。。。do语句中的ture是变量？还是true被你写错了？无论如何都不对，那儿应该是一个表达式

追问

只是问是哪里错了？不是要解答这道题目，谢谢，，提示下错也只错在第四，6,7行。。谢谢

追答

把你题目的意思说出来吧，程序我没看明白，好像是要输入一个数据m，然后判断2的n次方是否比m大，但是这个n哪来的呢？把程序原文要求发上来吧，然后帮你参考一下

追问

设m和n都是正整数，输入m，求当2的n次方大于等于m时，求n的最小值是多少？然后程序就是我写的这个错的那几行我说了，怎么改？

追答

Private Sub Command1_Click()
Dim m As Long, t As Long, n As Integer
m = Val(InputBox("输入大于1的正整数m:", "输入数据"))
n = 0 '#################### n=1
t = 0
Do '################ Do While ture
n = n + 1
t = 2 ^ n
If t >= m Then
Print "2的"; n; "次方>="; m
Print " n 的最小值为:"; n - 1 '############## 这句新添加的
Exit Do
End If
Loop
End Sub

这样写，是否让你看得直观一些？主要改了三条语句

追问

,,谢谢，亲，请问你qq，，我想加你，以后不会再来问你。。

追答

搞了半天我还不是你的满意答案啊？QQ: 43595076

Answer 3

Private Sub Command7_Click() '反过来
Text2 = ""
Dim a()
strtxt = Text1
l = Len(strtxt)
ReDim a(l)
For i = 1 To l
a(i) = Mid(strtxt, i, 1)
Next i
For i = l To 1 Step -1
Text2 = Text2 & a(i)
Next i
End Sub