شما باید اول یک فرم استاندارد را را بیاورید و درload فرم دستورات زیرابنویسید.

private sub form_load     لودفرم

for i= 1to 10 دستورات

forj=1to10

print tab(j*5);i*j

next

print

next

End sub

دیدید چه راحت بود          نظریادت نره

 دربرنامه ویژوال بیسیک 6یک فرم از نوع استاندارد بیاورید روی فرم یک عدد تکس باکس(Text box) یک عدد برچسب (Label) بگذارید بعد به ترتیب نام تکس بکس وبرچسب را txtnum و lblm16 بگذارید دررویداد Change   تکس باکس  کد زیر را بنویسید.بعد با F5 برنامه رااجراکنید.

Private Sub txtnum_Change()

    Dim strHex As String

    Dim intD As Long

    Dim intI As Long

    Dim strS As String

    strHex = ""

    intD = 0

    strHex = UCase(txtnum.Text)

    intI = 1

    Do While Len(strHex) - intI + 1 <> 0

    strS = Mid(strHex, Len(strHex) - intI + 1, 1)

    If strS = "A" Then digit = 10

    If strS = "B" Then digit = 11

    If strS = "C" Then digit = 12

    If strS = "D" Then digit = 13

    If strS = "E" Then digit = 14

    If strS = "F" Then digit = 15

    If strS >= "0" And strS <= "9" Then

    digit = Val(strS)

    End If

     intD = intD + digit * 16 ^ (intI - 1)

    intI = intI + 1

    Loop

    lblm16.Caption = intD

End Sub

                                                                                                                                  نظریادتون نره

تابع                                                                                                                               فرومول

سکانت                                                                                   Sec(X) = 1 / Cos(X)

کسکانت                                                                                Cosec(X) = 1 / Sin(X)

کتانژانت                                                                                Cotan(X) = 1 / Tan(X)

آرک سینوس                                                             Arcsin(X) = Atn(X / Sqr(1-X * X ))

آرک کسینوس                                           Arccos(X) = Atn(-X / Sqr(1-X * X)) + 2 * Atn(1)

آرک سکانت                          Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) -1) * (2 * Atn(1))

آرک کتانژانت                                                            Arccotan(X) = Atn(X) + 2 * Atn(1)

کسینوس هیپربولیک                                                   HCos(X) = (Exp(X) + Exp(-X)) / 2

آرک سکانت هیپربولیک                                        HArctan(X) = Log((1 + X) / (1 - X)) / 2   

منتظر نظرات شماهستم

ویژوال بیسیک 6 دارای مجموعه‌ای از توابع است که برای انجام محاسبات عددی پیش بینی شده اند. در این مقاله با چندتا توابع آشنا می شویم.

)تابع Absقدرمطلق (:
مقدار بدون علامت یک عدد را برمی‌گرداند

)تابع Atn آرک تانژانت: (
خروجی این تابع عددی از نوع double است که برابر زاویه‌ای است که تانژانت آن عدد ورودی تابع است

)تابع Cos کسینوس: (
خروجی این تابع عددی از نوع double است که برابر کسینوس زاویه ورودی است

)تابع Int تابع کف یا تابع جزء صحیح (:
نزدیکترین عدد صحیح مساوی یا کوچکتر نسبت به عدد ورودی را برمی‌گرداند.

)تابع Round گرد کردن: (
خروجی این تابع عددی از نوع double است که برابر نزدیکترین عدد صحیح به مقدار عدد ورودی است.

)تابع Sgn علامت: (
خروجی این تابع عددی از نوع صحیح است که نشان دهنده علامت عدد ورودی است.

)تابع Sin سینوس: (
خروجی این تابع عددی از نوع double است که برابر سینوس زاویه ورودی است.

)تابع Sqr جذر: (
خروجی این تابع عددی از نوع double است که برابر ریشه دوم یا جذر عدد ورودی است.

تابع Tan تانژانت:
خروجی این تابع عددی از نوع double است که برابر با تانژانت زاویه ورودی (برحسب رادیان) می‌باشد.

نظریادتون نره