在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);
随机阅读
- 3月下旬准备去杭州旅游两天购物两天游玩因为我和一个朋友一起去是学生所以没什么钱想知道西 杭州阿里巴巴购物体验馆
- 巴西船舶运力分析 为什么法国人那么懒,整天休息,法国国内生产总值还那么高,科技还那么发达?
- 成本报表的分类有哪些呢? 成本费用报表主要包括
- 嘉世豪酒店在哪里 呼伦贝尔海拉尔嘉世豪酒店好吗?和呼伦贝尔宾馆比怎么样?
- 为什么现在JJ越来越不硬了??感觉好像 为什么我现在越来越脖不起来了
- 林黛玉主要情节简述 简述红楼梦中贾宝玉得知林黛玉死讯一事的主要情节
- 歌曲 一句歌词是我会永远爱着你 我爱你我会永远爱着你
- 渠系建筑物共同特点 渠系配套建筑物是什么意思
- Topo绵羊油适合宝宝吗 澳洲绵羊油小孩可以用吗?
- 我想知道汤里面加什么调料会使汤很香,香气很浓。 这碗汤闻起来香香的的英文
- 秋水仙碱怎样用药才不伤及肠胃 秋水仙碱副作用太大,肠胃受不了怎么办?
- 武林广场附近有什么适合家庭的餐厅?要口味环境好些的 杭州武林路附近商场酒吧餐厅
- 湛江市霞山区哪里有母婴港货店 请问在湛江霞山有哪个超市比较好
- 什么是大气中水七的主要供应者
- 什么是混凝土灌注桩静载试验 混凝土灌注桩静载实验多长时间
- 谁能发我铜雀台高清资源(720P或者1080P)麻烦发邮箱? 铜雀台正片资源
- 穿越异界成为魔法师的小说 异界全能魔法师 小说
- 证券投资入门书籍,请有经验人士推荐一两本? 与证券投资有关的著作
- 石家庄新华区赵林铺卫生院 石家庄社区卫生服务中心地址及电话一览
- 大桶水足浴城怎么样? 龙岩大桶水足浴养生项目