在text1和text2中分别输入数据,赋值给变量a和b.设计一个算法将变量a和b的值相交换,最后显示交换结果.vb private sub command1_click()dim a,b,c as string a=text1.text b=text2.text c=a a=b b=c text1.text=aVB 比如有4个变量a=1,b=2,c=3,d=4,窗体上text1,text2,在text1中输入公式,a+b,text2中得出结果 3 Private Sub Text1_change()Dim var1Dim var2Dim var3var1=Left(Text1.Text,1)var2=Right(Text1.Text,1)var3=Mid(Text1.Text,2,1)If var1=a Thenvar1=1ElseIf var1=b Thenvar1=2ElseIf var1=c Thenvar1=3Elsevar1=4End IfIf var2=a Thenvar2=1ElseIf var2=b Thenvar2=2ElseIf var2=c Thenvar2=3Elsevar2=4End IfSelect Case var3Case\"+Text2.Text=var1+var2Case\"-Text2.Text=var1-var2Case\"*Text2.Text=var1*var2Case\"/Text2.Text=var1/var2End SelectEnd Sub你这个是变量套变量,水平有限,我只能这么写了运行后可以达到你的要求VB中怎样将字符串强制转化为数值? a=val(Text1.text)这样应该就可以了!我这边VB出了点问题没有办法试试看 呵呵~只好你自己来试试看了!vb中如何让text1中显示一个变量a,a的初始值为100,然后按一下command text就变成98,再按一下是96 Dim a As IntegerPrivate Sub Form_Load()a=100 '初始值100Text1.Text=aEnd SubPrivate Sub Command1_Click()a=a-2 '每按一次减2Text1.Text=aEnd Sub对于一个数值变量,如果程序中不做任何说明,其默认的类型是 ______。A.整型B.长整型C.单精度型D.双 正确答案:C解析:Visual Basic规定数值变量的默认类型是单精度型。在Text1中输入正整数n,将其转化为二进制数c,通过Text2输出 Private Sub Command1_Click()Dim n As String,h As String,i As Integer,c As Stringn=Trim(Text1.Text)If Not(IsNumeric(n)And Val(n)>0 And Int(n)=Val(n))Then '判断n非数字、非正数、非整数情况MsgBox\"输入数字符n非正整数,请确认退出!vbOKOnlyExit SubEnd Ifh=Hex(Val(n))'将n转换成16进制c=\"For i=1 To Len(h)c=c&Hex2Bin(Mid(h,i,1))NextPrint cEnd SubFunction Hex2Bin(ByVal str As String)'自定义函数16进制转换成2进制Select Case UCase(str)Case\"0\":Hex2Bin=\"0000Case\"1\":Hex2Bin=\"0001Case\"2\":Hex2Bin=\"0010Case\"3\":Hex2Bin=\"0011Case\"4\":Hex2Bin=\"0100Case\"5\":Hex2Bin=\"0101Case\"6\":Hex2Bin=\"0110Case\"7\":Hex2Bin=\"0111Case\"8\":Hex2Bin=\"1000Case\"9\":Hex2Bin=\"1001Case\"A\":Hex2Bin=\"1011Case\"B\":Hex2Bin=\"1100Case\"C\":Hex2Bin=\"1101Case\"D\":Hex2Bin=\"1110Case\"E\":Hex2Bin=\"1111End SelectEnd FunctionVB中文本框中输入数据,赋值给一个变量,用什么事件,text1_change不行呢?求大神指导下 VB中文本框中输入数据,赋值给一个变量,用什么事件,text1_change可以的啊:Private Sub Text1_Change()Dim x As IntegerIf Text1<>\"\"Then x=CInt(Text1)Print x*10End Sub以下程序中调用scanf函数给变量a输入数值的方法是错误的,其错误原因是 B 是对的,因为p是一个指针,保存的是a的地址,也就是&a要给a赋值就是写成 scanf(“%d”,&a);所以应该写成scanf(“%d”,p);
随机阅读
- 永修站距南昌站有多远 南昌到永修多少公里
- 汉语言文学专业的毕业论文选什么方面的比较好下手? 论郭沫若屈原诗性特征
- 粗来玩干什么的 我老婆33岁了,性欲特别强,我想给她找个情人我们一起玩她,这样做可以吗?
- 杭州树园小区倾斜 在杭州玩,住在哪里最方便?
- 水稳层怎么养护?多久洒次水 水稳铺多久可以养护
- 青菜有什么营养简单点说 各种蔬菜都有什么营养物质?
- 三好学生申报表的主要事迹怎么写? 区中学三好学生申报表主要事迹
- 中国移动运营支撑中心的系统运营管理岗位是做什么的 运营与业务支撑系统主要内容
- 离任村干部如何缴纳 七星关区三板茶亭村水井湾
- 十二星座死的样子 十二星座长大以后变成什么样子
- 采用直接法求解约束优化问题时,新的迭代点需要同时满足什么条件 无约束优化问题的充要条件
- “推进绿色发展”200字感悟 上海金山环保审计
- 做脂肪酮胺化还原用氰基硼氢化钠做还原剂,反应完后处理应该怎么做呢 氰基硼氢化钠还原剂
- rkc温控器怎样校正温度 RKC温控器调零位和满度
- 南宁白玉蜗牛养殖 请问有哪位知道白玉蜗牛的种苗价是多少?
- 你觉得卡牌大师哪个皮肤用起来手感最好? 卡牌未来战士原画
- 八方旅人 战斗属性 《八方旅人》获得了强化点数,怎么使用能够提高战斗力?
- 特许加盟连锁门店 特许加盟连锁店有哪些
- 从司门口坐几号地铁去东湖绿道 武汉有哪些坑爹旅游景点?
- EK的水冷国内哪有买的 最好全面点的。想配一套。 ek 水冷一套完整需要什么