小妹有一VB题目要问呀

Question

给你mail了一份
你自己修改一下公式就可以了

Answer 1

TO RILUO
   界面是要触摸屏幕的

Answer 2

代码已发。converter.vbp:
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#D:\WIN98\SYSTEM\StdOle2.Tlb#OLE Automation
Startup="Form1"
Command32=""
Name="Converter"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="someone"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

Answer 3

Form1.frm:
VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   2370
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6690
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2370
   ScaleWidth      =   6690
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command4 
      Caption         =   "退出"
      Height          =   855
      Left            =   5760
      TabIndex        =   17
      Top             =   1200
      Width           =   735
   End
   Begin VB.CommandButton Command3 
      Caption         =   "退格"
      Height          =   375
      Left            =   5760
      TabIndex        =   16
      Top             =   720
      Width           =   735
   End
   Begin VB.CommandButton Command2 
      Caption         =   "清除"
      Height          =   375
      Left            =   5760
      TabIndex        =   15
      Top             =   240
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "."
      Height          =   375
      Index           =   10
      Left            =   5160
      TabIndex        =   14
      Top             =   1680
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "1"
      Height          =   375
      Index           =   9
      Left            =   5160
      TabIndex        =   13
      Top             =   240
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "1"
      Height          =   375
      Index           =   8
      Left            =   4680
      TabIndex        =   12
      Top             =   240
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "1"
      Height          =   375
      Index           =   7
      Left            =   4200
      TabIndex        =   11
      Top             =   240
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "1"
      Height          =   375
      Index           =   6
      Left            =   5160
      TabIndex        =   10
      Top             =   720
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "1"
      Height          =   375
      Index           =   5
      Left            =   4680
      TabIndex        =   9
      Top             =   720
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "1"
      Height          =   375
      Index           =   4
      Left            =   4200
      TabIndex        =   8
      Top             =   720
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "1"
      Height          =   375
      Index           =   3
      Left            =   5160
      TabIndex        =   7
      Top             =   1200
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "1"
      Height          =   375
      Index           =   2
      Left            =   4680
      TabIndex        =   6
      Top             =   1200
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "1"
      Height          =   375
      Index           =   1
      Left            =   4200
      TabIndex        =   5
      Top             =   1200
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "0"
      Height          =   375
      Index           =   0
      Left            =   4200
      TabIndex        =   4
      Top             =   1680
      Width           =   855
   End
   Begin VB.OptionButton Option1 
      Caption         =   "英寸"
      Height          =   375
      Index           =   2
      Left            =   2760
      TabIndex        =   3
      Top             =   1560
      Width           =   735
   End
   Begin VB.OptionButton Option1 
      Caption         =   "尺"
      Height          =   375
      Index           =   1
      Left            =   1920
      TabIndex        =   2
      Top             =   1560
      Width           =   615
   End
   Begin VB.OptionButton Option1 
      Caption         =   "厘米"
      Height          =   375
      Index           =   0
      Left            =   960
      TabIndex        =   1
      Top             =   1560
      Value           =   -1  'True
      Width           =   735
   End
   Begin VB.TextBox Text1 
      Alignment       =   1  'Right Justify
      Height          =   375
      Left            =   1080
      Locked          =   -1  'True
      MaxLength       =   24
      TabIndex        =   0
      Top             =   600
      Width           =   2175
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim lastMode As Integer
Dim Tmp As SinglePrivate Sub Command1_Click(Index As Integer)
If (Index = 0 Or Index = 10) And Text1 = "" Then
Text1 = Text1 & "0."
Else
Text1 = Text1 & Command1(Index).Caption
End If
End SubPrivate Sub Command2_Click()
Text1 = ""
End SubPrivate Sub Command3_Click()
Text1 = Left(Text1, Len(Text1) - 1)
End SubPrivate Sub Command4_Click()
Unload Me
End SubPrivate Sub Form_Load()
Dim i As Integer
For i = 0 To 9
Command1(i).Caption = i
Next
End SubPrivate Sub Option1_Click(Index As Integer)
On Error GoTo errhdlr
If Text1 = "" Then lastMode = Index: Exit Sub
Tmp = CDbl(Text1)
Select Case lastMode
Case 0  'cm
    Select Case Index
    Case 1  'to chi
        Tmp = Tmp * 3 / 100
    Case 2  'to inch
        Tmp = Tmp / 2.54
    End Select
Case 1 'chi
    Select Case Index
    Case 0  'to cm
        Tmp = Tmp * 100 / 3
    Case 2  'to inch
        Tmp = Tmp * 100 / 7.62
    End Select
Case 2
    Select Case Index 'Inch
    Case 0  'to cm
        Tmp = Tmp * 2.54
    Case 1  'to chi
        Tmp = Tmp * 7.62 / 100
    End Select
End Select
If Tmp <> Int(Tmp) Then
Text1 = Format(Tmp, "############0.############")
Else
Text1 = Tmp
End If
lastMode = Index
Exit Sub
errhdlr:
MsgBox "Error:" & Err.Number & " - " & Err.Description
lastMode = Index
End Sub

Answer 4

能说的详细点吗？？我做过触摸屏软件，有个小键盘，把要求发到我信箱里好吗？？[email protected]　　QQ：9813675

Answer 5

各位不好意思，你看一下这个邮箱就知道了这个女孩姓沈，真名我就不便透露了，这个号是我以前帮她申请的，她说不上CSDN了，这个号也就成了我的马甲，谁知他又上了……我是搞C++的，我从来都不会用VB这种烂东西

Answer 6

VB确有他的局限性，但不能说它烂。而且开发工具后面的思想方法本来就是相通的，所以用VB的也不全是菜鸟。
   不过现在IT里面最赚钱的行业好像都是用C++的，所以C++程序员这两年比较牛，加上VB好学，很多初学者都从VB开始，所以VB程序员的水平差距很大，有些不成熟的程序也给攻击留下口实。
    但好学也正说明的VB本身不错。毕竟易于掌握也是个优点。