Question

VB编程。这道题代码怎么写？第四题。





Answer 1

 Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
        Dim size = Me.Size
        size.Height = VScrollBar1.Value / VScrollBar1.Maximum * Me.Size.Height
        Me.Size = size
    End Sub

    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        Dim size = Me.Size
        size.Width = NumericUpDown1.Value / NumericUpDown1.Maximum * Me.Size.Width
        Me.Size = size
    End Sub
    
    这个太难，还是别做了

追问

我也这么觉得

追答

这种题都不会，干脆放弃吧

追问

我不是计算机专业的。

怎么不能放大？？差评！！！