ZKX's LAB

在text1中输入一个数值变量a

2020-07-16知识6

在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);

#函数调用#scanf#变量

随机阅读

qrcode
访问手机版