VB编写一个程序,实现在文本框内输入一个长度值,单位为“厘米”,点击名利按钮转化为X米X分米X厘米的形式
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/17 19:29:47
VB编写一个程序,实现在文本框内输入一个长度值,单位为“厘米”,点击名利按钮转化为X米X分米X厘米的形式
![VB编写一个程序,实现在文本框内输入一个长度值,单位为“厘米”,点击名利按钮转化为X米X分米X厘米的形式](/uploads/image/z/2086705-1-5.jpg?t=VB%E7%BC%96%E5%86%99%E4%B8%80%E4%B8%AA%E7%A8%8B%E5%BA%8F%2C%E5%AE%9E%E7%8E%B0%E5%9C%A8%E6%96%87%E6%9C%AC%E6%A1%86%E5%86%85%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E9%95%BF%E5%BA%A6%E5%80%BC%2C%E5%8D%95%E4%BD%8D%E4%B8%BA%E2%80%9C%E5%8E%98%E7%B1%B3%E2%80%9D%2C%E7%82%B9%E5%87%BB%E5%90%8D%E5%88%A9%E6%8C%89%E9%92%AE%E8%BD%AC%E5%8C%96%E4%B8%BAX%E7%B1%B3X%E5%88%86%E7%B1%B3X%E5%8E%98%E7%B1%B3%E7%9A%84%E5%BD%A2%E5%BC%8F)
下面是我的代码,你也可以优化一下.
Private Sub Command1_Click()
cmdlength = Text1.Text
If Len(Text1.Text) >= 3 Then
cmdmi = Mid(Text1.Text,1,Len(Text1.Text) - 2)
cmdfen = Mid(Text1.Text,Len(Text1.Text) - 1,1)
cmdli = Mid(Text1.Text,Len(Text1.Text),1)
ElseIf Len(Text1.Text) = 2 Then
cmdmi = 0
cmdfen = Mid(Text1.Text,Len(Text1.Text) - 1,1)
cmdli = Mid(Text1.Text,Len(Text1.Text),1)
ElseIf Len(Text1.Text) = 1 Then
cmdmi = 0
cmdfen = 0
cmdli = Mid(Text1.Text,Len(Text1.Text),1)
End If
Label1 = cmdmi & "米" & cmdfen & "分数" & cmdli & "厘米"
End Su
Private Sub Command1_Click()
cmdlength = Text1.Text
If Len(Text1.Text) >= 3 Then
cmdmi = Mid(Text1.Text,1,Len(Text1.Text) - 2)
cmdfen = Mid(Text1.Text,Len(Text1.Text) - 1,1)
cmdli = Mid(Text1.Text,Len(Text1.Text),1)
ElseIf Len(Text1.Text) = 2 Then
cmdmi = 0
cmdfen = Mid(Text1.Text,Len(Text1.Text) - 1,1)
cmdli = Mid(Text1.Text,Len(Text1.Text),1)
ElseIf Len(Text1.Text) = 1 Then
cmdmi = 0
cmdfen = 0
cmdli = Mid(Text1.Text,Len(Text1.Text),1)
End If
Label1 = cmdmi & "米" & cmdfen & "分数" & cmdli & "厘米"
End Su
VB编写一个程序,实现在文本框内输入一个长度值,单位为“厘米”,点击名利按钮转化为X米X分米X厘米的形式
用vb设计一个随即抽取幸运数字的程序,单击"开始"按钮,在文本框中随机产生7为数字,并不断滚动.单击"暂停"按钮,文本框
VB个人所得税计算有两个文本框和一个按钮,在第一个文本框输入金额点击按钮算出来的结果在第二个文本框显示2000块起征点扣
编写VB程序,在文本框中输入一个简单的英文句子,找出这个句子中最长的单词
VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作:
编写java程序,输入两个实数x,y,用来代表一个点的坐标,判断该点是否在单位圆(半径为1.0的圆)上.
编写一个程序,实现根据上输入的x值,可求出y的值,并输出x和y的值.计算y值的数学公式为:y=1.5x+7.5(x≤2.
编写程序VB,在一个文本框中输入一个简单的英文句子,找出这个英文句子中最长的单词
在什么条件下 ,长度为3厘米,7厘米,X厘米的三条线段可以围成一个三角形
请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态,
求C语言高手编写程序:为实型变量X输入一个值后,输出X的值、X的平方根、X的平方、X的立方根和X的立方
长度分别为三厘米七厘米x厘米的三根木棒可以围成一个三角形,则x取值范围是