怎样调用系统的“记事本”，“计算器”，“日历表”程序？还有，如何显示2D条形图和2D饼图？？

Question

如题！
    望各位大虾赐教！

Answer 1

Private Sub Command1_Click()
  
  a = Shell("notepad", vbNormalFocus)
  b = Shell("calc.exe", vbNormalFocus)
End Sub

Answer 2

Shell "notepad", vbNormalFocus 
  Shell "calc.exe", vbNormalFocus 
  水晶报表

Answer 3

打印机？ 
你想做什么操作？
printer对象

Answer 4

flyintosky555(飞入蓝天)
    你介绍的这个网站我去看了,但却是用ASP写的. 
    用VB怎么弄呢?

Answer 5

Option ExplicitPrivate Values() As Single
Private NumPoints As Integer
Private NumYs As IntegerPrivate Sub LoadData()
Dim fnum As Integer
Dim fname As String
Dim pt_num As Integer
Dim val_num As Integer
Dim X As Single    ' Open the file.
    fnum = FreeFile
    fname = App.Path
    If Right$(fname, 1) <> "\" Then fname = fname & "\"
    fname = fname & "points.dat"
    Open fname For Input As #fnum    ' Read the number of values.
    Input #fnum, NumPoints, NumYs
    ReDim Values(1 To NumPoints, 1 To 2 * NumYs)    ' Read the data.
    For pt_num = 1 To NumPoints
        Input #fnum, X
        For val_num = 0 To NumYs - 1
            Values(pt_num, 2 * val_num + 1) = X
            Input #fnum, Values(pt_num, 2 * val_num + 2)
        Next val_num
    Next pt_num
    
    Close #fnum
End Sub
Private Sub MakeData()
Const NUM_POINTS = 40
Dim fnum As Integer
Dim fname As String
Dim i As Integer
Dim Y1 As Single
Dim Y2 As Single
Dim Y3 As Single    ' Open the file.
    fnum = FreeFile
    fname = App.Path
    If Right$(fname, 1) <> "\" Then fname = fname & "\"
    fname = fname & "points.dat"
    Open fname For Output As #fnum    ' Write the number of points.
    Write #fnum, NUM_POINTS
    
    ' Write the number of Y values.
    Write #fnum, 3
    
    ' Write the data.
    For i = 1 To NUM_POINTS
        Y1 = Sqr(i) * 5
        Y2 = i / 2 + 5 * Sin(i / 3)
        Y3 = i * i / 50
        Write #fnum, i * 100, Y1 * 100, Y2 * 100, Y3 * 100
    Next i
    Close #fnum
End SubPrivate Sub Form_Load()
Const MAKING_DATA = False    If MAKING_DATA Then
        MakeData
        Unload Me
    Else
        LoadData
    
        ' Send the data to the chart.
        Chart1.chartType = VtChChartType2dXY
        Chart1.RowCount = NumPoints
        Chart1.ColumnCount = 2 * NumYs
        Chart1.ChartData = Values
    End If
End Sub