不會的就放這邊

#include<stdio.h>
#include<stdlib.h>
int main(){
        int a,times=0;
        randomize();
        while(times<=10){
                a=random(100);
                printf("%d\n",a);
                times++;
        }
puts("\n");
return 0;
}

int *a;

Button1.Location = New Point(100, 100)

Dim PictureBox1 As New PictureBox()
Dim WithEvents Button1 As New Button

<STAThread()> _
Public Shared Sub Main()
    Application.EnableVisualStyles()
    Application.Run(New Form1())
End Sub

Private Sub InitializePictureBoxAndButton()

    Me.Controls.Add(PictureBox1)
    Me.Controls.Add(Button1)
    Button1.Location = New Point(175, 20)
    Button1.Text = "Stretch"

    ' Set the size of the PictureBox control.
    Me.PictureBox1.Size = New System.Drawing.Size(140, 140)

    'Set the SizeMode to center the image.
    Me.PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage

    ' Set the border style to a three-dimensional border.
    Me.PictureBox1.BorderStyle = BorderStyle.Fixed3D

    ' Set the image property.
    Me.PictureBox1.Image = New Bitmap(GetType(Button), "Button.bmp")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
    ' Set the SizeMode property to the StretchImage value.  This
    ' will enlarge the image as needed to fit into
    ' the PictureBox.
    PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub

Try
    Process.Start("http://www.microsoft.com")
Catch ex As Exception
    MsgBox("Can't load Web page" & vbCrLf & ex.Message)
End Try

Dim number As Integer = 8
Select Case number
    Case 1 To 5
        Debug.WriteLine("Between 1 and 5, inclusive")
        ' The following is the only Case clause that evaluates to True.
    Case 6, 7, 8
        Debug.WriteLine("Between 6 and 8, inclusive")
    Case 9 To 10
        Debug.WriteLine("Equal to 9 or 10")
    Case Else
        Debug.WriteLine("Not between 1 and 10, inclusive")
End Select