vb用inputbox函数怎么把小写字母转成大写
Dim i As String
i = InputBox("请输入一个小写字母", "这个是标题")
i = UCase(i)
MsgBox (i)
Private Sub Command1_Click()
a: Text1 = Trim(InputBox("请输入姓名", "姓名"))
If Text1 = "" Then
MsgBox "未输入完整,请重新输入"
GoTo a
End If
b: Text2 = Trim(InputBox("请输入班级", "班级"))
If Text2 = "" Then
MsgBox "未输入完整,请重新输入"
GoTo b
End If
c: Text3 = Trim(InputBox("请输入年级", "年级"))
If Text3 = "" Then
MsgBox "未输入完整,请重新输入"
GoTo c
End If
d: Text4 = Trim(InputBox("请输入科目1分数(0-100)", "科目1"))
If IsNumeric(Text4) And Text4 "" Then
If Text4 100 Then
MsgBox "分数不正确,请重新输入"
GoTo d
End If
Else
MsgBox "请输入分数!"
GoTo d
End If
e: Text5 = Trim(InputBox("请输入科目2分数(0-100)", "科目2"))
If IsNumeric(Text5) And Text5 "" Then
If Text4 100 Then
MsgBox "分数不正确,请重新输入"
GoTo e
End If
Else
MsgBox "请输入分数!"
GoTo e
End If
f: Text6 = Trim(InputBox("请输入科目3分数(0-100)", "科目3"))
If IsNumeric(Text6) And Text6 "" Then
If Text6 100 Then
MsgBox "分数不正确,请重新输入"
GoTo f
End If
Else
MsgBox "请输入分数!"
GoTo f
End If
Text7 = Val(Text4) + Val(Text5) + Val(Text6) '总分
Text8 = Val(Text7) / 3 '平均分
End Sub
dim a
a=inputbox("输入一个小写字母")
if a="a" then
a="A"
end if
msgbox "输出为大写字母："+a
a=ucase(inputbox("输入英文字母："))
msgbox a
a=ucase(inputbox("输入英文字母:"))
msgbox a
寇强恩必： 这是一个输入小写a 输出大写A的,有精力自己写26个就行了,嘿嘿.dim a a=inputbox(＂输入一个小写字母＂) if a=＂a＂ then a=＂A＂ end if msgbox ＂输出为大写字母:＂+a
元宝区17192419013： vb 用inputbox函数输入3个任意整数,安从大到小顺序输出 (块if语句) - ？
寇强恩必：[答案] Private Sub Form_Click() Dim a As Single, b As Single, c As Single, z As Single a = InputBox(＂输入a的值＂, ＂＂) b = InputBox(＂输入b的值＂, ＂＂) c = InputBox(＂输入c的值＂, ＂＂) If a If a If b Print a; b; c '最后a,b,c就是从大到小排...
元宝区17192419013： 用vb编写 求20个元素的一维数组A,使用INPUTBOX函数赋值,输出最小元素的值及其下标 - ？
寇强恩必： 一楼有问题. dim a(19) as double for i=0 to 19 a(i)=inputbox(＂请输入一个数＂) next dim min1 as double '记录最小值 dim min2 as integer '记录下标 min1=a(0):min2=0 '要赋初值 for i = 1 to 19 i订沪斥疚俪狡筹挟船锚f a(i)
元宝区17192419013： VB编程声明一个有10个元素的一维数组A使用Inputbox函数为所有元素赋值,将其最小元素的值及下标显示出来 - ？
寇强恩必： Option Explicit Private Sub Form_Load() Form1.AutoRedraw = True Dim A(10) As Single Dim I As Byte For I = 1 To 10 A(I) = Val(InputBox(＂输入第＂ & I & ＂个数＂, ＂输入＂, 88)) Print A(I); Next Print A(0) = 1 For I = 2 To 10 If A(A(0)) > A(I) Then A(0) = I Next Print ＂最小的元素是第A(＂; A(0); ＂)＂; ＂=＂; A(A(0)) End Sub
元宝区17192419013： 用inputbox函数输入三个任意整数,按从大到小的顺序输出.VB过程怎么设计? - ？
寇强恩必： dim a(2) as integer dim i as integer for i=0 to 2 a(i)=inputbox(＂请输入任意整数＂,＂ ＂) next i for i=0 to 2 (比较大小) next i for 循环 输出……
元宝区17192419013： vb程序用inputbox函数输入三个任意整数,按从大到小的顺序输出 - ？
寇强恩必： Dim c As Long Dim a As String Dim b() As String a = InputBox(＂输入三个数字,用逗号“,”隔开＂, ＂提示＂) b = Split(a, ＂,＂) For i = 0 To 1 For j = i + 1 To 2 If CLng(b(i)) < CLng(b(j)) Then c = b(i) b(i) = b(j) b(j) = c End If Next Next MsgBox b(0) & ＂ ＂ & b(1) & ＂ ＂ & b(2), vbOKOnly, ＂结果＂
元宝区17192419013： vb inputbox输入三个数字,选出其中最大数和最小数,显示于窗体上怎么弄? - ？
寇强恩必： Private Sub Command1_Click()a = CInt(InputBox(＂a=＂))b = CInt(InputBox(＂b=＂))c = CInt(InputBox(＂c=＂))If a < b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tPrint ＂最大:＂; aPrint ＂最小:＂; c End Sub
元宝区17192419013： VB编程 . 利用inputbox函数输入两个整数,在窗体上输出它们中的最大数和最小数 - ？
寇强恩必： Private Sub Command1_Click() a = InputBox(＂请输入数字a＂) b = InputBox(＂请输入数字b＂) If a > b ThenPrint ＂最大数字为＂ & a & (Chr(13) & Chr(10)) & ＂最小数字为＂ & b ElsePrint ＂最大数字为＂ & b & (Chr(13) & Chr(10)) & ＂最小数字为＂ & aEnd If End Sub
元宝区17192419013： vb 程序太大,怎样把大程序分成小程序 - ？
寇强恩必： sub 主过程() call A call B call C end sub SUB A() 代码...END SUB SUB B() 代码...END SUB SUB C() 代码...END SUB
元宝区17192419013： vb如何把数组里的数从大到小排例 - ？
寇强恩必： Option Explicit Function func(s() As Integer) As String Dim i As Integer, j As Integer, N As Integer func = ＂＂ For i = 0 To UBound(s) For j = i + 1 To UBound(s) If s(i) < s(j) Then N = s(j) s(j) = s(i) s(i) = N End If Next j Next i For i = 0 To UBound(s) func ...
