大神 我可不可以再请教你一题 大神可不可以再请教个问题啊，就是怎么实现在vb中模拟一个梯形...

你是法语大神吗，可不可以再请教你两个问题~

不是大神。
第80题：comme最大的特点是一般放句首；第76题：tel的用法比较多，建议好好查词典，但这里可以直接排除d，因为后面有les。第78题：le指代前面整个句子“Nous sommes libres"，指代句子的也只有le可以用。

图形方面的思路：矩形+梯形“遮罩”，遮罩是一个图片，主体部分是黑色，矩形的高度决定了水位高度，用 ROP参数保留两个图形相交的部分：
Private Sub VScroll1_Change()
Dim lngL As Long
lngL = 3000 * VScroll1.Value / 10 '获得当前水位高度，这里用一个滚动条模拟(Max=10)
Picture1.Line (0, 0)-(3000, 3000), &HFFFFFF, BF '清空原先的图形
Picture1.Line (0, lngL)-(3000, 3000), &HFF3300, BF '按当前的水位高度画矩形
Picture1.PaintPicture Image2.Picture, 0, 0, , , , , , , vbSrcPaint '梯形遮罩覆盖，保留两个图形重叠部分
End Sub

见过

动量守恒题（弹性势能最大时）木块与小车达到共同速度，以后。注意弹簧是压缩的，对小车是动力（加速），对木块是阻力（减速）弹簧恢复原长时，小车速度最大。

1. 木块被弹簧弹出（相对于车）后先向左减速到0，然后向右加速，直到二者速度相等

2. 木块向右加速，直到二者速度相等

   两种情况与质量和速度有关           可以吗