Visual Basic如何实现单张图片随机展示到4个PictureBox控件中

你原有代码存在以下核心问题：

• 循环生成随机数的逻辑冗余，仅需生成1次随机索引即可
• 未将随机索引与对应PictureBox的Image属性绑定，图片无法显示
• 每次点击重复创建Random实例、循环内调用Randomize，极易出现随机数重复的问题
• 直接对字符串类型的lbl1.Text做减法运算，容易触发类型转换错误

完整实现代码 #

' 窗体类级别声明Random实例，避免重复实例化导致的随机数重复问题
Private rand As New Random()

Private Sub btnJouer_Click(sender As Object, e As EventArgs) Handles btnJouer.Click
    ' 初始化存储4个PictureBox的数组
    Dim picBoxes As PictureBox() = {PictureBox1, PictureBox2, PictureBox3, PictureBox4}
    
    ' 计数逻辑优化，先转整数再运算，避免类型错误
    lbl1.Text = (CInt(lbl1.Text) - 1).ToString()
    
    ' 生成0~3的随机索引，Next方法上限为开区间，所以填4即可覆盖0-3的所有取值
    Dim randomIndex As Integer = rand.Next(0, picBoxes.Length)
    
    ' 给随机选中的PictureBox赋值图片
    picBoxes(randomIndex).Image = My.Resources.mario1

    ' 可选逻辑：如果需要每次仅显示一张图片、其他PictureBox清空，保留下面的循环；不需要就删掉
    For i = 0 To picBoxes.Length - 1
        If i <> randomIndex Then
            picBoxes(i).Image = Nothing
        End If
    Next
End Sub

补充说明 #

• 如果需要实现每次点击累加显示图片（多次点击后多个PictureBox都显示图片），删除清空其他PictureBox的循环即可
• 确保My.Resources.mario1的资源名称和你实际导入的图片资源名称一致，避免找不到资源报错

内容的提问来源于stack exchange，提问作者Sophie Beauchesne