> 问题详情
text1.text文本框中输入字符text2.text文本框中反着显示例如：
悬赏：0&答案豆
提问人：匿名网友
发布时间：
text1.text文本框中输入字符text2.text文本框中反着显示例如：123456654321或你好吗吗好你
为您推荐的考试题库
网友回答（共0条）展开
您可能感兴趣的试题
1算法分析的目的是 ______。A.找出数据结构的合理性B.找出算法中输入和输出之间的关系C.分析算法的易懂性和可靠性D.分析算法的效率以求改进2大部分控件都没有的属性是 ______ 。A．TopB．NameC．VisibleD．Interval3语句Print Sgn(-5.1^2)+Abs(Int(-5.1^2))的输出结果是(&&)。A．52.2B．25.01C．26D．284在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：记录类型定义如下：下列叙述中正确的是（　　）。A.记录类型animal不能在Form1中定义，必须在标准模块中定义B.如果文件c：\vbTest．dat不存在，则Open命令执行失败C.由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D.语句“Put#1,,rec”将animal类型的两个数据元素写到文件中
我有更好的答案
请先输入下方的验证码查看最佳答案
图形验证：
验证码提交中……
每天只需0.4元
选择支付方式
支付宝付款
郑重提醒：支付后，系统自动为您完成注册
请使用微信扫码支付(元)
支付后，系统自动为您完成注册
遇到问题请联系在线客服QQ：
恭喜你被选中为
扫一扫-免费查看答案！
请您不要关闭此页面,支付完成后点击支付完成按钮
遇到问题请联系在线客服QQ：
恭喜您！升级VIP会员成功
提示：请截图保存您的账号信息，以方便日后登录使用。
常用邮箱：
用于找回密码
确认密码：您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
　vb的几道题(可以参考一下).doc 12页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
你可能关注的文档：
··········
··········
【程序填空】
'1.下面的程序段用于打印出以下图形
Private Sub Form_Click()
Dim i%, j%, k%
For i = 0 To 3
For j = 0 To 2 - i
Print & &;
'**********SPACE**********
For k = 1 To 2 * i + 1 'for k = 1 to【?】
Print &*&;
For i = 0 To 2
For j = 0 To i
'**********SPACE**********
Print & &;
For k = 0 To 4 - 2 * i
Print &*&;
'**********SPACE**********
2.本程序段将一个十进制整数m转换成 r (2－16)进制字符串
'方法：将m不断除 r 取余数，直到商为零，以反序得到结果。
'-------------------------------------------------------
Function TranDec$(ByVal m%, ByVal r%)
Dim StrDtoR$
Dim iB%, mr%
StrDtoR = &&
Do While m && 0
'**********FILL**********
mr = m Mod r
‘mr = _____
If mr &= 10 Then
'**********FILL**********
‘StrDtoR = Chr(mr - 10 + _____) & StrDtoR
StrDtoR = Chr(mr - 10 + 65) & StrDtoR
StrDtoR = mr & StrDtoR
TranDec = StrDtoR
End Function
Private Sub Command1_click()
Dim m0%, r0%, i%
m0 = Val(Text1.Text)
r0 = Val(Text2.Text)
If r0 & 2 Or r0 & 16 Then
i = MsgBox(&输入的R进制数超出范围&, vbRetryCancel)
If i = vbRetry Then
Text2.Text = &&
Text2.SetFocus
Label3.Caption = &转换成& & r0 & &进制数&
'**********FILL**********
Text3.Text = TranDec(m0, r0)
‘Text3.Text = TranDec(m0, _____)
3.要求输入若干学生的成绩，计算平均分和高于平均分的人数，
'并将这两个数据放入数组的最后。
'-------------------------------------------------------
Private Sub Form_Click()
Dim mark() As Integer, i%, n%, aver
n = InputBox(&输入学生的人数&)
ReDim mark(1 To n)
For i = 1 To n
正在加载中，请稍后...
60页100页13页21页43页30页15页42页59页16页vb中，任意输入一个二进制数，将其转换成十进制数输出，要求写出代码~
对整数:
Opt相关信息n Explicit
Dim sHex As Sting
Dim sBin As Sting
Pulic Function BinToHex(ByVal sBin As Sting) As Sting
Const s1 = "1111000", s2 = "DB7FEC8"
Dim i As Intege, sHex As Sting
sBin = Sting(3 - (Len(sBin) - 1) Mod 4, "0") & sBin
Fo i = 1 To Len(sBin) Step 4
sHex = sHex & Mid(s2, InSt(1, s1, Mid(sBin, i, 4)), 1)
BinToHex = sHex
Text2 = Val("&H" & sHex & "H")
End Function
Pivate Su Command1_Click()
sBin = Text1
Call BinToHex(sBin)
End Su
Pivate Su Fom_Load()
Text1 = ""
Text2 = ""
End Su...
对整数:
Opt相关信息n Explicit
Dim sHex As Sting
Dim sBin As Sting
Pulic Function BinToHex(ByVal sBin As Sting) As Sting
Const s1 = "1111000", s2 = "DB7FEC8"
Dim i As Intege, sHex As Sting
sBin = Sting(3 - (Len(sBin) - 1) Mod 4, "0") & sBin
Fo i = 1 To Len(sBin) Step 4
sHex = sHex & Mid(s2, InSt(1, s1, Mid(sBin, i, 4)), 1)
BinToHex = sHex
Text2 = Val("&H" & sHex & "H")
End Function
Pivate Su Command1_Click()
sBin = Text1
Call BinToHex(sBin)
End Su
Pivate Su Fom_Load()
Text1 = ""
Text2 = ""
End Su
Pulic Function BIN_to_DEC(ByVal Bin As Sting) As Long
Dim i As Long
Fo i = 1 To Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))
End Function
修改如下：
Dim m As Long, n As Long, temp As Long, r As Long
m = Val(InputBox("请输入m的值...
十进制要转换成二进制时，把它除于二，所得的余数，然后从下往上读取，例如：把十进制9转换成二进制，9/2＝4余1，4/2＝2余0，2/2=1余0，1/2=0余1，...
有HEX函数既是，用法：HEX(number），这里的number要是一个十进制的整数。
若out为输出的结果，text1为文本框（若是多行显示，需设置文本框的MultiLine属性为True，可以相应加入空格 &" " ，或者换行 &vbcrlf
答: 很多软件能自动生成CHM的，比如小说下载阅读器，CHM转txt的话下个chm反编译软件
答: 计算机网络技术的基本内容
计算机网络技术的基本内容也是我们考试的内容，它包括我们后面将要分节讲到的：
1、 网络协议结构
计算机之间相互通信的层次、各层中的协议...
答: 最简单的方法,买个路由,什么都解决了......
大家还关注
Copyright &
Corporation, All Rights Reserved
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415vb编怎样使Text1中输入的所有字符,都以*显示_百度知道
vb编怎样使Text1中输入的所有字符,都以*显示
我有更好的答案
1、修改文本框的PasswordChar属性可以做到。2、vb6示例：（在窗体上添加text1文本框）Private&Sub&Form_Load()Text1.PasswordChar&=&&*&End&Sub
采纳率：71%
来自团队：
Text1.PasswordChar = &*&
本回答被提问者采纳
用passwordchar属性设置成“*”向文本框输入时便显示为*
text 里有个属性叫 PasswordChar 只要设置 为 &*& 就OK了
其他1条回答
为您推荐：
其他类似问题
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb十进制转二进制，从text1输入且从text1输出_百度知道
vb十进制转二进制，从text1输入且从text1输出
Dim a As Integer, b As IntegerPrivate Sub Command1_Click()a = Val(Text1.Text)Text1.Text = &&Do While a & 0Text1.Text = (a Mod 2) & Text1.Texta = a / 2LoopEnd Sub
不知道哪个地方错了，得出的结果有的对有的不对，3和5的二进制转换后都是101，求解答
我有更好的答案
将代码中的&a&=&a/2修改为：a&=&a&\&2解答：在 VB 语言里， / 与 \ 两种操作符都是执行除法操作，区别在于 / 取得的结果是带小数点的数，而 \ 得到的结果才是整数。对于十进制转二进制的算法来说，除2取余法的计算过程中，都是整数，不能是带小数点的。运行效果图：
谢谢大神，这俩符号有啥区别么，分别是啥意思
Private Sub Text1_Change()
a% = Val(Text1.Text)
Text2.Text = Dec2Bin(a%)
a% = Val(Text1.Text)
Text3.Text = Hex(a%)End Sub Public Function Dec2Bin(a As Integer) As String
tmp = (a Mod 2) & tmp
If a & 2 Then Exit Do
a = a \ 2
Dec2Bin = tmpEnd Function
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。